theorem Th37:
  { x1,x1,x1,x2 } = { x1,x2 }
proof
  thus { x1,x1,x1,x2 } = { x1,x1,x2 } by Th31
    .= { x1,x2 } by Th30;
end;
