diff options
author | 2015-10-02 16:27:58 +0200 | |
---|---|---|
committer | 2015-10-02 16:33:15 +0200 | |
commit | 944c8de0bfe4048e0733a487e6388db4dfc9075a (patch) | |
tree | af037ad2d990da53529356fec44860ad9ca87577 /plugins/setoid_ring | |
parent | 16c88c9be5c37ee2e4fe04f7342365964031e7dd (diff) | |
parent | 8860362de4a26286b0cb20cf4e02edc5209bdbd1 (diff) |
Merge branch 'v8.5'
Diffstat (limited to 'plugins/setoid_ring')
-rw-r--r-- | plugins/setoid_ring/newring.ml | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/plugins/setoid_ring/newring.ml b/plugins/setoid_ring/newring.ml index f73a15dba..942ca15a5 100644 --- a/plugins/setoid_ring/newring.ml +++ b/plugins/setoid_ring/newring.ml @@ -145,14 +145,19 @@ let _ = add_tacdef false ((Loc.ghost,Id.of_string"ring_closed_term" (****************************************************************************) let ic c = - let env = Global.env() and sigma = Evd.empty in + let env = Global.env() in + let sigma = Evd.from_env env in Constrintern.interp_open_constr env sigma c let ic_unsafe c = (*FIXME remove *) - let env = Global.env() and sigma = Evd.empty in + let env = Global.env() in + let sigma = Evd.from_env env in fst (Constrintern.interp_constr env sigma c) -let ty c = Typing.unsafe_type_of (Global.env()) Evd.empty c +let ty c = + let env = Global.env() in + let sigma = Evd.from_env env in + Typing.unsafe_type_of env sigma c let decl_constant na ctx c = let vars = Universes.universes_of_constr c in |