reserve d,i,j,k,m,n,p,q,x,k1,k2 for Nat,
  a,c,i1,i2,i3,i5 for Integer;

theorem
  (p |^ k) mod m = ((p mod m) |^ k) mod m by EULER_2:22;
