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