src/HOL/TLA/Intensional.ML
changeset 4089 96fba19bcbe2
parent 3945 ae9c61d69888
child 6255 db63752140c7
--- a/src/HOL/TLA/Intensional.ML	Mon Nov 03 12:12:10 1997 +0100
+++ b/src/HOL/TLA/Intensional.ML	Mon Nov 03 12:13:18 1997 +0100
@@ -89,7 +89,7 @@
 	 Const("Intensional.TrueInt",_) $ p => int_unlift th
        | _ => th);
 
-simpset := !simpset setmksimps ((mksimps mksimps_pairs) o maybe_unlift);
+simpset_ref() := simpset() setmksimps ((mksimps mksimps_pairs) o maybe_unlift);
 
 
 (* ==================== Rewrites for abstractions ==================== *)