1 | 11. RL: S.car* 12. 0 < ||RL|| 13. ||RL|| n-1+1 14. RL[(||RL||-1)] = si 15. ||RL|| = n-1+1 16. i: ||RL||, j: i. RL[i] = RL[j] 17. s:S.car. mem_f(S.car;s;RL)  ( w:Alph*. (S:w si) = s) 18. k: .
k nn 
( RLa:S.car*.
( i:{1..||RL|| }, a:Alph. mem_f(S.car;S.act(a,RL[i]);RL) mem_f(S.car;S.act(a,RL[i]);RLa))
& ( a:Alph. g(a) < k  mem_f(S.car;S.act(a,hd(RL));RL) mem_f(S.car;S.act(a,hd(RL));RLa))
& ( s:S.car. mem_f(S.car;s;RLa)  ( w:Alph*. (S:w si) = s))) 19. RLa: S.car* 20. i:{1..||RL|| }, a:Alph. mem_f(S.car;S.act(a,RL[i]);RL) mem_f(S.car;S.act(a,RL[i]);RLa) 21. a:Alph. g(a) < nn  mem_f(S.car;S.act(a,hd(RL));RL) mem_f(S.car;S.act(a,hd(RL));RLa) 22. s:S.car. mem_f(S.car;s;RLa)  ( w:Alph*. (S:w si) = s) 23. La': S.car* 24. t:S.car. mem_f(S.car;t;RLa)  mem_f(S.car;t;RL) mem_f(S.car;t;La') 25. t:S.car. mem_f(S.car;t;La')  mem_f(S.car;t;RLa) 26. ||La'|| 1  mem_f(S.car;hd(La');RL) 27. ||La'|| 1 (hd(La').RL)[(||RL||+1-1)] = si |