1 | 1. Alph: Type{i} 2. St: Type{i} 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 (i < ||map( c. < 1of(c),a.2of(c) > ;C) @ [ < q,nil > ]||-1)
=
(i < ||map( c. < 1of(c),a.2of(c) > ;C)||+||[ < q,nil > ]||-1) |