From 7a4ccdc7eb1a6afd21768963a249ec3617584482 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 28 Apr 2008 08:41:34 +0000
Subject: Suite commit 10861

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

diff --git a/proofs/logic.ml b/proofs/logic.ml
index d61fe21de0..67bb3a3c21 100644
--- a/proofs/logic.ml
+++ b/proofs/logic.ml
@@ -278,10 +278,8 @@ let rec mk_refgoals sigma goal goalacc conclty trm =
     | App (f,l) ->
 	let (acc',hdty) =
 	  match kind_of_term f with
-	    | Ind _ | Const _
-		when not (array_exists occur_meta l) (* we could be finer *)
-		  & (isInd f or Heads.has_inductive_head env f)
-		  ->
+	    | (Ind _ (* needed if defs in Type are polymorphic: | Const _*))
+		when not (array_exists occur_meta l) (* we could be finer *) ->
 		(* Sort-polymorphism of definition and inductive types *)
 		goalacc, 
 		type_of_global_reference_knowing_parameters env sigma f l
-- 
cgit v1.2.3