diff options
| author | herbelin | 2006-10-30 23:05:29 +0000 |
|---|---|---|
| committer | herbelin | 2006-10-30 23:05:29 +0000 |
| commit | 71a48bb529cbaa36bc53b2ec3b721235b2b2ec38 (patch) | |
| tree | 2596cf37f9dae251e1c355aaaa0889472fb1b442 /proofs | |
| 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 'proofs')
| -rw-r--r-- | proofs/logic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index 33b22c3b73..f56a924756 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -292,7 +292,7 @@ let rec mk_refgoals sigma goal goalacc conclty trm = | App (f,l) -> let (acc',hdty) = match kind_of_term f with - | (Ind _ | Const _) + | (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, |