diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-10-21 19:59:24 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-10-21 19:59:24 +0000 |
| commit | 59e3d9cb722b305802869941256415083eb4765d (patch) | |
| tree | 67ed2759a31830dbadf04525be3ff0d07ac14102 /proofs/tacexpr.ml | |
| parent | b19a4f3e8a785247ccb7d5b7464c15ccd4c3b3ce (diff) | |
Ajout d'un suffixe "as [ names ]" pour nommer manuellement les
variables introduites par NewDestruct et NewInduction
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3169 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/tacexpr.ml')
| -rw-r--r-- | proofs/tacexpr.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/proofs/tacexpr.ml b/proofs/tacexpr.ml index 3eaaea573..a1d7ff16b 100644 --- a/proofs/tacexpr.ml +++ b/proofs/tacexpr.ml @@ -117,8 +117,10 @@ type ('constr,'cst,'ind,'id) gen_atomic_tactic_expr = (* Derived basic tactics *) | TacOldInduction of quantified_hypothesis | TacNewInduction of 'constr induction_arg * 'constr with_bindings option + * identifier list list | TacOldDestruct of quantified_hypothesis | TacNewDestruct of 'constr induction_arg * 'constr with_bindings option + * identifier list list | TacDoubleInduction of quantified_hypothesis * quantified_hypothesis | TacDecomposeAnd of 'constr |