--- a/src/Provers/classical.ML Wed Apr 10 17:17:16 2013 +0200
+++ b/src/Provers/classical.ML Wed Apr 10 17:27:38 2013 +0200
@@ -56,7 +56,6 @@
val appSWrappers: Proof.context -> wrapper
val appWrappers: Proof.context -> wrapper
- val global_claset_of: theory -> claset
val claset_of: Proof.context -> claset
val map_claset: (claset -> claset) -> Proof.context -> Proof.context
val put_claset: claset -> Proof.context -> Proof.context
@@ -596,7 +595,6 @@
val merge = merge_cs;
);
-val global_claset_of = Claset.get o Context.Theory;
val claset_of = Claset.get o Context.Proof;
val rep_claset_of = rep_cs o claset_of;
--- a/src/Pure/simplifier.ML Wed Apr 10 17:17:16 2013 +0200
+++ b/src/Pure/simplifier.ML Wed Apr 10 17:27:38 2013 +0200
@@ -10,7 +10,6 @@
include BASIC_RAW_SIMPLIFIER
val map_simpset: (simpset -> simpset) -> Proof.context -> Proof.context
val simpset_of: Proof.context -> simpset
- val global_simpset_of: theory -> simpset
val Addsimprocs: simproc list -> unit
val Delsimprocs: simproc list -> unit
val simp_tac: simpset -> int -> tactic
@@ -169,8 +168,6 @@
(* global simpset *)
fun map_simpset_global f = Context.theory_map (map_ss f);
-fun global_simpset_of thy =
- Raw_Simplifier.context (Proof_Context.init_global thy) (get_ss (Context.Theory thy));
fun Addsimprocs args = Context.>> (map_ss (fn ss => ss addsimprocs args));
fun Delsimprocs args = Context.>> (map_ss (fn ss => ss delsimprocs args));