---

Step * 2 2 2 1 1 of Lemma cons-sub-co-list-cons


1. T : Type
2. x1 : T
3. x2 : T
4. L1 : colist(T)
5. L2 : colist(T)
6. u : ℕ
7. u + 1 ≠ 0
8. v : colist(ℕ)
9. [x1 / L1] = L2@[u / v] ∈ colist(T)
⊢ [x1 / L1] = L2@[(u + 1) - 1 / v] ∈ colist(T)
BY
{ (NthHypSq (-1) THEN EqCD) }

1
1. T : Type
2. x1 : T
3. x2 : T
4. L1 : colist(T)
5. L2 : colist(T)
6. u : ℕ
7. u + 1 ≠ 0
8. v : colist(ℕ)
9. [x1 / L1] = L2@[u / v] ∈ colist(T)
⊢ colist(T) ~ colist(T)

2
1. T : Type
2. x1 : T
3. x2 : T
4. L1 : colist(T)
5. L2 : colist(T)
6. u : ℕ
7. u + 1 ≠ 0
8. v : colist(ℕ)
9. [x1 / L1] = L2@[u / v] ∈ colist(T)
⊢ [x1 / L1] ~ [x1 / L1]

3
1. T : Type
2. x1 : T
3. x2 : T
4. L1 : colist(T)
5. L2 : colist(T)
6. u : ℕ
7. u + 1 ≠ 0
8. v : colist(ℕ)
9. [x1 / L1] = L2@[u / v] ∈ colist(T)
⊢ L2@[(u + 1) - 1 / v] ~ L2@[u / v]

---

Latex:

---

Latex:

1.  T  :  Type
2.  x1  :  T
3.  x2  :  T
4.  L1  :  colist(T)
5.  L2  :  colist(T)
6.  u  :  \mBbbN{}
7.  u  +  1  \mneq{}  0
8.  v  :  colist(\mBbbN{})
9.  [x1  /  L1]  =  L2@[u  /  v]
\mvdash{}  [x1  /  L1]  =  L2@[(u  +  1)  -  1  /  v]


By

---

Latex:
(NthHypSq  (-1)  THEN  EqCD)

---

Home Index