From 5c668276b37f09077231c314b03254df6dce3c48 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 13 Aug 2002 16:13:32 +0000
Subject: Renoncement

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2962 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/typeops.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'kernel/typeops.ml')

diff --git a/kernel/typeops.ml b/kernel/typeops.ml
index 29b09dde14..88de140dfa 100644
--- a/kernel/typeops.ml
+++ b/kernel/typeops.ml
@@ -177,7 +177,7 @@ let judge_of_apply env funj argjv =
 		apply_rec (n+1) (subst1 hj.uj_val c2) cst' restjl
 	      with NotConvertible -> 
 		error_cant_apply_bad_type env
-		  (n,c1,body_of_type hj.uj_type)
+		  (n,c1, hj.uj_type)
 		  funj argjv)
 
           | _ ->
@@ -312,7 +312,7 @@ let type_fixpoint env lna lar vdefj =
   try
     conv_leq_vecti env
       (Array.map (fun j -> body_of_type j.uj_type) vdefj)
-      (Array.map (fun ty -> lift lt (body_of_type ty)) lar)
+      (Array.map (fun ty -> lift lt ty) lar)
   with NotConvertibleVect i ->
     error_ill_typed_rec_body env i lna vdefj lar
 
-- 
cgit v1.2.3