Sexp.thy

   Sexp_def "Sexp == lfp(%Z. range(Leaf) Un range(Numb) Un Z<*>Z)"
 
   Sexp_case_def	
    "Sexp_case(M,c,d,e) == @ z. (? x.   M=Leaf(x) & z=c(x))  \
 \                            | (? k.   M=Numb(k) & z=d(k))  \
-\                            | (? N1 N2. M = N1 . N2  & z=e(N1,N2))"
+\                            | (? N1 N2. M = N1 $ N2  & z=e(N1,N2))"
 
   pred_Sexp_def
-     "pred_Sexp == UN M: Sexp. UN N: Sexp. {<M, M.N>, <N, M.N>}"
+     "pred_Sexp == UN M: Sexp. UN N: Sexp. {<M, M$N>, <N, M$N>}"
 
   Sexp_rec_def
    "Sexp_rec(M,c,d,e) == wfrec(pred_Sexp, M,  \
 \             %M g. Sexp_case(M, c, d, %N1 N2. e(N1, N2, g(N1), g(N2))))"
 end