theorem
  (pfexp p).p = 1
proof
  p = p |^ 1;
  hence thesis by Th40;
end;
