Sexp.thy
changeset 48 21291189b51e
parent 0 7949f97df77a
child 110 7c6476c53a6c
--- a/Sexp.thy	Thu Feb 24 14:45:57 1994 +0100
+++ b/Sexp.thy	Wed Mar 02 12:26:55 1994 +0100
@@ -24,10 +24,10 @@
   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,  \