diff options
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 := |