consider G, H being AddGroup;
set z = ZERO (G,H);
fun (ZERO (G,H)) is additive ;
then ZERO (G,H) is GroupMorphism-like by Def18;
hence ex b1 being GroupMorphismStr st
( b1 is strict & b1 is GroupMorphism-like ) ; :: thesis: verum