src/HOL/Tools/SMT/smt_real.ML
changeset 61144 5e94dfead1c2
parent 59632 5980e75a204e
child 62913 13252110a6fe
     1.1 --- a/src/HOL/Tools/SMT/smt_real.ML	Wed Sep 09 14:47:41 2015 +0200
     1.2 +++ b/src/HOL/Tools/SMT/smt_real.ML	Wed Sep 09 20:57:21 2015 +0200
     1.3 @@ -98,8 +98,10 @@
     1.4  
     1.5  (* Z3 proof replay *)
     1.6  
     1.7 -val real_linarith_proc = Simplifier.simproc_global @{theory} "fast_real_arith" [
     1.8 -  "(m::real) < n", "(m::real) <= n", "(m::real) = n"] Lin_Arith.simproc
     1.9 +val real_linarith_proc =
    1.10 +  Simplifier.make_simproc @{context} "fast_real_arith"
    1.11 +   {lhss = [@{term "(m::real) < n"}, @{term "(m::real) \<le> n"}, @{term "(m::real) = n"}],
    1.12 +    proc = K Lin_Arith.simproc, identifier = []}
    1.13  
    1.14  
    1.15  (* setup *)