diff options
| author | herbelin | 2000-06-01 20:51:48 +0000 |
|---|---|---|
| committer | herbelin | 2000-06-01 20:51:48 +0000 |
| commit | 08e2c28ee98c6a5d235cc9b84bc5690dd9a22666 (patch) | |
| tree | ad7198fd4aa7a08e220fe911e577d6da725aaaff /proofs | |
| parent | 5139432d6087f49ef549d8375a1a61db56f86dd1 (diff) | |
Mise en place d'un choix constr/typed_type en remplacement de certains Cast
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@485 85f007b7-540e-0410-9357-904b9bb8a0f7
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) -> |