theorem
  M1 = the ModuleStr of M2 implies (x in M1 iff x in M2);
