theorem Th6:
  ex a,b being Element of G_Real st a<>b
proof
A1: 0 in REAL & 1 in REAL by XREAL_0:def 1;
  thus thesis by A1;
end;
