reserve D,D9 for non empty set;
reserve R for Ring;
reserve G,H,S for non empty ModuleStr over R;
reserve UN for Universe;
reserve R for Ring;
reserve G, H for LeftMod of R;
reserve G1, G2, G3 for LeftMod of R;
reserve f for LModMorphismStr over R;

theorem Th6:
  for f being Function of G,H st f is additive homogeneous
   holds LModMorphismStr
  (#G,H,f#) is strict Morphism of G,H
proof
  let f be Function of G,H such that
A1: f is additive homogeneous;
  set F = LModMorphismStr (#G,H,f#);
  fun(F) = f;
  hence thesis by A1,Th5;
end;
