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 /theories7 | |
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 'theories7')
-rw-r--r-- | theories7/ZArith/Zsqrt.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories7/ZArith/Zsqrt.v b/theories7/ZArith/Zsqrt.v index a1ea30415..fca9b8145 100644 --- a/theories7/ZArith/Zsqrt.v +++ b/theories7/ZArith/Zsqrt.v @@ -23,11 +23,11 @@ Tactic Definition compute_POS := Match Context With | [|- [(POS (xI ?1))]] -> (Match ?1 With - | [[xH]] -> Fail + | [[xH]] -> Fail 1 | _ -> Rewrite (POS_xI ?1)) | [|- [(POS (xO ?1))]] -> (Match ?1 With - | [[xH]] -> Fail + | [[xH]] -> Fail 1 | _ -> Rewrite (POS_xO ?1)). Inductive sqrt_data [n : Z] : Set := |