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

theorem
  support ppf n = {} implies n = 1
proof
  assume support ppf n = {};
  then support pfexp n = {} by Def9;
  hence thesis by Th52;
end;
