---

Step * of Lemma zip-append

∀[A,B:Type]. ∀[xs1:A List]. ∀[ys1:B List]. ∀[xs2:A List]. ∀[ys2:B List].
  zip(xs1 @ xs2;ys1 @ ys2) ~ zip(xs1;ys1) @ zip(xs2;ys2) supposing ||xs1|| = ||ys1|| ∈ ℤ
BY
{ (RepeatFor 2 (InductionOnList)
   THEN (UnivCD THENA Auto)
   THEN Reduce (-1)
   THEN Try (Complete (Auto'))
   THEN Reduce 0
   THEN EqCD
   THEN Try ((BackThruSomeHyp THEN Auto))
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[A,B:Type].  \mforall{}[xs1:A  List].  \mforall{}[ys1:B  List].  \mforall{}[xs2:A  List].  \mforall{}[ys2:B  List].
    zip(xs1  @  xs2;ys1  @  ys2)  \msim{}  zip(xs1;ys1)  @  zip(xs2;ys2)  supposing  ||xs1||  =  ||ys1||


By

---

Latex:
(RepeatFor  2  (InductionOnList)
  THEN  (UnivCD  THENA  Auto)
  THEN  Reduce  (-1)
  THEN  Try  (Complete  (Auto'))
  THEN  Reduce  0
  THEN  EqCD
  THEN  Try  ((BackThruSomeHyp  THEN  Auto))
  THEN  Auto)

---

Home Index