diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-25 15:55:12 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-25 15:55:12 +0000 |
commit | 3f345a0d9a4d6f0a6c9c3e441c134b336bfb21e7 (patch) | |
tree | ad8eb97dfccf500dbbb7c19e895ac6474d64f783 /parsing/pptactic.ml | |
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 'parsing/pptactic.ml')
-rw-r--r-- | parsing/pptactic.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml index d7b2cbe44..8a97eb2d0 100644 --- a/parsing/pptactic.ml +++ b/parsing/pptactic.ml @@ -477,14 +477,14 @@ and pr_atom1 = function hov 1 (str "Instantiate" ++ pr_arg int n ++ pr_arg pr_constr c ++ pr_clauses pr_ident cls) (* Derived basic tactics *) - | TacSimpleInduction h -> + | TacSimpleInduction (h,_) -> hov 1 (str "Induction" ++ pr_arg pr_quantified_hypothesis h) - | TacNewInduction (h,e,ids) -> + | TacNewInduction (h,e,(ids,_)) -> hov 1 (str "NewInduction" ++ spc () ++ pr_induction_arg pr_constr h ++ pr_opt pr_eliminator e ++ pr_with_names ids) | TacSimpleDestruct h -> hov 1 (str "Destruct" ++ pr_arg pr_quantified_hypothesis h) - | TacNewDestruct (h,e,ids) -> + | TacNewDestruct (h,e,(ids,_)) -> hov 1 (str "NewDestruct" ++ spc () ++ pr_induction_arg pr_constr h ++ pr_opt pr_eliminator e ++ pr_with_names ids) | TacDoubleInduction (h1,h2) -> |