---

Step * 1 of Lemma add-poly-prepend-sq1


∀[q,l:(ℤ × (ℤ List)) List].  (add-ipoly-prepend([];q;l) ~ rev(l) + add-ipoly([];q))
BY
{ ((RecUnfold `add-ipoly-prepend` 0 THEN RecUnfold `add-ipoly` 0)
   THEN Reduce 0
   THEN (Subst' null(⋅) ~ tt 0 THENA Auto)
   THEN Reduce 0
   THEN Auto
   THEN CallByValueReduce 0
   THEN Auto) }

---

Latex:

---

Latex:

\mforall{}[q,l:(\mBbbZ{}  \mtimes{}  (\mBbbZ{}  List))  List].    (add-ipoly-prepend([];q;l)  \msim{}  rev(l)  +  add-ipoly([];q))


By

---

Latex:
((RecUnfold  `add-ipoly-prepend`  0  THEN  RecUnfold  `add-ipoly`  0)
  THEN  Reduce  0
  THEN  (Subst'  null(\mcdot{})  \msim{}  tt  0  THENA  Auto)
  THEN  Reduce  0
  THEN  Auto
  THEN  CallByValueReduce  0
  THEN  Auto)

---

Home Index