---

Step * 2 1 of Lemma select-front-as-reduce

.....truecase..... 
1. n : ℕ
2. u : Top
3. v : Top List
4. reduce(λu,x. if ||x|| <z n + 1 then x @ [u] else tl(x) @ [u] fi ;[];v) ~ rev(firstn(n + 1;v))
5. ||v|| ≤ (n + 1)
6. ||firstn(n + 1;v)|| < n + 1
⊢ rev(firstn(n + 1;v)) @ [u] ~ rev(firstn(n + 1;[u / v]))
BY
{ ((RWO "firstn_all" (-1) THEN Try (Complete (Auto'))) THEN RWO "firstn_all" 0 THEN Try (Complete (Auto')))⋅ }

---

Latex:

---

Latex:
.....truecase..... 
1.  n  :  \mBbbN{}
2.  u  :  Top
3.  v  :  Top  List
4.  reduce(\mlambda{}u,x.  if  ||x||  <z  n  +  1  then  x  @  [u]  else  tl(x)  @  [u]  fi  ;[];v)  \msim{}  rev(firstn(n  +  1;v))
5.  ||v||  \mleq{}  (n  +  1)
6.  ||firstn(n  +  1;v)||  <  n  +  1
\mvdash{}  rev(firstn(n  +  1;v))  @  [u]  \msim{}  rev(firstn(n  +  1;[u  /  v]))


By

---

Latex:
((RWO  "firstn\_all"  (-1)  THEN  Try  (Complete  (Auto')))
  THEN  RWO  "firstn\_all"  0
  THEN  Try  (Complete  (Auto')))\mcdot{}

---

Home Index