---

Step * 1 1 1 1 2 of Lemma p-adic-inv-lemma1

.....upcase..... 
1. a : ℤ@i
2. b : ℤ@i
3. CoPrime(a,b)
4. n : ℤ@i
5. [%2] : 0 < n@i
6. CoPrime(a,b^(n - 1))
⊢ CoPrime(a,b^n)
BY
{ (Unfold `exp` 0 THEN (RWO "primrec-unroll" 0 THENA Auto) THEN AutoBoolCase ⌜n <z 1⌝⋅ THEN Fold `exp` 0) }

1
1. a : ℤ@i
2. b : ℤ@i
3. CoPrime(a,b)
4. n : ℤ@i
5. ¬n < 1
6. [%2] : 0 < n@i
7. CoPrime(a,b^(n - 1))
⊢ CoPrime(a,b * b^(n - 1))

---

Latex:

---

Latex:
.....upcase..... 
1.  a  :  \mBbbZ{}@i
2.  b  :  \mBbbZ{}@i
3.  CoPrime(a,b)
4.  n  :  \mBbbZ{}@i
5.  [\%2]  :  0  <  n@i
6.  CoPrime(a,b\^{}(n  -  1))
\mvdash{}  CoPrime(a,b\^{}n)


By

---

Latex:
(Unfold  `exp`  0
  THEN  (RWO  "primrec-unroll"  0  THENA  Auto)
  THEN  AutoBoolCase  \mkleeneopen{}n  <z  1\mkleeneclose{}\mcdot{}
  THEN  Fold  `exp`  0)

---

Home Index