reserve x1,x2,z for set;
reserve A,B for non empty set;
reserve f,g,h for Element of Funcs(A,REAL);
reserve a,b for Real;

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;
