diff options
author | 2016-11-08 19:02:40 +0100 | |
---|---|---|
committer | 2017-02-14 17:27:26 +0100 | |
commit | 85ab3e298aa1d7333787c1fa44d25df189ac255c (patch) | |
tree | 32f661f4ccd3fb36657bb9ac8104a08df9cd1d87 /pretyping/reductionops.ml | |
parent | 67dc22d8389234d0c9b329944ff579e7056b7250 (diff) |
Pretyping API using EConstr.
Diffstat (limited to 'pretyping/reductionops.ml')
-rw-r--r-- | pretyping/reductionops.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index 69d47e8e6..0b97cd253 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -1317,6 +1317,8 @@ let sigma_univ_state = let infer_conv_gen conv_fun ?(catch_incon=true) ?(pb=Reduction.CUMUL) ?(ts=full_transparent_state) env sigma x y = + let x = EConstr.Unsafe.to_constr x in + let y = EConstr.Unsafe.to_constr y in try let fold cstr sigma = try Some (Evd.add_universe_constraints sigma cstr) |