let x be object ; :: according to MEMBERED:def 2 :: thesis: ( not x in [.r,s.[ or x is ext-real )
assume x in [.r,s.[ ; :: thesis: x is ext-real
then ex a being Element of ExtREAL st
( x = a & r <= a & a < s ) ;
hence x is ext-real ; :: thesis: verum