let A be non empty set ; :: thesis: for f being Element of Funcs A,REAL holds (RealFuncMult A) . (RealFuncUnit A),f = f
let f be Element of Funcs A,REAL ; :: thesis: (RealFuncMult A) . (RealFuncUnit A),f = f

now

let x be Element of A; :: thesis: ((RealFuncMult A) . (RealFuncUnit A),f) . x = f . x
thus ((RealFuncMult A) . (RealFuncUnit A),f) . x = ((RealFuncUnit A) . x) * (f . x) by Th11
.= 1 * (f . x) by FUNCOP_1:13
.= f . x ; :: thesis: verum

end;

hence (RealFuncMult A) . (RealFuncUnit A),f = f by FUNCT_2:113; :: thesis: verum