diff options
author | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-05-02 15:23:34 +0000 |
---|---|---|
committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-05-02 15:23:34 +0000 |
commit | decc15b1012171310047e92643087ae0d7289823 (patch) | |
tree | 0c444b550e4520a7911166c406546a9570b47625 /tactics/btermdn.ml | |
parent | 2ac0d62e7765e26d9538918cbf582046a97932c7 (diff) |
Fix discrimination of sorts which doesn't play well with cumulativity
and type inference putting every new type in some Type universes (bug
reported by L. Pottier).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12984 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/btermdn.ml')
-rw-r--r-- | tactics/btermdn.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tactics/btermdn.ml b/tactics/btermdn.ml index 13027fd34..ba6586fe0 100644 --- a/tactics/btermdn.ml +++ b/tactics/btermdn.ml @@ -77,8 +77,7 @@ struct | Var id when not (Idpred.mem id idpred) -> Dn.Label(Term_dn.GRLabel (VarRef id),l) | Prod (n, d, c) -> Dn.Label(Term_dn.ProdLabel, [d; c]) | Lambda (n, d, c) -> Dn.Label(Term_dn.LambdaLabel, [d; c] @ l) - | Sort s when is_small s -> Dn.Label(Term_dn.SortLabel (Some s), []) - | Sort _ -> Dn.Label(Term_dn.SortLabel None, []) + | Sort _ -> Dn.Label(Term_dn.SortLabel, []) | Evar _ -> Dn.Everything | _ -> Dn.Nothing |