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

theorem Th40:
  (pfexp (p|^a)).p = a
proof
  set f = pfexp (p|^a);
  p > 1 & f.p = p |-count (p|^a) by Def8,INT_2:def 4;
  hence thesis by Th25;
end;
