From 16c90ce785f83d5fdb86ec0bf42aa89b541a8552 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 1 Jul 2000 17:54:35 +0000
Subject: Plus de env et sigma dans get_arity, plus de sigma dans make_arity

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

(limited to 'kernel/safe_typing.ml')

diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml
index 8435b6d74b..48692008cb 100644
--- a/kernel/safe_typing.ml
+++ b/kernel/safe_typing.ml
@@ -402,7 +402,7 @@ let type_one_constructor env_ar nparams arsort c =
 
 let type_one_inductive i env_ar env_par nparams ninds (id,ar,cnames,vc) =
   let arsort = sort_of_arity env_ar ar in
-  let (constrsinfos,jlc,cst') = 
+  let (constrsinfos,jlc,cst) = 
     List.fold_right
       (fun c (infosl,jl,cst) -> 
 	 let (infos,jc,cst') = type_one_constructor env_ar nparams arsort c in
@@ -413,7 +413,7 @@ let type_one_inductive i env_ar env_par nparams ninds (id,ar,cnames,vc) =
   let vc' = Array.of_list jlc in
   let issmall,isunit = small_unit constrsinfos (env_par,nparams,ar) in
   let (_,tyar) = lookup_rel (ninds+1-i) env_ar in
-  ((id,tyar,cnames,issmall,isunit,vc'), cst')
+  ((id,tyar,cnames,issmall,isunit,vc'), cst)
 
 let add_mind sp mie env =
   mind_check_names mie;
-- 
cgit v1.2.3