Section Def.
Variable G G' : GROUP.
Variable f : Hom G G'.
Definition surj_group_quo_ker :
Hom G (group_quo G (Ker f) (kernel_normal (G:=G) (G':=G') (f:=f))) :=
group_quo_surj (kernel_normal (f:=f)).
red in |- *.
simpl in |- *.
unfold group_quo_eq, subtype_image_equal in |- *.
intros y; exists y; try assumption.
simpl in |- *.
apply Trans with (Ap (sgroup_map (monoid_sgroup_hom f)) (monoid_unit G));
auto with algebra.
Qed.
Definition inj_coKer_group : Hom (coKer f:GROUP) G'.
apply (BUILD_HOM_GROUP (G:=coKer f) (G':=G') (ff:=inj_part (coKer f))).
simpl in |- *.
auto with algebra.
simpl in |- *.
auto with algebra.
simpl in |- *.
auto with algebra.
Defined.

Lemma inj_coKer_group_injective : injective inj_coKer_group.