theorem Th40:
  x in H implies x in G
proof
  assume x in H;
  then
A1: x in the carrier of H;
  the carrier of H c= the carrier of G by Def5;
  hence thesis by A1;
end;
