src/HOL/Decision_Procs/cooper_tac.ML
changeset 32740 9dd0a2f83429
parent 31790 05c92381363c
child 32960 69916a850301
     1.1 --- a/src/HOL/Decision_Procs/cooper_tac.ML	Tue Sep 29 14:59:24 2009 +0200
     1.2 +++ b/src/HOL/Decision_Procs/cooper_tac.ML	Tue Sep 29 16:24:36 2009 +0200
     1.3 @@ -4,7 +4,7 @@
     1.4  
     1.5  signature COOPER_TAC =
     1.6  sig
     1.7 -  val trace: bool ref
     1.8 +  val trace: bool Unsynchronized.ref
     1.9    val linz_tac: Proof.context -> bool -> int -> tactic
    1.10    val setup: theory -> theory
    1.11  end
    1.12 @@ -12,7 +12,7 @@
    1.13  structure Cooper_Tac: COOPER_TAC =
    1.14  struct
    1.15  
    1.16 -val trace = ref false;
    1.17 +val trace = Unsynchronized.ref false;
    1.18  fun trace_msg s = if !trace then tracing s else ();
    1.19  
    1.20  val cooper_ss = @{simpset};