diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2018-03-08 21:22:59 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2018-03-08 21:22:59 +0100 |
commit | a40fb961c8ffeeb03769404cacda8bd6cff17417 (patch) | |
tree | 7105d621bc16f825c1f309e3d5b7720b1b1513ec /plugins/ssr/ssrcommon.ml | |
parent | 3875a525ee1e075be9f0eb1f17c74726e9f38b43 (diff) | |
parent | 66973ce17e32a3c692a5b0032f38300ec8cc36d3 (diff) |
Merge PR #6893: Cleanup UState API usage
Diffstat (limited to 'plugins/ssr/ssrcommon.ml')
-rw-r--r-- | plugins/ssr/ssrcommon.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ssr/ssrcommon.ml b/plugins/ssr/ssrcommon.ml index 43c29a08a..f049963f1 100644 --- a/plugins/ssr/ssrcommon.ml +++ b/plugins/ssr/ssrcommon.ml @@ -1193,7 +1193,7 @@ let pf_interp_gen_aux gl to_ind ((oclr, occ), t) = else let gl, ccl = pf_mkprod gl c cl in false, pat, ccl, c, clr,ucst,gl else if to_ind && occ = None then let nv, p, _, ucst' = pf_abs_evars gl (fst pat, c) in - let ucst = Evd.union_evar_universe_context ucst ucst' in + let ucst = UState.union ucst ucst' in if nv = 0 then anomaly "occur_existential but no evars" else let gl, pty = pfe_type_of gl p in false, pat, EConstr.mkProd (constr_name (project gl) c, pty, Tacmach.pf_concl gl), p, clr,ucst,gl |