intros e H' H'0; try assumption.
apply Trans with (sgroup_law _ e (monoid_unit E)); auto with algebra.
apply Sym.
apply MONOID_unit_r.
Qed.
Variable F : MONOID.
Variable f : Hom E F.

(* Specifications: *)
Lemma MONOID_hom_prop : Equal (f (monoid_unit E)) (monoid_unit F).
apply (monoid_hom_prf f).