let x be object ; :: according to VALUED_0:def 12 :: thesis: ( not x in dom (f |^ a) or not (f |^ a) . x is natural )
set g = f |^ a;
assume x in dom (f |^ a) ; :: thesis: (f |^ a) . x is natural
then (f |^ a) . x = (f . x) |^ a by Def1;
hence (f |^ a) . x is natural ; :: thesis: verum