Lemma iscomptoabgrdiff (X : abmonoid) {L : hrel X} (is : isbinophrel L) : iscomprelrelfun L (abgrdiffrel X is) (toabgrdiff X). Proof. unfold iscomprelrelfun. intros x x' l. change (abgrdiffrelint X L (x ,, 0) (x' ,, 0)). simpl. apply (hinhpr). exists (unel X). apply ((pr2 is) _ _ 0). apply ((pr2 is) _ _ 0). apply l. Qed.
Require Import UniMath.MoreFoundations.Orders. Require Import UniMath.MoreFoundations.Subtypes.