diff options
| author | coqbot-app[bot] | 2020-10-19 10:45:06 +0000 |
|---|---|---|
| committer | GitHub | 2020-10-19 10:45:06 +0000 |
| commit | 33f6551fd030643d0accf50dd762bcede5dd4b8b (patch) | |
| tree | 690c39bf35bc3bf460035f2ec0e55df50b859593 /plugins | |
| parent | 5be9faac2dcf44b383e57f95b4fbd558b8bd24b8 (diff) | |
| parent | 7320cd84f92793572550d1fe1a2181f40466fa81 (diff) | |
Merge PR #13151: Remove the compare_graph field from the conversion API.
Reviewed-by: SkySkimmer
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/ssrmatching/ssrmatching.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/plugins/ssrmatching/ssrmatching.ml b/plugins/ssrmatching/ssrmatching.ml index 5dedae6388..cdd15acb0d 100644 --- a/plugins/ssrmatching/ssrmatching.ml +++ b/plugins/ssrmatching/ssrmatching.ml @@ -204,7 +204,8 @@ exception NoProgress (* comparison can be much faster than the HO one. *) let unif_EQ env sigma p c = - let evars = existential_opt_value0 sigma, Evd.universes sigma in + let env = Environ.set_universes (Evd.universes sigma) env in + let evars = existential_opt_value0 sigma in try let _ = Reduction.conv env p ~evars c in true with _ -> false let unif_EQ_args env sigma pa a = |