diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2015-10-15 14:21:45 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2015-10-15 14:36:30 +0200 |
commit | 44817bf722eacb0379bebc7e435bfafa503d574f (patch) | |
tree | 210ffe37ee7e1d06f6a3b0b2a28b6bd192243c0d /kernel/nativeconv.ml | |
parent | 3116aeff0cdc51e6801f3e8ae4a6c0533e1a75ac (diff) |
Fix #4346 2/2: VM casts were not inferring universe constraints.
Diffstat (limited to 'kernel/nativeconv.ml')
-rw-r--r-- | kernel/nativeconv.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/kernel/nativeconv.ml b/kernel/nativeconv.ml index fc68575cd..7ae66c485 100644 --- a/kernel/nativeconv.ml +++ b/kernel/nativeconv.ml @@ -157,9 +157,8 @@ let native_conv cv_pb sigma env t1 t2 = if cv_pb = CUMUL then Constr.leq_constr_univs univs t1 t2 else Constr.eq_constr_univs univs t1 t2 in - let univs = (univs, checked_universes) in - if not b then begin + if not b then + let univs = (univs, checked_universes) in let t1 = Term.it_mkLambda_or_LetIn t1 (Environ.rel_context env) in let t2 = Term.it_mkLambda_or_LetIn t2 (Environ.rel_context env) in let _ = native_conv_gen cv_pb sigma env univs t1 t2 in () - end |