diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-10-01 16:05:48 +0200 |
|---|---|---|
| committer |  Matthieu Sozeau <mattam@mattam.org> | 2015-10-02 15:54:13 +0200 |
| commit | 1d01533266b247cbc32903935963674acf7c6c54 (patch) | |
| tree | 7a06594a1592206af35809a03f985ca27adc890c /kernel/mod_typing.ml | |
| parent | d4869e059bfb73d99e1f5ef1b0a1f0906fa27056 (diff) | |
Univs: forgot a substitution in mod_typing.
Diffstat (limited to 'kernel/mod_typing.ml')
| -rw-r--r-- | kernel/mod_typing.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/kernel/mod_typing.ml b/kernel/mod_typing.ml index 3be89afbd..922652287 100644 --- a/kernel/mod_typing.ml +++ b/kernel/mod_typing.ml @@ -111,6 +111,7 @@ let rec check_with_def env struc (idl,(c,ctx)) mp equiv = | Undef _ | OpaqueDef _ -> let j = Typeops.infer env' c in let typ = Typeops.type_of_constant_type env' cb.const_type in + let typ = Vars.subst_instance_constr cus typ in let cst' = Reduction.infer_conv_leq env' (Environ.universes env') j.uj_type typ in cst' |