
theorem ThEM1:
  for V being torsion-free Z_Module, v being Vector of V holds
  Class(EQRZM(V), [v, 1]) in EMbedding(V)
  proof
    let V be torsion-free Z_Module, v be Vector of V;
    (MorphsZQ(V)).v = Class(EQRZM(V), [v, 1]) by ZMODUL04:def 6;
    then Class(EQRZM(V), [v, 1]) in rng MorphsZQ(V) by FUNCT_2:4;
    hence thesis by defEmbedding;
  end;
