obsolete -- tools should refer to proper Proof.context;
authorwenzelm
Wed, 10 Apr 2013 17:27:38 +0200
changeset 51688 27ecd33d3366
parent 51687 3d8720271ebf
child 51689 43a3465805dd
obsolete -- tools should refer to proper Proof.context;
src/Provers/classical.ML
src/Pure/simplifier.ML
--- 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));