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