diff options
| -rw-r--r-- | test-suite/success/MatchFail.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test-suite/success/MatchFail.v b/test-suite/success/MatchFail.v index a62113d124..d89ee3bec7 100644 --- a/test-suite/success/MatchFail.v +++ b/test-suite/success/MatchFail.v @@ -1,6 +1,11 @@ Require Export ZArith. Require Export ZArithRing. +(* Cette tactique a pour objectif de remplacer toute instance + de (POS (xI e)) ou de (POS (xO e)) par + 2*(POS e)+1 ou 2*(POS e), pour rendre les expressions plus + à même d'être utilisées par Ring, lorsque ces expressions contiennent + des variables de type positive. *) Tactic Definition compute_POS := (Match Context With | [|- [(POS (xI ?1))]] -> Let v = ?1 In |