reserve ADG for Uniquely_Two_Divisible_Group;
reserve a,b,c,d,a9,b9,c9,p,q for Element of ADG;
reserve x,y for set;

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;
