diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/tacinterp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/tacinterp.ml b/proofs/tacinterp.ml index bd7ff32a76..6d999b9c5d 100644 --- a/proofs/tacinterp.ml +++ b/proofs/tacinterp.ml @@ -588,7 +588,7 @@ and cvt_pattern (evc,env,lfun,lmatch,goalopt)=function in let jdt=Typing.unsafe_machine env evc csr in - (occs, jdt.Environ.uj_val, jdt.Environ.uj_type) + (occs, jdt.Environ.uj_val, body_of_type jdt.Environ.uj_type) |arg -> invalid_arg_loc (Ast.loc arg,"cvt_pattern") and cvt_unfold (evc,env,lfun,lmatch,goalopt)=function Node(_,"UNFOLD", com::nums) -> |