reserve x,y for set,
  n,m for Nat,
  r,s for Real;

theorem Th12:
  MIM( <*>REAL ) = <*>REAL
proof
  set o = <*>REAL, mo = MIM(o);
  len mo = len o by Def2;
  hence thesis;
end;
