1.1 --- a/src/HOL/Tools/lin_arith.ML	Wed Jun 29 18:12:34 2011 +0200
     1.2 +++ b/src/HOL/Tools/lin_arith.ML	Wed Jun 29 20:39:41 2011 +0200
     1.3 @@ -895,7 +895,7 @@
     1.4  val setup =
     1.5    init_arith_data #>
     1.6    Simplifier.map_ss (fn ss => ss
     1.7 -    addSolver (mk_solver' "lin_arith" (add_arith_facts #> Fast_Arith.cut_lin_arith_tac)));
     1.8 +    addSolver (mk_solver "lin_arith" (add_arith_facts #> Fast_Arith.cut_lin_arith_tac)));
     1.9  
    1.10  val global_setup =
    1.11    Attrib.setup @{binding arith_split} (Scan.succeed (Thm.declaration_attribute add_split))