From 2b57bc2e7313a1b03aaeaf786d50c0349b5d31b5 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 25 Nov 2003 21:40:21 +0000
Subject: Garder 'destruct using' a l'affichage ?

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4992 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 translate/pptacticnew.ml | 7 +++----
 1 file 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" ++ 
-- 
cgit v1.2.3