diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-20 08:51:41 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-20 08:51:41 +0000 |
| commit | 6c48a70958815147a13d01fc4e1739329490a0fe (patch) | |
| tree | b8746060823e51e44e1699d92e645e77b7e28562 /theories/Reals/SplitAbsolu.v | |
| 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/Reals/SplitAbsolu.v')
| -rw-r--r-- | theories/Reals/SplitAbsolu.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Reals/SplitAbsolu.v b/theories/Reals/SplitAbsolu.v index e904c238d..bc876692d 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. |