diff options
author | 2006-10-28 19:35:09 +0000 | |
---|---|---|
committer | 2006-10-28 19:35:09 +0000 | |
commit | 359e4ffe307d7d8dd250735373fc6354a58ecff5 (patch) | |
tree | 7204cb80cb272118a7ee60e9790d91d0efd11894 /pretyping/vnorm.ml | |
parent | 8bcd34ae13010797a974b0f3c16df6e23f2cb254 (diff) |
Extension du polymorphisme de sorte au cas des définitions dans Type.
(suppression au passage d'un cast dans constant_entry_of_com - ce
n'est pas normal qu'on force le type s'il n'est pas déjà présent mais
en même temps il semble que ce cast serve pour rafraîchir les univers
algébriques...)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9310 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/vnorm.ml')
-rw-r--r-- | pretyping/vnorm.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/vnorm.ml b/pretyping/vnorm.ml index fb05661d7..55f798de9 100644 --- a/pretyping/vnorm.ml +++ b/pretyping/vnorm.ml @@ -70,7 +70,7 @@ let construct_of_constr_block env tag typ = let constr_type_of_idkey env idkey = match idkey with | ConstKey cst -> - mkConst cst, (lookup_constant cst env).const_type + mkConst cst, Typeops.type_of_constant env cst | VarKey id -> let (_,_,ty) = lookup_named id env in mkVar id, ty @@ -80,7 +80,7 @@ let constr_type_of_idkey env idkey = mkRel n, lift n ty let type_of_ind env ind = - type_of_inductive (Inductive.lookup_mind_specif env ind) + type_of_inductive env (Inductive.lookup_mind_specif env ind) let build_branches_type env (mind,_ as _ind) mib mip params dep p = let rtbl = mip.mind_reloc_tbl in |