theorem Th46:
  <*p1,p2*>/^1 = <*p2*> by Th45;
