Lemma istransabgrdiffrelint (X : abmonoid) {L : hrel X} (is : isbinophrel L) (isl : istrans L) : istrans (abgrdiffrelint X L). Proof. apply (istranslogeqf (logeqabgrdiffrelints X L)). intros a b c rab rbc. apply (istransabmonoidfracrelint _ (totalsubmonoid X) (isbinoptoispartbinop _ _ is) isl _ _ _ rab rbc). Qed.
Require Import UniMath.MoreFoundations.Orders. Require Import UniMath.MoreFoundations.Subtypes.