:: deftheorem sgnF defines signum REALALG3:def 10 :
for R being ordered Ring
for P being Ordering of R
for b3 being Function of the carrier of R,INT holds
( b3 = signum P iff for a being Element of R holds b3 . a = signum (P,a) );