theorem Th4:
  m1 c= m1 + m2
proof
  let p;
  assume p in P;
  then (m1 + m2) multitude_of p = (m1 multitude_of p)+(m2 multitude_of p)
  by Def4;
  hence thesis by NAT_1:11;
end;
