diff options
| author | herbelin | 2003-11-09 14:14:53 +0000 |
|---|---|---|
| committer | herbelin | 2003-11-09 14:14:53 +0000 |
| commit | eb905490e4f02ab4a626b32ad9b83cc44e94d4c0 (patch) | |
| tree | f07d31f029f1dcdb43e12034643458fd147cce77 /translate | |
| parent | bb238a7d3035712171d2f97cfbc71e5e9aae15a4 (diff) | |
'as' avant 'using' dans 'destruct'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4838 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'translate')
| -rw-r--r-- | translate/pptacticnew.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/translate/pptacticnew.ml b/translate/pptacticnew.ml index 035cdfd635..a7181e13be 100644 --- a/translate/pptacticnew.ml +++ b/translate/pptacticnew.ml @@ -469,14 +469,14 @@ and pr_atom1 env = function hov 1 (str "simple_induction" ++ pr_arg pr_quantified_hypothesis h) | TacNewInduction (h,e,ids) -> hov 1 (str "induction" ++ spc () ++ - pr_induction_arg (pr_constr env) h ++ - pr_opt (pr_eliminator env) e ++ pr_with_names ids) + pr_induction_arg (pr_constr env) h ++ pr_with_names ids ++ + pr_opt (pr_eliminator env) e) | TacSimpleDestruct h -> hov 1 (str "simple_destruct" ++ pr_arg pr_quantified_hypothesis h) | TacNewDestruct (h,e,ids) -> hov 1 (str "destruct" ++ spc () ++ - pr_induction_arg (pr_constr env) h ++ - pr_opt (pr_eliminator env) e ++ pr_with_names ids) + pr_induction_arg (pr_constr env) h ++ pr_with_names ids ++ + pr_opt (pr_eliminator env) e) | TacDoubleInduction (h1,h2) -> hov 1 (str "double induction" ++ |