From 8838528fb6fe72499ea37beeaf26d409ead90102 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 18 Jun 2008 21:21:47 +0000
Subject: Propagation des révisions 11144 et 11136 de la 8.2 vers le trunk
 (résolution entre autres des bugs 1882, 1883, 1884).

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

(limited to 'tactics')

diff --git a/tactics/tactics.ml b/tactics/tactics.ml
index 4ec8ee0ae0..25e9209761 100644
--- a/tactics/tactics.ml
+++ b/tactics/tactics.ml
@@ -2385,12 +2385,7 @@ let induction_from_context_l isrec with_evars elim_info lid names gl =
 
 
 let induction_from_context isrec with_evars elim_info (hyp0,lbind) names gl =
-  (*test suivant sans doute inutile car refait par le letin_tac*)
-  if List.mem hyp0 (ids_of_named_context (Global.named_context())) then
-    errorlabstrm "induction" 
-      (str "Cannot generalize a global variable");
   let indsign,scheme = elim_info in
-
   let indref = match scheme.indref with | None -> assert false | Some x -> x in
   let tmptyp0 =	pf_get_hyp_typ gl hyp0 in
   let typ0 = pf_apply reduce_to_quantified_ref gl indref tmptyp0 in
-- 
cgit v1.2.3