At: back listify 1 1 2 1 2 1 1
1. Alph: Type
2. S: ActionSet(Alph)
3. s: S.car
4. Fin(Alph)
5. Fin(S.car)
6. LL: (S.car
S.car*)*
7. u1: S.car
8. u2: S.car*
9. v: (S.car
S.car*)*
10. BL: S.car*
11.
t:S.car. mem_f(S.car;t;BL) 
(
i:
||v||. 1of(v[i]) = t & mem_f(S.car;s;2of(v[i])))
12.
mem_f(S.car;s;u2)
13. t: S.car
14. mem_f(S.car;t;BL)
15. i:
||v||
16. 1of(v[i]) = t & mem_f(S.car;s;2of(v[i]))
1of(( < u1,u2 > .v)[(i+1)]) = t & mem_f(S.car;s;2of(( < u1,u2 > .v)[(i+1)]))
By:
Unfold `select` 0
THEN
RecUnfold `nth_tl` 0
THEN
SplitOnConclITE
THEN
Reduce 0
THEN
Try (Fold `select` 0 THEN ArithSimp 0)
Generated subgoals:None
About: