removed dead code;
authorwenzelm
Fri Feb 14 16:27:29 2014 +0100 (2014-02-14)
changeset 55495b389f65edc44
parent 55494 009b71c1ed23
child 55496 5d2835453ad3
removed dead code;
src/HOL/Decision_Procs/cooper_tac.ML
     1.1 --- a/src/HOL/Decision_Procs/cooper_tac.ML	Fri Feb 14 16:25:30 2014 +0100
     1.2 +++ b/src/HOL/Decision_Procs/cooper_tac.ML	Fri Feb 14 16:27:29 2014 +0100
     1.3 @@ -4,16 +4,12 @@
     1.4  
     1.5  signature COOPER_TAC =
     1.6  sig
     1.7 -  val trace: bool Unsynchronized.ref
     1.8    val linz_tac: Proof.context -> bool -> int -> tactic
     1.9  end
    1.10  
    1.11  structure Cooper_Tac: COOPER_TAC =
    1.12  struct
    1.13  
    1.14 -val trace = Unsynchronized.ref false;
    1.15 -fun trace_msg s = if !trace then tracing s else ();
    1.16 -
    1.17  val cooper_ss = simpset_of @{context};
    1.18  
    1.19  val nT = HOLogic.natT;
    1.20 @@ -21,15 +17,11 @@
    1.21  
    1.22  val zdvd_int = @{thm zdvd_int};
    1.23  val zdiff_int_split = @{thm zdiff_int_split};
    1.24 -val all_nat = @{thm all_nat};
    1.25 -val ex_nat = @{thm ex_nat};
    1.26  val split_zdiv = @{thm split_zdiv};
    1.27  val split_zmod = @{thm split_zmod};
    1.28  val mod_div_equality' = @{thm mod_div_equality'};
    1.29  val split_div' = @{thm split_div'};
    1.30  val Suc_eq_plus1 = @{thm Suc_eq_plus1};
    1.31 -val imp_le_cong = @{thm imp_le_cong};
    1.32 -val conj_le_cong = @{thm conj_le_cong};
    1.33  val mod_add_left_eq = @{thm mod_add_left_eq} RS sym;
    1.34  val mod_add_right_eq = @{thm mod_add_right_eq} RS sym;
    1.35  val mod_add_eq = @{thm mod_add_eq} RS sym;