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 /theories | |
| 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 'theories')
| -rw-r--r-- | theories/Reals/SplitAbsolu.v | 4 | ||||
| -rw-r--r-- | theories/Reals/SplitRmult.v | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/theories/Reals/SplitAbsolu.v b/theories/Reals/SplitAbsolu.v index e904c238d5..bc876692d7 100644 --- a/theories/Reals/SplitAbsolu.v +++ b/theories/Reals/SplitAbsolu.v @@ -10,13 +10,13 @@ Require Rbasic_fun. -Tactic Definition SplitAbs := +Recursive Tactic Definition SplitAbs := Match Context With | [ |- [(case_Rabsolu ?1)] ] -> Case (case_Rabsolu ?1); Try SplitAbs. -Tactic Definition SplitAbsolu := +Recursive Tactic Definition SplitAbsolu := Match Context With | [ id:[(Rabsolu ?)] |- ? ] -> Generalize id; Clear id;Try SplitAbsolu | [ |- [(Rabsolu ?1)] ] -> Unfold Rabsolu; Try SplitAbs;Intros. diff --git a/theories/Reals/SplitRmult.v b/theories/Reals/SplitRmult.v index e799c7b8be..71b2ebf215 100644 --- a/theories/Reals/SplitRmult.v +++ b/theories/Reals/SplitRmult.v @@ -13,7 +13,7 @@ Require Rbase. -Tactic Definition SplitRmult := +Recursive Tactic Definition SplitRmult := Match Context With | [ |- ~(Rmult ?1 ?2)==R0 ] -> Apply mult_non_zero; Split;Try SplitRmult. |