From ac5d50d405ad878b6899d483e64576de63d2d095 Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Fri, 5 Apr 2019 01:44:59 +0200
Subject: Functionalize env in type classes

I had to reorganize the code a bit. The Context command moved to
comAssumption, as it is not so related to type classes. We were able to
remove a few hooks on the way.
---
 printing/prettyp.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'printing')

diff --git a/printing/prettyp.ml b/printing/prettyp.ml
index 8bf86e9ef6..9541ea5882 100644
--- a/printing/prettyp.ml
+++ b/printing/prettyp.ml
@@ -952,5 +952,6 @@ let print_all_instances () =
 
 let print_instances r =
   let env = Global.env () in
-  let inst = instances r in
+  let sigma = Evd.from_env env in
+  let inst = instances env sigma r in
     prlist_with_sep fnl (pr_instance env) inst
-- 
cgit v1.2.3