---

Step * 2 2 1 of Lemma member-zip


1. [A] : Type
2. [B] : Type
3. u : A@i
4. v : A List@i
5. ∀ys:B List. ∀x:A. ∀y:B.  ((<x, y> ∈ zip(v;ys)) ⇒ {(x ∈ v) ∧ (y ∈ ys)})@i
6. u1 : B@i
7. v1 : B List@i
8. ∀x:A. ∀y:B.  ((<x, y> ∈ zip([u / v];v1)) ⇒ {(x ∈ [u / v]) ∧ (y ∈ v1)})@i
9. x : A@i
10. y : B@i
11. <x, y> = <u, u1> ∈ (A × B)
⊢ {(x ∈ [u / v]) ∧ (y ∈ [u1 / v1])}
BY
{ ((EqHD (-1))
   THEN All Reduce
   THEN Auto
   THEN Unfold `guard` 0
   THEN RWO "cons_member" 0
   THEN Auto
   THEN OrLeft
   THEN Auto) }

---

Latex:

---

Latex:

1.  [A]  :  Type
2.  [B]  :  Type
3.  u  :  A@i
4.  v  :  A  List@i
5.  \mforall{}ys:B  List.  \mforall{}x:A.  \mforall{}y:B.    ((<x,  y>  \mmember{}  zip(v;ys))  {}\mRightarrow{}  \{(x  \mmember{}  v)  \mwedge{}  (y  \mmember{}  ys)\})@i
6.  u1  :  B@i
7.  v1  :  B  List@i
8.  \mforall{}x:A.  \mforall{}y:B.    ((<x,  y>  \mmember{}  zip([u  /  v];v1))  {}\mRightarrow{}  \{(x  \mmember{}  [u  /  v])  \mwedge{}  (y  \mmember{}  v1)\})@i
9.  x  :  A@i
10.  y  :  B@i
11.  <x,  y>  =  <u,  u1>
\mvdash{}  \{(x  \mmember{}  [u  /  v])  \mwedge{}  (y  \mmember{}  [u1  /  v1])\}


By

---

Latex:
((EqHD  (-1))
  THEN  All  Reduce
  THEN  Auto
  THEN  Unfold  `guard`  0
  THEN  RWO  "cons\_member"  0
  THEN  Auto
  THEN  OrLeft
  THEN  Auto)

---

Home Index