Definition Monic_Image_of : Type := {x : B & {a : A | f a = x}}.Program Definition Monic_Iso_Monic_Factor_Monic :
    @Monic Type_Cat Monic_Image_of B :=
    {|
      mono_morphism := Monic_From_Image_forward;
      mono_morphism_monomorphic := fun T g h => _
    |}
  .

Theorem Monic_Iso_Monic_Factorization : f = fun x => Monic_From_Image_forward (Monic_To_Image x).