---

Step * 1 of Lemma map-as-map-upto

.....equality..... 
1. F : Top
2. u : Top
3. v : Top List
4. map(λx.F[x];v) ~ map(λi.F[v[i]];upto(||v||))
⊢ upto(||v|| + 1) ~ [0 / map(λi.(i + 1);upto(||v||))]
BY
{ ((InstLemma `upto_decomp` [⌜||v|| + 1⌝;⌜1⌝]⋅ THENM RWO "-1" 0) THENA Auto) }

1
1. F : Top
2. u : Top
3. v : Top List
4. map(λx.F[x];v) ~ map(λi.F[v[i]];upto(||v||))
5. upto(||v|| + 1) ~ upto(1) @ map(λx.(x + 1);upto((||v|| + 1) - 1))
⊢ upto(1) @ map(λx.(x + 1);upto((||v|| + 1) - 1)) ~ [0 / map(λi.(i + 1);upto(||v||))]

---

Latex:

---

Latex:
.....equality..... 
1.  F  :  Top
2.  u  :  Top
3.  v  :  Top  List
4.  map(\mlambda{}x.F[x];v)  \msim{}  map(\mlambda{}i.F[v[i]];upto(||v||))
\mvdash{}  upto(||v||  +  1)  \msim{}  [0  /  map(\mlambda{}i.(i  +  1);upto(||v||))]


By

---

Latex:
((InstLemma  `upto\_decomp`  [\mkleeneopen{}||v||  +  1\mkleeneclose{};\mkleeneopen{}1\mkleeneclose{}]\mcdot{}  THENM  RWO  "-1"  0)  THENA  Auto)

---

Home Index