theorem
  commutators({} the carrier of G,A) = {} & commutators(A,{} the carrier
  of G) = {}
proof
  commutators({} the carrier of G,A) c= {}
  proof
    let x be object;
    assume x in commutators({} the carrier of G,A);
    then ex a,b st x = [.a,b.] & a in {} the carrier of G & b in A;
    hence thesis;
  end;
  hence commutators({} the carrier of G,A) = {};
  thus commutators(A,{} the carrier of G) c= {}
  proof
    let x be object;
    assume x in commutators(A,{} the carrier of G);
    then ex a,b st x = [.a,b.] & a in A & b in {} the carrier of G;
    hence thesis;
  end;
  thus thesis;
end;
