At: nd comp extend wf 1 2 1 1 1
1. Alph: Type
2. St: Type
3. C: {C:{l:((St
Alph*)*)| ||l|| > 0 }|
i:
(||C||-1). ||2of(C[i])|| > 0 }
4. a: Alph
5. q: St
6. i: 
7. 0
i
8. i < ||map(
c. < 1of(c),a.2of(c) > ;C) @ [ < q,nil > ]||-1
||map(
c. < 1of(c),a.2of(c) > ;C) @ [ < q,nil > ]||-1 = ||map(
c. < 1of(c),a.2of(c) > ;C)||+||[ < q,nil > ]||-1
By:
RWH
(LemmaC
Thm*
as,bs:T*. ||as @ bs|| = ||as||+||bs||)
0
THEN
Reduce 0
Generated subgoals:None
About: