theorem Th131:
  X is non-empty & X c= Y implies Y is non-empty
proof
  assume
A1: X is non-empty & X c= Y;
  let i be object;
  assume i in I;
  then X.i c= Y.i & X.i is non empty by A1;
  hence thesis;
end;
