TFL/rules.ML
changeset 17171 79ab8ea7b097
parent 17148 858cab621db2
child 17203 29b2563f5c11
--- a/TFL/rules.ML	Sun Aug 28 16:04:54 2005 +0200
+++ b/TFL/rules.ML	Sun Aug 28 16:04:55 2005 +0200
@@ -401,11 +401,11 @@
        val tych = cterm_of sign
        val detype = #t o rep_cterm
        val blist' = map (fn (x,y) => (detype x, detype y)) blist
-       fun ?? v M  = cterm_of sign (S.mk_exists{Bvar=v,Body = M})
+       fun ex v M  = cterm_of sign (S.mk_exists{Bvar=v,Body = M})
 
   in
   fold_rev (fn (b as (r1,r2)) => fn thm =>
-        EXISTS(?? r2 (subst_free [b]
+        EXISTS(ex r2 (subst_free [b]
                    (HOLogic.dest_Trueprop(#prop(rep_thm thm)))), tych r1)
               thm)
        blist' th