fact: Definition isinj_ismono {X Y} (f : X -> Y) (H : ismono f) : isinj f := fun x0 x1 H' => ap10 (H (Build_HSet Unit) (fun _ => x0) (fun _ => x1) (ap (fun x => unit_name x) H')) tt.
imports: Basics Types.Sigma Types.Forall Types.Paths Types.Unit Types.Arrow