diff options
| author | Pierre-Marie Pédrot | 2020-10-11 17:40:01 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-10-11 17:48:56 +0200 |
| commit | eb5a67de1fc586acc588d5c61c84df670284f054 (patch) | |
| tree | 67d4b0767fb6796fc911f1123e8d93d378506326 /pretyping | |
| parent | 9a026fcaeb3fa2678b9c93da8204f9f1ddcc0b31 (diff) | |
Pick the universe graph out of the environment in conversion API.
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/reductionops.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index bea62c8bef..db2f5c6209 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -1163,10 +1163,10 @@ let infer_conv_gen conv_fun ?(catch_incon=true) ?(pb=Reduction.CUMUL) | None -> let x = EConstr.Unsafe.to_constr x in let y = EConstr.Unsafe.to_constr y in - let graph = Evd.universes sigma in + let env = Environ.set_universes (Evd.universes sigma) env in let sigma' = conv_fun pb ~l2r:false sigma ts - env graph (sigma, sigma_univ_state) x y in + env (sigma, sigma_univ_state) x y in Some sigma' with | Reduction.NotConvertible -> None |