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

theorem Th38:
  for a being non zero Nat st p divides a holds (pfexp a).p <> 0
proof
  let a be non zero Nat;
  assume p divides a;
  then
A1: p |^ (0+1) divides a;
  (pfexp a).p = p |-count a & p <> 1 by Def8,INT_2:def 4;
  hence thesis by A1,Def7;
end;
