proposition: Lemma isirreflabmonoidfracrelint (X : abmonoid) (A : subabmonoid X) {L : hrel X} (is : ispartbinophrel A L) (isl : isirrefl L) : isirrefl (abmonoidfracrelint X A L).
proof: Proof. unfold isirrefl. intro xa. unfold abmonoidfracrelint. simpl. unfold neg. apply (@hinhuniv _ (make_hProp _ isapropempty)). intro t2. apply (isl _ (pr2 t2)). Defined.
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders