From 9d66e886d4c8dcf8b6cb44923d06913161e2cf5c Mon Sep 17 00:00:00 2001 From: fbesson Date: Wed, 18 May 2011 21:38:19 +0000 Subject: cbv delta - [...] before calling lia git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14140 85f007b7-540e-0410-9357-904b9bb8a0f7 --- plugins/micromega/Psatz.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'plugins/micromega/Psatz.v') diff --git a/plugins/micromega/Psatz.v b/plugins/micromega/Psatz.v index 39c98bc5d..84ce85f29 100644 --- a/plugins/micromega/Psatz.v +++ b/plugins/micromega/Psatz.v @@ -76,13 +76,13 @@ Ltac psatzl dom := end in tac. Ltac lia := - xlia ; + cbv delta - [Zplus Zminus Zopp Zmult Zpower Zgt Zge Zle Zlt iff not] ; xlia ; intros __wit __varmap __ff ; change (Tauto.eval_f (Zeval_formula (@find Z Z0 __varmap)) __ff) ; apply (ZTautoChecker_sound __ff __wit); vm_compute ; reflexivity. Ltac nlia := - xnlia ; + cbv delta - [Zplus Zminus Zopp Zmult Zpower Zgt Zge Zle Zlt iff not] ; xnlia ; intros __wit __varmap __ff ; change (Tauto.eval_f (Zeval_formula (@find Z Z0 __varmap)) __ff) ; apply (ZTautoChecker_sound __ff __wit); vm_compute ; reflexivity. -- cgit v1.2.3