diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-11-19 08:40:02 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-11-19 08:40:02 +0000 |
| commit | 058e824e819b3610d0a4c0c53ded094b4b347b9f (patch) | |
| tree | 6ac6a8025006dac874f3e2dd60fe627bee9f9033 | |
| parent | 17711ce26ae061698cd07cbbd3ddfa1538d21cd4 (diff) | |
Remise en place du Cast pour Correctness
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2199 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/pretyping.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index 02138c049..6336d4650 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -408,7 +408,8 @@ let rec pretype tycon env isevars lvar lmeta = function let tj = pretype_type (valcon_of_tycon 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*) - let v = (* mkCast ( *) cj.uj_val (* , tj.utj_val) *) in + (* ... except for Correctness *) + let v = mkCast (cj.uj_val, tj.utj_val) in let cj = { uj_val = v; uj_type = tj.utj_val } in inh_conv_coerce_to_tycon loc env isevars cj tycon |