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

theorem Th43:
  support pfexp p = {p}
proof
  p = p |^ 1;
  hence thesis by Th42;
end;
