| 2 | 13. RL: < (x,y:Alph*//(x R y)) (x,y:Alph*//(x R y)), a,p. p/x,y. < a.x,a.y > > .car*.
s: < (x,y:Alph*//(x R y)) (x,y:Alph*//(x R y)), a,p. p/x,y. < a.x,a.y > > .car.
( 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)), a,p. p/x,y. < a.x,a.y > > .car;s;RL) Dec( x@0:Alph*. (g(x@0@ x)) = (g(x@0@ y)) = false ) |