diff options
| author | herbelin | 2001-11-20 17:21:11 +0000 |
|---|---|---|
| committer | herbelin | 2001-11-20 17:21:11 +0000 |
| commit | 013410db4bdb05a702eedee461a4efea1f6f704b (patch) | |
| tree | af5c76cf361da8e89a5f0aa23b42f0470db76273 /pretyping | |
| parent | 9416b8586f9378db5fae911593ed35f5388321e1 (diff) | |
Correction bug contrainte de valeur trop restrictive sur le typage du type du Cast
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2214 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/pretyping.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index 6336d46501..dee738a777 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -405,7 +405,7 @@ let rec pretype tycon env isevars lvar lmeta = function tycon env (* loc *) (po,tml,eqns) | RCast(loc,c,t) -> - let tj = pretype_type (valcon_of_tycon tycon) env isevars lvar lmeta t in + let tj = pretype_type empty_tycon env isevars lvar lmeta t in let cj = pretype (mk_tycon tj.utj_val) env isevars lvar lmeta c in (* User Casts are for helping pretyping, experimentally not to be kept*) (* ... except for Correctness *) |