diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-05 15:15:58 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-09 16:04:42 +0200 |
commit | e824d429363262a9ff9db117282fe15289b5ab59 (patch) | |
tree | cd319518235243c63835cd646d4b0536f2a656bd /proofs/proofview.ml | |
parent | 5eff644c658d1765ba73cd9e73c5bd7819c7d644 (diff) |
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...).
Diffstat (limited to 'proofs/proofview.ml')
-rw-r--r-- | proofs/proofview.ml | 2 |
1 files changed, 2 insertions, 0 deletions
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 |