diff options
| author | Pierre-Marie Pédrot | 2020-10-11 17:50:40 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-10-11 17:56:44 +0200 |
| commit | 7320cd84f92793572550d1fe1a2181f40466fa81 (patch) | |
| tree | 69496a726a61f7d047e9260b9e4b6dc36ca05d4d /plugins | |
| parent | eb5a67de1fc586acc588d5c61c84df670284f054 (diff) | |
Similarly remove the explicit graph argument in the ~evar conversion API.
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 = |