theorem
  ({}(the carrier of G))" = {}
proof
  thus ({}(the carrier of G))" c= {}
  proof
    let x be object;
    assume x in ({}(the carrier of G))";
    then ex a st x = a" & a in {}the carrier of G;
    hence thesis;
  end;
  thus thesis;
end;
