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

theorem Th3:
  a <> 0 implies n divides n |^ a
proof
  assume a <> 0;
  then consider b being Nat such that
A1: a = b+1 by NAT_1:6;
  reconsider b as Element of NAT by ORDINAL1:def 12;
  n |^ 1 divides n |^ (b+1) by NAT_1:12,NEWTON:89;
  hence thesis by A1;
end;
