diff -r 35094c8fd8bf -r 8ed38c7bd21a src/HOL/SMT/Examples/SMT_Examples.thy --- a/src/HOL/SMT/Examples/SMT_Examples.thy Mon Sep 21 08:45:31 2009 +0200 +++ b/src/HOL/SMT/Examples/SMT_Examples.thy Mon Sep 21 11:15:21 2009 +0200 @@ -9,7 +9,7 @@ begin declare [[smt_solver=z3, z3_proofs=false]] -declare [[smt_trace=true]] (*FIXME*) +declare [[smt_trace=false]] section {* Propositional and first-order logic *} @@ -163,6 +163,7 @@ (eval_dioph ks (map (\x. x mod 2) xs) mod 2 = l mod 2 \ eval_dioph ks (map (\x. x div 2) xs) = (l - eval_dioph ks (map (\x. x mod 2) xs)) div 2)" + using [[smt_solver=z3]] by (smt add: eval_dioph_mod[where n=2] eval_dioph_div_mult[where n=2])