---

Step * 1 of Lemma rsum-shift


1. k : ℤ
2. n : ℤ
3. m : ℤ
4. x : Top
⊢ map(λi.x[i];[n, m + 1)) ~ map(λi.x[i + k];[n - k, (m - k) + 1))
BY
{ ((InstLemma `map-map` [⌜[n - k, (m - k) + 1)⌝;⌜λi.(i + k)⌝;⌜λi.x[i]⌝]⋅ THENA Auto)
   THEN RepUR ``compose`` (-1)
   THEN RWO "-1<" 0
   THEN EqCD
   THEN Auto) }

---

Latex:

---

Latex:

1.  k  :  \mBbbZ{}
2.  n  :  \mBbbZ{}
3.  m  :  \mBbbZ{}
4.  x  :  Top
\mvdash{}  map(\mlambda{}i.x[i];[n,  m  +  1))  \msim{}  map(\mlambda{}i.x[i  +  k];[n  -  k,  (m  -  k)  +  1))


By

---

Latex:
((InstLemma  `map-map`  [\mkleeneopen{}[n  -  k,  (m  -  k)  +  1)\mkleeneclose{};\mkleeneopen{}\mlambda{}i.(i  +  k)\mkleeneclose{};\mkleeneopen{}\mlambda{}i.x[i]\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  RepUR  ``compose``  (-1)
  THEN  RWO  "-1<"  0
  THEN  EqCD
  THEN  Auto)

---

Home Index