theorem
  [:X,X,X:] = [:Y,Y,Y:] implies X = Y
proof
  assume [:X,X,X:] = [:Y,Y,Y:];
  then X<>{} or Y<>{} implies thesis by Th22;
  hence thesis;
end;
