∀a,b:ℤ. (CoPrime(a,b)
⇒ (∀n:ℕ. CoPrime(a,b^n)))
{ (InductionOnNat THEN Reduce 0) }
1. a : ℤ@i
2. b : ℤ@i
3. CoPrime(a,b)@i
⊢ CoPrime(a,1)
.....upcase.....
1. a : ℤ@i
2. b : ℤ@i
3. CoPrime(a,b)@i
4. n : ℤ@i
5. [%2] : 0 < n@i
6. CoPrime(a,b^n - 1)@i
⊢ CoPrime(a,b^n)