---

Step * 1 2 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] = if u=0 then [x2 / L2@v] else L2@[u - 1 / v] ∈ colist(T)
⊢ ((x1 = x2 ∈ T) ∧ sub-co-list(T;L1;L2)) ∨ sub-co-list(T;[x1 / L1];L2)
BY
{ ((Decide ⌜u = 0 ∈ ℤ⌝⋅ THENA Auto) THEN Reduce (-2)) }

1
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] = [x2 / L2@v] ∈ colist(T)
9. u = 0 ∈ ℤ
⊢ ((x1 = x2 ∈ T) ∧ sub-co-list(T;L1;L2)) ∨ sub-co-list(T;[x1 / L1];L2)

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 = x2 ∈ T) ∧ sub-co-list(T;L1;L2)) ∨ sub-co-list(T;[x1 / L1];L2)

---

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]  =  if  u=0  then  [x2  /  L2@v]  else  L2@[u  -  1  /  v]
\mvdash{}  ((x1  =  x2)  \mwedge{}  sub-co-list(T;L1;L2))  \mvee{}  sub-co-list(T;[x1  /  L1];L2)


By

---

Latex:
((Decide  \mkleeneopen{}u  =  0\mkleeneclose{}\mcdot{}  THENA  Auto)  THEN  Reduce  (-2))

---

Home Index