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, \