reserve r,t for Real;
reserve i for Integer;
reserve k,n for Nat;
reserve p for Polynomial of F_Real;
reserve e for Element of F_Real;
reserve L for non empty ZeroStr;
reserve z,z0,z1,z2 for Element of L;

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