let R be Relation; :: thesis: ( R is REAL -valued implies R is real-valued )
assume R is REAL -valued ; :: thesis: R is real-valued
hence rng R c= REAL by RELAT_1:def 19; :: according to VALUED_0:def 3 :: thesis: verum