
theorem
  for V being finite-rank free Z_Module, r being non zero Element of F_Rat
  holds rank(EMbedding(r, V)) = rank(V)
  proof
    let V be finite-rank free Z_Module, r be non zero Element of F_Rat;
    thus rank(EMbedding(r, V)) = rank(EMbedding(V)) by ThRankrEM1
    .= rank(V) by ThRankEM;
  end;
