diff options
author | 2003-11-25 15:55:12 +0000 | |
---|---|---|
committer | 2003-11-25 15:55:12 +0000 | |
commit | 3f345a0d9a4d6f0a6c9c3e441c134b336bfb21e7 (patch) | |
tree | ad8eb97dfccf500dbbb7c19e895ac6474d64f783 /proofs | |
parent | 865d62e4551eb6a1f0c99677642bb721cc34f5b3 (diff) |
Uniformisation des politiques de nommage de NewDestruct sur arguments recursifs et Induction style Hrec; mise en place systeme de traduction automatique; Elim/Case reconnaissent les premisses nommees du but
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4989 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
-rw-r--r-- | proofs/tacexpr.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/proofs/tacexpr.ml b/proofs/tacexpr.ml index 21c2d0c40..743f3cd09 100644 --- a/proofs/tacexpr.ml +++ b/proofs/tacexpr.ml @@ -137,12 +137,12 @@ type ('constr,'pat,'cst,'ind,'ref,'id,'tac) gen_atomic_tactic_expr = | TacInstantiate of int * 'constr * 'id gclause (* Derived basic tactics *) - | TacSimpleInduction of quantified_hypothesis + | TacSimpleInduction of (quantified_hypothesis * (bool ref * intro_pattern_expr list ref list) list ref) | TacNewInduction of 'constr induction_arg * 'constr with_bindings option - * case_intro_pattern_expr + * (case_intro_pattern_expr * (bool ref * intro_pattern_expr list ref list) list ref) | TacSimpleDestruct of quantified_hypothesis | TacNewDestruct of 'constr induction_arg * 'constr with_bindings option - * case_intro_pattern_expr + * (case_intro_pattern_expr * (bool ref * intro_pattern_expr list ref list) list ref) | TacDoubleInduction of quantified_hypothesis * quantified_hypothesis | TacDecomposeAnd of 'constr |