A1: dom (r (#) f) = dom f by Def5;
rng (r (#) f) c= REAL by VALUED_0:def 3;
hence r (#) f is PartFunc of C,REAL by A1, RELSET_1:11; :: thesis: verum