From 058e824e819b3610d0a4c0c53ded094b4b347b9f Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 19 Nov 2001 08:40:02 +0000
Subject: 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
---
 pretyping/pretyping.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml
index 02138c0496..6336d46501 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
 
-- 
cgit v1.2.3