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;
