theorem Th55:
  |(p,p)| = (p.1)^2 + (p.2)^2 + (p.3)^2
proof
  p = |[ p.1,p.2,p.3 ]| by Th1;
  hence thesis by Lm12;
end;
