diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-06-18 19:50:42 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-06-18 19:50:42 +0000 |
| commit | 0c37eb2501f7331dbab6450a4469d6c8885d92f5 (patch) | |
| tree | 1be6531df7b2b1a5223fdf25a674e9c6b15c25f5 /proofs | |
| parent | be541682b63bac7ef7c67b68545c42a1cf5a53fe (diff) | |
Quick fix for having clenv debug printer working in trunk.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13168 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/clenv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/clenv.ml b/proofs/clenv.ml index 8b4b41219..a36fae892 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -32,7 +32,7 @@ open Coercion.Default let pf_env = Refiner.pf_env let pf_hyps = Refiner.pf_hyps let pf_type_of gls c = Typing.type_of (pf_env gls) gls.sigma c -let pf_concl = Tacmach.pf_concl +let pf_concl gls = Goal.V82.concl (Refiner.project gls) (sig_it gls) (******************************************************************) (* Clausal environments *) |