---

Step * 1 2 of Lemma select_zip


1. T1 : Type
2. T2 : Type
3. u : T1
4. v : T1 List
5. ∀[bs:T2 List]. ∀[i:ℕ].  zip(v;bs)[i] = <v[i], bs[i]> ∈ (T1 × T2) supposing i < ||zip(v;bs)||
6. u1 : T2
7. v1 : T2 List
8. ∀[i:ℕ]. zip([u / v];v1)[i] = <[u / v][i], v1[i]> ∈ (T1 × T2) supposing i < ||zip([u / v];v1)||
9. i : ℕ
10. i < ||zip(v;v1)|| + 1
11. ¬(i = 0 ∈ ℤ)
⊢ [<u, u1> / zip(v;v1)][i] = <[u / v][i], [u1 / v1][i]> ∈ (T1 × T2)
BY
{ (((InstLemma `zip_length` [T1;T2;v;v1] THENM RWW "select_cons_tl" 0) THENM BackThruSomeHyp) THEN Auto) }

---

Latex:

---

Latex:

1.  T1  :  Type
2.  T2  :  Type
3.  u  :  T1
4.  v  :  T1  List
5.  \mforall{}[bs:T2  List].  \mforall{}[i:\mBbbN{}].    zip(v;bs)[i]  =  <v[i],  bs[i]>  supposing  i  <  ||zip(v;bs)||
6.  u1  :  T2
7.  v1  :  T2  List
8.  \mforall{}[i:\mBbbN{}].  zip([u  /  v];v1)[i]  =  <[u  /  v][i],  v1[i]>  supposing  i  <  ||zip([u  /  v];v1)||
9.  i  :  \mBbbN{}
10.  i  <  ||zip(v;v1)||  +  1
11.  \mneg{}(i  =  0)
\mvdash{}  [<u,  u1>  /  zip(v;v1)][i]  =  <[u  /  v][i],  [u1  /  v1][i]>


By

---

Latex:
(((InstLemma  `zip\_length`  [T1;T2;v;v1]  THENM  RWW  "select\_cons\_tl"  0)  THENM  BackThruSomeHyp)
  THEN  Auto
  )

---

Home Index