From 6c48a70958815147a13d01fc4e1739329490a0fe Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 20 Jan 2003 08:51:41 +0000
Subject: Utilisation de 'Recursive' pour les tactiques récursives

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3543 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/field/Field_Tactic.v | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'contrib')

diff --git a/contrib/field/Field_Tactic.v b/contrib/field/Field_Tactic.v
index e893c9f36c..7aa1d0b3e3 100644
--- a/contrib/field/Field_Tactic.v
+++ b/contrib/field/Field_Tactic.v
@@ -214,7 +214,7 @@ Tactic Definition ApplyInverse mul FT lvar trm :=
 
 Tactic Definition StrongFail tac := First [tac|Fail 2].
 
-Tactic Definition InverseTestAux FT trm :=
+Recursive Tactic Definition InverseTestAux FT trm :=
   Let AplusT = Eval Cbv Beta Delta [Aplus] Iota in (Aplus FT)
   And AmultT = Eval Cbv Beta Delta [Amult] Iota in (Amult FT)
   And AoppT  = Eval Cbv Beta Delta [Aopp] Iota in (Aopp FT)
@@ -261,7 +261,7 @@ Tactic Definition Reduce FT :=
   Cbv Beta Delta -[AzeroT AoneT AplusT AmultT AoppT AinvT] Zeta Iota
   Orelse Compute.
 
-Tactic Definition Field_Gen_Aux FT :=
+Recursive Tactic Definition Field_Gen_Aux FT :=
   Let AplusT = Eval Cbv Beta Delta [Aplus] Iota in (Aplus FT) In
   Match Context With
   | [|- ?1==?2] ->
-- 
cgit v1.2.3