diff options
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] -> |