---

Step * 2 1 of Lemma cyclic-map-equipollent


1. n : ℕ+
2. ∀L:Combination(n - 1;ℕn - 1). ([n - 1 / L] ∈ Combination(n;ℕn))
3. a1 : Combination(n - 1;ℕn - 1)
4. a2 : Combination(n - 1;ℕn - 1)
5. cycle([n - 1 / a1]) = cycle([n - 1 / a2]) ∈ cyclic-map(ℕn)
⊢ a1 = a2 ∈ Combination(n - 1;ℕn - 1)
BY
{ xxx(DVar `a1' THEN DVar `a2' THEN EqTypeCD THEN Auto THEN BLemma `list_extensionality` THEN Auto)xxx }

1
1. n : ℕ+
2. ∀L:Combination(n - 1;ℕn - 1). ([n - 1 / L] ∈ Combination(n;ℕn))
3. a1 : ℕn - 1 List
4. no_repeats(ℕn - 1;a1)
5. ||a1|| = (n - 1) ∈ ℤ
6. a2 : ℕn - 1 List
7. no_repeats(ℕn - 1;a2)
8. ||a2|| = (n - 1) ∈ ℤ
9. cycle([n - 1 / a1]) = cycle([n - 1 / a2]) ∈ cyclic-map(ℕn)
10. i : ℕ
11. i < ||a1||
⊢ a1[i] = a2[i] ∈ ℕn - 1

---

Latex:

---

Latex:

1.  n  :  \mBbbN{}\msupplus{}
2.  \mforall{}L:Combination(n  -  1;\mBbbN{}n  -  1).  ([n  -  1  /  L]  \mmember{}  Combination(n;\mBbbN{}n))
3.  a1  :  Combination(n  -  1;\mBbbN{}n  -  1)
4.  a2  :  Combination(n  -  1;\mBbbN{}n  -  1)
5.  cycle([n  -  1  /  a1])  =  cycle([n  -  1  /  a2])
\mvdash{}  a1  =  a2


By

---

Latex:
xxx(DVar  `a1'  THEN  DVar  `a2'  THEN  EqTypeCD  THEN  Auto  THEN  BLemma  `list\_extensionality`  THEN  Auto)xxx

---

Home Index