1 | 17. w: Alph* 18. s: (x,y:Alph*//(x R y)) (x,y:Alph*//(x R y)) ( < (x,y:Alph*//(x R y)) (x,y:Alph*//(x R y)), a,xy. xy/x,y. < a.x,a.y > > :nil s)
=
(s/x,y. < nil@ x,nil@ y > ) |
2 | 17. w: Alph* 18. s: (x,y:Alph*//(x R y)) (x,y:Alph*//(x R y)) 19. u: Alph 20. v: Alph* 21. ( < (x,y:Alph*//(x R y)) (x,y:Alph*//(x R y)), a,xy. xy/x,y. < a.x,a.y > > :v s) = (s/x,y. < v@ x,v@ y > ) ( < (x,y:Alph*//(x R y)) (x,y:Alph*//(x R y)), a,xy. xy/x,y. < a.x,a.y > > :u.v s)
=
(s/x,y. < u.v@ x,u.v@ y > ) |