---

Step * 1 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 - 1 / v] ∈ colist(T)
9. ¬(u = 0 ∈ ℤ)
⊢ sub-co-list(T;[x1 / L1];L2)
BY
{ (D 0 With ⌜[u - 1 / v]⌝  THEN Try (Trivial)) }

1
.....wf..... 
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 - 1 / v] ∈ colist(T)
9. ¬(u = 0 ∈ ℤ)
⊢ [u - 1 / v] ∈ colist(ℕ)

2
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 - 1 / v] ∈ colist(T)
9. ¬(u = 0 ∈ ℤ)
⊢ [x1 / L1] = L2@[u - 1 / v] ∈ colist(T)

3
.....wf..... 
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 - 1 / v] ∈ colist(T)
9. ¬(u = 0 ∈ ℤ)
10. ns : colist(ℕ)
⊢ istype([x1 / L1] = L2@ns ∈ 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  -  1  /  v]
9.  \mneg{}(u  =  0)
\mvdash{}  sub-co-list(T;[x1  /  L1];L2)


By

---

Latex:
(D  0  With  \mkleeneopen{}[u  -  1  /  v]\mkleeneclose{}    THEN  Try  (Trivial))

---

Home Index