1 | 13. RL: ((x,y:Alph*//(x R y)) (x,y:Alph*//(x R y)))* 14. s:((x,y:Alph*//(x R y)) (x,y:Alph*//(x R y))).
( w:Alph*. ( < (x,y:Alph*//(x R y)) (x,y:Alph*//(x R y)), a,p. p/x,y. < a.x,a.y > > :w < x,y > ) = s)

mem_f((x,y:Alph*//(x R y)) (x,y:Alph*//(x R y));s;RL) Dec( x@0:Alph*. (g(x@0@ x)) = (g(x@0@ y)) = false ) |