src/Pure/thm.ML
changeset 6899 020314dadebd
parent 6786 0af1797d5315
child 6928 9b4cd97b459d
--- a/src/Pure/thm.ML	Mon Jul 05 09:52:25 1999 +0200
+++ b/src/Pure/thm.ML	Tue Jul 06 21:03:03 1999 +0200
@@ -151,6 +151,7 @@
   val dest_mss		: meta_simpset ->
     {simps: thm list, congs: thm list, procs: (string * cterm list) list}
   val empty_mss         : meta_simpset
+  val clear_mss		: meta_simpset -> meta_simpset
   val merge_mss		: meta_simpset * meta_simpset -> meta_simpset
   val add_simps         : meta_simpset * thm list -> meta_simpset
   val del_simps         : meta_simpset * thm list -> meta_simpset
@@ -1582,8 +1583,10 @@
 
 val empty_mss =
   let val mk_rews = {mk = K [], mk_sym = K None, mk_eq_True = K None}
-  in mk_mss (Net.empty, ([],[]), Net.empty, [], [], mk_rews, Term.termless)
-  end;
+  in mk_mss (Net.empty, ([], []), Net.empty, [], [], mk_rews, Term.termless) end;
+
+fun clear_mss (Mss {mk_rews, termless, ...}) =
+  mk_mss (Net.empty, ([], []), Net.empty, [], [], mk_rews, termless);