theorem Th36:
    (Der1(R)).(f*g) = ((Der1(R)).f)*g + f*((Der1(R)).g)
    proof
      per cases;
        suppose f is non constant;
         hence thesis by Th35;
        end;
        suppose f is constant;
          hence thesis by Th34;
        end;
      end;
