removed dead code;
authorwenzelm
Fri, 14 Feb 2014 16:27:29 +0100
changeset 55495 b389f65edc44
parent 55494 009b71c1ed23
child 55496 5d2835453ad3
removed dead code;
src/HOL/Decision_Procs/cooper_tac.ML
--- a/src/HOL/Decision_Procs/cooper_tac.ML	Fri Feb 14 16:25:30 2014 +0100
+++ b/src/HOL/Decision_Procs/cooper_tac.ML	Fri Feb 14 16:27:29 2014 +0100
@@ -4,16 +4,12 @@
 
 signature COOPER_TAC =
 sig
-  val trace: bool Unsynchronized.ref
   val linz_tac: Proof.context -> bool -> int -> tactic
 end
 
 structure Cooper_Tac: COOPER_TAC =
 struct
 
-val trace = Unsynchronized.ref false;
-fun trace_msg s = if !trace then tracing s else ();
-
 val cooper_ss = simpset_of @{context};
 
 val nT = HOLogic.natT;
@@ -21,15 +17,11 @@
 
 val zdvd_int = @{thm zdvd_int};
 val zdiff_int_split = @{thm zdiff_int_split};
-val all_nat = @{thm all_nat};
-val ex_nat = @{thm ex_nat};
 val split_zdiv = @{thm split_zdiv};
 val split_zmod = @{thm split_zmod};
 val mod_div_equality' = @{thm mod_div_equality'};
 val split_div' = @{thm split_div'};
 val Suc_eq_plus1 = @{thm Suc_eq_plus1};
-val imp_le_cong = @{thm imp_le_cong};
-val conj_le_cong = @{thm conj_le_cong};
 val mod_add_left_eq = @{thm mod_add_left_eq} RS sym;
 val mod_add_right_eq = @{thm mod_add_right_eq} RS sym;
 val mod_add_eq = @{thm mod_add_eq} RS sym;