From b00f8fba2259c027757504b2245a81ca40fbb831 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 21 Jan 2003 18:47:18 +0000
Subject: Adaptation à la nouvelle sémantique plus uniforme de "Match term"

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3567 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/ZArith/Zsqrt.v | 5 ++---
 1 file 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) .
 
-- 
cgit v1.2.3