:: deftheorem Def8 defines omega-r SURREALC:def 8 :
for x being Surreal st not x == 0_No holds
for b2 being non zero Real holds
( b2 = omega-r x iff |.(x - ((No_omega^ (omega-y x)) * (uReal . b2))).| infinitely< |.x.| );