let x be set ; :: according to RELAT_2:def 1 :: thesis: ( not x in REAL or [x,x] in RealOrd )
assume x in REAL ; :: thesis: [x,x] in RealOrd
then reconsider x = x as Element of REAL ;
x <= x ;
hence [x,x] in RealOrd ; :: thesis: verum