diff options
author | 2006-10-30 23:05:29 +0000 | |
---|---|---|
committer | 2006-10-30 23:05:29 +0000 | |
commit | 71a48bb529cbaa36bc53b2ec3b721235b2b2ec38 (patch) | |
tree | 2596cf37f9dae251e1c355aaaa0889472fb1b442 /kernel/term_typing.ml | |
parent | 6011cfe0b6e4c8660ec490cef1039955a41443f0 (diff) |
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
Diffstat (limited to 'kernel/term_typing.ml')
-rw-r--r-- | kernel/term_typing.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml index d834504ab..8b0f45ac9 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 |