From 71a48bb529cbaa36bc53b2ec3b721235b2b2ec38 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 30 Oct 2006 23:05:29 +0000
Subject: Débranchement du polymorphisme de sorte sur les définitions dans Type
 (trop de problèmes à régler, comme par exemple des types identiques qui se
 retrouvent dans des sortes disjointes, résultant en davantage d'équations (eq
 Type(i) a b) et (eq Type(j) a b) avec i syntaxiquement distinct de j, que Coq
 ne sait en général pas traiter -- i.e. ne sait pas forcer i==j (cf contrib
 CatsInZF: échec du test "dependent" dans "rewrite"); autre problème: le
 ralentissement du prouveur (logic.ml)).

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

(limited to 'kernel/term_typing.ml')

diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml
index d834504ab6..8b0f45ac9c 100644
--- a/kernel/term_typing.ml
+++ b/kernel/term_typing.ml
@@ -24,7 +24,10 @@ open Typeops
 
 let constrain_type env j cst1 = function
   | None ->
+(* To have definitions in Type polymorphic
       make_polymorphic_if_arity env j.uj_type, cst1
+*) 
+      NonPolymorphicType j.uj_type, cst1
   | Some t -> 
       let (tj,cst2) = infer_type env t in
       let (_,cst3) = judge_of_cast env j DEFAULTcast tj in
-- 
cgit v1.2.3