Lemma isreflabgrdiffrelint (X : abmonoid) {L : hrel X} (is : isbinophrel L) (isl : isrefl L) : isrefl (abgrdiffrelint X L). Proof. intro xa. unfold abgrdiffrelint. simpl. apply hinhpr. exists (unel X). apply (isl _). Defined.
Require Import UniMath.MoreFoundations.Orders. Require Import UniMath.MoreFoundations.Subtypes.