Remove some occurrences of Evd.empty

We address the easy ones, but they should probably be all removed.

1 files changed, 3 insertions, 1 deletions

diff --git a/interp/reserve.ml b/interp/reserve.ml
index b57103cf22..071248f01f 100644
--- a/interp/reserve.ml
+++ b/interp/reserve.ml
@@ -112,7 +112,9 @@ let revert_reserved_type t =
     let t = EConstr.Unsafe.to_constr t in
     let reserved = KeyMap.find (constr_key t) !reserve_revtable in
     let t = EConstr.of_constr t in
-    let t = Detyping.detype Detyping.Now false Id.Set.empty (Global.env()) Evd.empty t in
+    let env = Global.env () in
+    let evd = Evd.from_env env in
+    let t = Detyping.detype Detyping.Now false Id.Set.empty env evd t in
     (* pedrot: if [Notation_ops.match_notation_constr] may raise [Failure _]
         then I've introduced a bug... *)
     let filter _ pat =