At: nd comp extend wf 1 1 2 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
||map(
c. < 1of(c),a.2of(c) > ;C)||+||[ < q,nil > ]|| > 0
By: Reduce 0
Generated subgoals:None
About: