theorem Th7:
  for A be set, f,g be Element of Funcs(A,REAL) holds
    (RealFuncMult A).(f,g) = (RealFuncMult A).(g,f)
proof let A be set, f,g be Element of Funcs(A,REAL);
  thus (RealFuncMult A).(f,g) = multreal.:(f,g) by Def2
    .= multreal.:(g,f) by FUNCOP_1:65
    .= (RealFuncMult A).(g,f) by Def2;
end;
