fact: Definition monoid_univalence_weq1 (X Y : monoid) : (X = Y) ≃ (X ╝ Y) := total2_paths_equiv _ X Y.
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders