
theorem ThRankEM:
  for V being finite-rank free Z_Module holds
  rank(EMbedding(V)) = rank(V)
  proof
    let V be finite-rank free Z_Module;
    consider T be linear-transformation of V,EMbedding(V) such that
    A1: T is bijective & T = MorphsZQ(V) &
    (for v being Vector of V holds T.v = Class(EQRZM(V),[v,1])) by SB03;
    thus thesis by A1,ZMODUL06:51;
  end;
