proposition: Lemma merely_split_monic_to_split_monic {X : UU} (m : A --> B) : isaprop X -> (is_split_monic m -> X) -> is_merely_split_monic m -> X.
proof: Proof. intros isx impl mere. refine (factor_through_squash isx _ mere). assumption. Qed.
imports: UniMath.Foundations.PartD UniMath.Foundations.Propositions UniMath.MoreFoundations.Tactics UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Monics UniMath.CategoryTheory.Epis UniMath.CategoryTheory.Retracts