proposition: Lemma isunitalfuntoabmonoidfrac (X : abmonoid) (A : submonoid X) : paths (toabmonoidfrac X A (unel X)) (unel (abmonoidfrac X A)).
proof: Proof. apply idpath. Defined.
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders