:: deftheorem defines rational-valued VALUED_0:def 10 :
for f being Function holds
( f is rational-valued iff for x being object st x in dom f holds
f . x is rational );