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

1 files changed, 2 insertions, 2 deletions

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;