theorem Th34:
  grad(f,p) = |[ partdiff(f,p,1),partdiff(f,p,2),partdiff(f,p,3) ]|
proof
  grad(f,p) = |[ partdiff(f,p,1)*1,partdiff(f,p,1)*0,partdiff(f,p,1)*0 ]|+
    partdiff(f,p,2)*|[ 0,jj,0 ]|+partdiff(f,p,3)*|[ 0,0,jj ]| by EUCLID_8:59
 .= |[ partdiff(f,p,1),0,0 ]|+|[ partdiff(f,p,2)*0,partdiff(f,p,2)*1,
    partdiff(f,p,2)*0 ]|+partdiff(f,p,3)*|[ 0,0,jj ]| by EUCLID_8:59
 .= |[ partdiff(f,p,1),0,0 ]|+|[ 0,partdiff(f,p,2),0 ]|+
    |[ partdiff(f,p,3)*0,partdiff(f,p,3)*0,partdiff(f,p,3)*1 ]| by EUCLID_8:59
 .= |[ partdiff(f,p,1)+0,0+partdiff(f,p,2),0+0 ]|+|[ 0,0,partdiff(f,p,3) ]|
    by Lm4
 .= |[ partdiff(f,p,1)+0,partdiff(f,p,2)+0,0+partdiff(f,p,3) ]| by Lm4
 .= |[ partdiff(f,p,1),partdiff(f,p,2),partdiff(f,p,3) ]|;
  hence thesis;
end;
