Step * 1 1 1 of Lemma list-at-combine-skips


1. : ℤ
2. 0 < n
3. ∀ms,ns:colist(ℕ). ∀k:ℕ. ∀T:Type. ∀L:colist(T).
     (L@combine-skips(ns;ms;k) nth_tl(k;L)@ns@ms ∈ primrec(n 1;Top;λ,L. (Unit ⋃ (T × L))))
4. : ℤ
5. Type
6. colist(ℕ)
7. u1 : ℤ
8. v1 colist(ℕ)
9. : ℕ
10. colist(T)
⊢ L@[k combine-skips(v1;v;0)]
nth_tl(k;L)@[0 v1]@[0 v]
∈ (Unit ⋃ (T × primrec(n 1;Top;λ,L. (Unit ⋃ (T × L)))))
BY
(Subst' THENA Auto) }

1
1. : ℤ
2. 0 < n
3. ∀ms,ns:colist(ℕ). ∀k:ℕ. ∀T:Type. ∀L:colist(T).
     (L@combine-skips(ns;ms;k) nth_tl(k;L)@ns@ms ∈ primrec(n 1;Top;λ,L. (Unit ⋃ (T × L))))
4. : ℤ
5. Type
6. colist(ℕ)
7. u1 : ℤ
8. v1 colist(ℕ)
9. : ℕ
10. colist(T)
⊢ L@[k combine-skips(v1;v;0)] nth_tl(k;L)@[0 v1]@[0 v] ∈ (Unit ⋃ (T × primrec(n 1;Top;λ,L. (Unit ⋃ (T × L)))))


Latex:


Latex:

1.  n  :  \mBbbZ{}
2.  0  <  n
3.  \mforall{}ms,ns:colist(\mBbbN{}).  \mforall{}k:\mBbbN{}.  \mforall{}T:Type.  \mforall{}L:colist(T).    (L@combine-skips(ns;ms;k)  =  nth\_tl(k;L)@ns@ms)
4.  u  :  \mBbbZ{}
5.  T  :  Type
6.  v  :  colist(\mBbbN{})
7.  u1  :  \mBbbZ{}
8.  v1  :  colist(\mBbbN{})
9.  k  :  \mBbbN{}
10.  L  :  colist(T)
\mvdash{}  L@[k  +  0  /  combine-skips(v1;v;0)]  =  nth\_tl(k;L)@[0  /  v1]@[0  /  v]


By


Latex:
(Subst'  k  +  0  \msim{}  k  0  THENA  Auto)




Home Index