diff options
| author | herbelin | 2000-10-13 16:14:49 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-13 16:14:49 +0000 |
| commit | ab44b04dfc706a66de6ce5c6ad3df1ece6920918 (patch) | |
| tree | 61d4aa24d4bd2e7671b0bef247c1c10df793a49e | |
| parent | 23c6ebe32a6900d5f70e02279fed48ae74877531 (diff) | |
Suppression d'un test inutile dans RCast
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@707 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/pretyping.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index 93a03dcfa1..a7ac436b60 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -374,7 +374,11 @@ match cstr with (* Où teste-t-on que le résultat doit satisfaire tycon ? *) let tj = pretype_type (valcon_of_tycon tycon) env isevars lvar lmeta t in let tj = type_judgment env !isevars tj in let cj = pretype (mk_tycon tj.utj_val) env isevars lvar lmeta c in - inh_conv_coerce_to loc env isevars cj (assumption_of_type_judgment tj) + match tycon with + | None -> cj + | Some t' -> + let tj' = Retyping.get_assumption_of env !isevars t' in + inh_conv_coerce_to loc env isevars cj tj' and pretype_type valcon env isevars lvar lmeta = function | RHole loc -> |