diff options
| author | herbelin | 2003-01-20 08:51:41 +0000 |
|---|---|---|
| committer | herbelin | 2003-01-20 08:51:41 +0000 |
| commit | 6c48a70958815147a13d01fc4e1739329490a0fe (patch) | |
| tree | b8746060823e51e44e1699d92e645e77b7e28562 /contrib | |
| parent | 459f7db6e67940e0261a88e3516dc95ec0b99721 (diff) | |
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
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/field/Field_Tactic.v | 4 |
1 files changed, 2 insertions, 2 deletions
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] -> |