diff options
| author | herbelin | 2001-11-17 18:09:59 +0000 |
|---|---|---|
| committer | herbelin | 2001-11-17 18:09:59 +0000 |
| commit | 17711ce26ae061698cd07cbbd3ddfa1538d21cd4 (patch) | |
| tree | aa0d90f29d7d1b959da03d0c2ced9035e280cbcd | |
| parent | c258a64ab61898062bd34271608945a979f168a8 (diff) | |
User Casts are for helping pretyping, experimentally not to be kept
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2198 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/pretyping.ml | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index a98cc3e81d..02138c0496 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -396,8 +396,8 @@ let rec pretype tycon env isevars lvar lmeta = function mkCase (ci, (nf_betaiota pj.uj_val), cj.uj_val, Array.map (fun j-> j.uj_val) lfj) in - {uj_val = v; - uj_type = rsty } + { uj_val = v; + uj_type = rsty } | RCases (loc,prinfo,po,tml,eqns) -> Cases.compile_cases loc @@ -407,7 +407,9 @@ let rec pretype tycon env isevars lvar lmeta = function | RCast(loc,c,t) -> 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 - let cj = {uj_val = mkCast (cj.uj_val,tj.utj_val); uj_type=tj.utj_val} in + (* User Casts are for helping pretyping, experimentally not to be kept*) + 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 | RDynamic (loc,d) -> |