---

Step * of Lemma rprod-split-last

∀[n,m:ℤ]. ∀[x:{n..m + 1-} ⟶ ℝ].  rprod(n;m;k.x[k]) = (rprod(n;m - 1;k.x[k]) * x[m]) supposing n ≤ m
BY
{ ((InstLemma `rprod-split` [] THEN RepeatFor 3 (ParallelLast'))
   THEN (D 0 THENA Auto)
   THEN InstHyp [⌜m - 1⌝] (-2)⋅
   THEN Auto
   THEN (RWO "-1" 0 THENA Auto)
   THEN BLemma `rmul_functionality`
   THEN Auto
   THEN Subst' (m - 1) + 1 ~ m 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[n,m:\mBbbZ{}].  \mforall{}[x:\{n..m  +  1\msupminus{}\}  {}\mrightarrow{}  \mBbbR{}].    rprod(n;m;k.x[k])  =  (rprod(n;m  -  1;k.x[k])  *  x[m])  supposing  n  \mleq{}  m


By

---

Latex:
((InstLemma  `rprod-split`  []  THEN  RepeatFor  3  (ParallelLast'))
  THEN  (D  0  THENA  Auto)
  THEN  InstHyp  [\mkleeneopen{}m  -  1\mkleeneclose{}]  (-2)\mcdot{}
  THEN  Auto
  THEN  (RWO  "-1"  0  THENA  Auto)
  THEN  BLemma  `rmul\_functionality`
  THEN  Auto
  THEN  Subst'  (m  -  1)  +  1  \msim{}  m  0
  THEN  Auto)

---

Home Index