theorem Th37:
  (f is_partial_differentiable_in p,1 & f is_partial_differentiable_in p,2 &
  f is_partial_differentiable_in p,3) implies grad(r(#)f,p) = r*grad(f,p)
proof
    assume
A1: f is_partial_differentiable_in p,1 & f is_partial_differentiable_in p,2 &
    f is_partial_differentiable_in p,3;
   reconsider r as Real;
    grad(r(#)f,p)
    = |[ partdiff(r(#)f,p,1),partdiff(r(#)f,p,2),partdiff(r(#)f,p,3) ]|
      by Th34
   .= |[ r*partdiff(f,p,1),partdiff(r(#)f,p,2),partdiff(r(#)f,p,3) ]|
     by A1,PDIFF_1:33
   .= |[ r*partdiff(f,p,1),r*partdiff(f,p,2),partdiff(r(#)f,p,3)]|
     by A1,PDIFF_1:33
   .= |[ r*partdiff(f,p,1),r*partdiff(f,p,2),r*partdiff(f,p,3) ]|
     by A1,PDIFF_1:33
   .= r*|[ partdiff(f,p,1),partdiff(f,p,2),partdiff(f,p,3) ]| by EUCLID_8:59
   .= r*grad(f,p) by Th34;
    hence thesis;
end;
