diff options
author | 2009-09-20 14:02:58 +0000 | |
---|---|---|
committer | 2009-09-20 14:02:58 +0000 | |
commit | 98f6a9d847f4fac14696f51096c8334c9bffda6f (patch) | |
tree | 3ab3dabe0f93f38b17434976f0b0c9833b8e3ff5 /parsing/pptactic.ml | |
parent | fbcd19a076f255614012fd076863ca296c1b2626 (diff) |
Only one "in" clause in "destruct" even for a multiple "destruct".
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12348 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/pptactic.ml')
-rw-r--r-- | parsing/pptactic.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml index f113908f8..d316a8b05 100644 --- a/parsing/pptactic.ml +++ b/parsing/pptactic.ml @@ -752,14 +752,14 @@ and pr_atom1 = function | TacSimpleInductionDestruct (isrec,h) -> hov 1 (str "simple " ++ str (if isrec then "induction" else "destruct") ++ pr_arg pr_quantified_hypothesis h) - | TacInductionDestruct (isrec,ev,l) -> + | TacInductionDestruct (isrec,ev,(l,cl)) -> hov 1 (str (with_evars ev (if isrec then "induction" else "destruct")) ++ spc () ++ - prlist_with_sep pr_coma (fun (h,e,ids,cl) -> + prlist_with_sep pr_coma (fun (h,e,ids) -> prlist_with_sep spc (pr_induction_arg pr_lconstr pr_constr) h ++ pr_with_induction_names ids ++ - pr_opt pr_eliminator e ++ - pr_opt_no_spc (pr_clauses pr_ident) cl) l) + pr_opt pr_eliminator e) l ++ + pr_opt_no_spc (pr_clauses pr_ident) cl) | TacDoubleInduction (h1,h2) -> hov 1 (str "double induction" ++ |