theorem Th3:
  p = |[ p`1, p`2, p`3 ]|
proof
  ex x,y,z st p = <*x,y,z*> by Th1;
  hence thesis;
end;
