diff options
Diffstat (limited to 'proofs/tacmach.ml')
| -rw-r--r-- | proofs/tacmach.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index 7209361109..b0880065ad 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -46,7 +46,7 @@ let pf_concl gls = (sig_it gls).evar_concl let pf_untyped_hyps gls = let sign = Environ.var_context (pf_env gls) in - map_sign_typ (fun x -> x.body) sign + map_sign_typ (fun x -> body_of_type x) sign let pf_nth_hyp gls n = nth_sign (pf_untyped_hyps gls) n |