diff options
Diffstat (limited to 'theories/ZArith')
| -rw-r--r-- | theories/ZArith/Zsqrt.v | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/theories/ZArith/Zsqrt.v b/theories/ZArith/Zsqrt.v index 1a78c90dff..1293ec6c2e 100644 --- a/theories/ZArith/Zsqrt.v +++ b/theories/ZArith/Zsqrt.v @@ -25,17 +25,16 @@ Tactic Definition compute_POS := | [|- [(POS (xI ?1))]] -> Let v = ?1 In (Match v With | [ [xH] ] -> - (Fail 1) + Fail |_-> Rewrite (POS_xI v)) | [ |- [(POS (xO ?1))]] -> Let v = ?1 In Match v With |[ [xH] ]-> - (Fail 1) + Fail |[?]-> Rewrite (POS_xO v)). - Inductive sqrt_data [n : Z] : Set := c_sqrt: (s, r :Z)`n=s*s+r`->`0<=r<=2*s`->(sqrt_data n) . |