---

Step * 2 2 2 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. v : colist(ℕ)
8. [x1 / L1] = L2@[u / v] ∈ colist(T)
⊢ [x1 / L1] = [x2 / L2]@[u + 1 / v] ∈ colist(T)
BY
{ ((Unfold `co-cons` 0 THEN Fold `cons` 0 THEN Unfold `list-at` 0) THEN Reduce 0 THEN AutoSplit) }

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)
⊢ [x1 / L1] = L2@[(u + 1) - 1 / v] ∈ colist(T)

---

Latex:

---

Latex:

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


By

---

Latex:
((Unfold  `co-cons`  0  THEN  Fold  `cons`  0  THEN  Unfold  `list-at`  0)  THEN  Reduce  0  THEN  AutoSplit)

---

Home Index