From 868a2e4a7f7461f27f89b35751d29b2fbd409c1a Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 19 Mar 2005 10:17:17 +0000
Subject: Report depuis la V8.0pl2 de la correction d'un bug du traducteur

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6858 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/tactics.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tactics/tactics.ml b/tactics/tactics.ml
index 8835c16d2e..3a485e74cb 100644
--- a/tactics/tactics.ml
+++ b/tactics/tactics.ml
@@ -1155,7 +1155,7 @@ let induct_discharge statuslists destopt avoid' ((avoid7,avoid8),ra) (names,forc
 		(match kind_of_term (pf_concl gl) with
 		  | Prod (name,t,_) -> (name,None,t)
 		  | LetIn (name,b,t,_) -> (name,Some b,t) 
-		  | _ -> assert false)) gl in
+		  | _ -> raise (RefinerError IntroNeedsProduct))) gl in
 	      if Options.do_translate() & id7 <> id8 then force := true;
               let id = if !Options.v7 then id7 else id8 in
 	      rnames := !rnames @ [IntroIdentifier id];
@@ -1172,12 +1172,12 @@ let induct_discharge statuslists destopt avoid' ((avoid7,avoid8),ra) (names,forc
 		(match kind_of_term (pf_concl gl) with
 		  | Prod (name,t,_) -> (name,None,t)
 		  | LetIn (name,b,t,_) -> (name,Some b,t) 
-		  | _ -> assert false)) gl in
+		  | _ -> raise (RefinerError IntroNeedsProduct))) gl in
 	      let id8 = fresh_id avoid8 (default_id gl
 		(match kind_of_term (pf_concl gl) with
 		  | Prod (name,t,_) -> (name,None,t)
 		  | LetIn (name,b,t,_) -> (name,Some b,t) 
-		  | _ -> assert false)) gl in
+		  | _ -> raise (RefinerError IntroNeedsProduct))) gl in
 	      if Options.do_translate() & id7 <> id8 then force := true;
               let id = if !Options.v7 then id7 else id8 in
               let avoid = if !Options.v7 then avoid7 else avoid8 in
-- 
cgit v1.2.3