From a42795cc1c2a8ed3efa9960af920ff7b16d928f0 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Thu, 1 Sep 2016 17:52:44 +0200
Subject: Introducing a new EConstr.t type to perform the nf_evar operation on
 demand.

---
 dev/db              | 1 +
 dev/top_printers.ml | 1 +
 2 files changed, 2 insertions(+)

(limited to 'dev')

diff --git a/dev/db b/dev/db
index d3503ef439..432baf8a62 100644
--- a/dev/db
+++ b/dev/db
@@ -28,6 +28,7 @@ install_printer Top_printers.pppattern
 install_printer Top_printers.ppglob_constr
 
 install_printer Top_printers.ppconstr
+install_printer Top_printers.ppeconstr
 install_printer Top_printers.ppuni
 install_printer Top_printers.ppuniverses
 install_printer Top_printers.ppconstraints
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index b552d99949..b7736f4987 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -71,6 +71,7 @@ let ppwf_paths x = pp (Rtree.pp_tree pprecarg x)
 let rawdebug = ref false
 let ppevar evk = pp (str (Evd.string_of_existential evk))
 let ppconstr x = pp (Termops.print_constr x)
+let ppeconstr x = pp (Termops.print_constr (EConstr.Unsafe.to_constr x))
 let ppconstr_expr x = pp (Ppconstr.pr_constr_expr x)
 let ppconstrdb x = pp(Flags.with_option rawdebug Termops.print_constr x)
 let ppterm = ppconstr
-- 
cgit v1.2.3