From e824d429363262a9ff9db117282fe15289b5ab59 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin <Hugo.Herbelin@inria.fr>
Date: Sun, 5 Oct 2014 15:15:58 +0200
Subject: A version of convert_concl and convert_hyp in new proof engine.

Not very optimized though (if we apply convert_hyp on any hyp, a new
evar will be generated for every different hyp...).
---
 proofs/proofview.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'proofs/proofview.ml')

diff --git a/proofs/proofview.ml b/proofs/proofview.ml
index 9f8458ba7..8fe924e0f 100644
--- a/proofs/proofview.ml
+++ b/proofs/proofview.ml
@@ -877,6 +877,8 @@ module Goal = struct
   let hyps { env=env } = Environ.named_context env
   let concl { concl=concl } = concl
 
+  let raw_concl { concl=concl } = concl
+
   let nf_enter_t = Goal.nf_enter begin fun env sigma concl self ->
     {env=env;sigma=sigma;concl=concl;self=self}
   end
-- 
cgit v1.2.3