reserve a, b, n for Nat,
  r for Real,
  f for FinSequence of REAL;
reserve p for Prime;

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