Lemma ispoabgrdiffrelint (X : abmonoid) {L : hrel X} (is : isbinophrel L) (isl : ispreorder L) : ispreorder (abgrdiffrelint X L). Proof. exists (istransabgrdiffrelint X is (pr1 isl)). apply (isreflabgrdiffrelint X is (pr2 isl)). Defined.
Require Import UniMath.MoreFoundations.Orders. Require Import UniMath.MoreFoundations.Subtypes.