---

Step * 1 2 2 1 1 2 1 of Lemma fermat-little

.....aux..... 
1. p : ℕ
2. ¬(p = 0 ∈ ℤ)
3. ¬(p ~ 1)
4. ∀b,c:ℤ.  ((p | (b * c)) ⇒ ((p | b) ∨ (p | c)))
5. x : ℕ
6. ℕp ⟶ ℕx ~ ℕx^p
7. Inj(ℕp ⟶ ℕx;ℕp ⟶ ℕx;λg.(g o rot(p)))
8. a1 : ℕp ⟶ ℕx
9. (a1 o rot(p)) = a1 ∈ (ℕp ⟶ ℕx)
10. a2 : ℕp ⟶ ℕx
11. (a2 o rot(p)) = a2 ∈ (ℕp ⟶ ℕx)
12. (a1 0) = (a2 0) ∈ ℕx
13. a1 = (λi.(a1 0)) ∈ (ℕp ⟶ ℕx)
14. n : ℤ
15. 0 < n
16. n < p
17. (a2 (n - 1)) = (a2 0) ∈ ℕx
⊢ (a2 (n - 1)) = (a2 n) ∈ ℕx
BY
{ TACTIC:(RW (AddrC [2;1] (RevHypC 11)) 0 THEN Auto) }

1
1. p : ℕ
2. ¬(p = 0 ∈ ℤ)
3. ¬(p ~ 1)
4. ∀b,c:ℤ.  ((p | (b * c)) ⇒ ((p | b) ∨ (p | c)))
5. x : ℕ
6. ℕp ⟶ ℕx ~ ℕx^p
7. Inj(ℕp ⟶ ℕx;ℕp ⟶ ℕx;λg.(g o rot(p)))
8. a1 : ℕp ⟶ ℕx
9. (a1 o rot(p)) = a1 ∈ (ℕp ⟶ ℕx)
10. a2 : ℕp ⟶ ℕx
11. (a2 o rot(p)) = a2 ∈ (ℕp ⟶ ℕx)
12. (a1 0) = (a2 0) ∈ ℕx
13. a1 = (λi.(a1 0)) ∈ (ℕp ⟶ ℕx)
14. n : ℤ
15. 0 < n
16. n < p
17. (a2 (n - 1)) = (a2 0) ∈ ℕx
⊢ ((a2 o rot(p)) (n - 1)) = (a2 n) ∈ ℕx

---

Latex:

---

Latex:
.....aux..... 
1.  p  :  \mBbbN{}
2.  \mneg{}(p  =  0)
3.  \mneg{}(p  \msim{}  1)
4.  \mforall{}b,c:\mBbbZ{}.    ((p  |  (b  *  c))  {}\mRightarrow{}  ((p  |  b)  \mvee{}  (p  |  c)))
5.  x  :  \mBbbN{}
6.  \mBbbN{}p  {}\mrightarrow{}  \mBbbN{}x  \msim{}  \mBbbN{}x\^{}p
7.  Inj(\mBbbN{}p  {}\mrightarrow{}  \mBbbN{}x;\mBbbN{}p  {}\mrightarrow{}  \mBbbN{}x;\mlambda{}g.(g  o  rot(p)))
8.  a1  :  \mBbbN{}p  {}\mrightarrow{}  \mBbbN{}x
9.  (a1  o  rot(p))  =  a1
10.  a2  :  \mBbbN{}p  {}\mrightarrow{}  \mBbbN{}x
11.  (a2  o  rot(p))  =  a2
12.  (a1  0)  =  (a2  0)
13.  a1  =  (\mlambda{}i.(a1  0))
14.  n  :  \mBbbZ{}
15.  0  <  n
16.  n  <  p
17.  (a2  (n  -  1))  =  (a2  0)
\mvdash{}  (a2  (n  -  1))  =  (a2  n)


By

---

Latex:
TACTIC:(RW  (AddrC  [2;1]  (RevHypC  11))  0  THEN  Auto)

---

Home Index