diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-10-11 11:39:18 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-10-11 11:39:18 +0000 |
| commit | 56ab825d3fbcd1d517027875245d1cafda68a6dc (patch) | |
| tree | d10d1b2e924a332f2d8ecfdffb2684e3908bce53 /theories | |
| parent | a807069e370eb1a8f4d7f4e8b72449017a68d891 (diff) | |
'match term' now evaluates by default. Added 'lazy' keyword to delay the evaluation of tactics
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6199 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories')
| -rw-r--r-- | theories/ZArith/Zsqrt.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/ZArith/Zsqrt.v b/theories/ZArith/Zsqrt.v index 0aca9a758..f61999362 100644 --- a/theories/ZArith/Zsqrt.v +++ b/theories/ZArith/Zsqrt.v @@ -22,12 +22,12 @@ Ltac compute_POS := match goal with | |- context [(Zpos (xI ?X1))] => match constr:X1 with - | context [1%positive] => fail + | context [1%positive] => fail 1 | _ => rewrite (BinInt.Zpos_xI X1) end | |- context [(Zpos (xO ?X1))] => match constr:X1 with - | context [1%positive] => fail + | context [1%positive] => fail 1 | _ => rewrite (BinInt.Zpos_xO X1) end end. |