dom (r (#) f) = dom f by Def4X
.= C by FUNCT_2:def 1 ;
hence r (#) f is total by PARTFUN1:def 2; :: thesis: verum