At: nd comp extend wf 1 2 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)||+1-1
i < ||C||
By: RWH
(LemmaC
Thm* f:(A
B), as:A*. ||map(f;as)|| = ||as|| 
)
8
Generated subgoals:None
About:
