diff options
| author | herbelin | 2003-11-25 21:40:21 +0000 |
|---|---|---|
| committer | herbelin | 2003-11-25 21:40:21 +0000 |
| commit | 2b57bc2e7313a1b03aaeaf786d50c0349b5d31b5 (patch) | |
| tree | e3d0c74f446dc8750e6f47e76b58dfc50effdeb1 | |
| parent | 801b4eea7475660813dac697d375a5847af3e7b3 (diff) | |
Garder 'destruct using' a l'affichage ?
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4992 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | translate/pptacticnew.ml | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/translate/pptacticnew.ml b/translate/pptacticnew.ml index 9ab1747b07..8972683fd6 100644 --- a/translate/pptacticnew.ml +++ b/translate/pptacticnew.ml @@ -507,8 +507,7 @@ and pr_atom1 env = function pr_with_names (List.map (fun x -> !x) ids))) !l else hov 1 (str "simple induction" ++ pr_arg pr_quantified_hypothesis h) - | TacNewInduction (h,e,(ids,l)) - | TacNewDestruct (h,(Some _ as e),(ids,l)) -> + | TacNewInduction (h,e,(ids,l)) -> duplicate false (fun (pp,ids') -> hov 1 (str "induction" ++ spc () ++ pr_induction_arg (pr_constr env) h ++ @@ -516,12 +515,12 @@ and pr_atom1 env = function pr_opt (pr_eliminator env) e)) !l | TacSimpleDestruct h -> hov 1 (str "simple destruct" ++ pr_arg pr_quantified_hypothesis h) - | TacNewDestruct (h,None,(ids,l)) -> + | TacNewDestruct (h,e,(ids,l)) -> duplicate false (fun (pp,ids') -> hov 1 (str "destruct" ++ spc () ++ pr_induction_arg (pr_constr env) h ++ pr_with_names (if !pp then List.map (fun x -> !x) ids' else ids) -(* ++ pr_opt (pr_eliminator env) e*) )) !l + ++ pr_opt (pr_eliminator env) e)) !l | TacDoubleInduction (h1,h2) -> hov 1 (str "double induction" ++ |