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 ==================== *)