1 | x:((x,y:Alph*//(x R y)) (x,y:Alph*//(x R y))), y:Alph*.
( < (x,y:Alph*//(x R y)) (x,y:Alph*//(x R y)), a,p. p/x,y. < a.x,a.y > > :y x) = (x/x1,x2. < y@ x1,y@ x2 > ) |
2 | 12. x:((x,y:Alph*//(x R y)) (x,y:Alph*//(x R y))), y:Alph*.
( < (x,y:Alph*//(x R y)) (x,y:Alph*//(x R y)), a,p. p/x,y. < a.x,a.y > > :y x) = (x/x1,x2. < y@ x1,y@ x2 > ) Dec( x@0:Alph*. (g(x@0@ x)) = (g(x@0@ y)) = false ) |