diff options
author | Matthieu Sozeau <mattam@mattam.org> | 2013-10-30 19:28:55 +0100 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2014-05-06 09:58:54 +0200 |
commit | 1c1accf7186438228be9c426db9071aa95a7e992 (patch) | |
tree | 67fae89d05072db6249fdf59325d3691a09dbea6 /pretyping/retyping.ml | |
parent | 001ff72b2c17fb7b2fcaefa2555c115f0d909a03 (diff) |
Properly reinstate old-style polymorphism in the kernel and pretyping/retyping.
TODO fix interface on knowing_parameters to avoid useless array allocations.
Diffstat (limited to 'pretyping/retyping.ml')
-rw-r--r-- | pretyping/retyping.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/retyping.ml b/pretyping/retyping.ml index ccb9420fd..9aecd2d1f 100644 --- a/pretyping/retyping.ml +++ b/pretyping/retyping.ml @@ -154,9 +154,9 @@ let retype ?(polyprop=true) sigma = | Prop Pos, (Type u2) -> Type (Univ.sup Univ.type0_univ u2) | Prop Null, (Type _ as s) -> s | Type u1, Type u2 -> Type (Univ.sup u1 u2)) - (* | App(f,args) when isGlobalRef f -> *) - (* let t = type_of_global_reference_knowing_parameters env f args in *) - (* sort_of_atomic_type env sigma t args *) + | App(f,args) when isGlobalRef f -> + let t = type_of_global_reference_knowing_parameters env f args in + sort_of_atomic_type env sigma t args | App(f,args) -> sort_of_atomic_type env sigma (type_of env f) args | Lambda _ | Fix _ | Construct _ -> retype_error NotAType | _ -> decomp_sort env sigma (type_of env t) |