Rien

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@467 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 5 insertions, 7 deletions

diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml
index 1c5615b25..2f059f6c1 100644
--- a/pretyping/pretyping.ml
+++ b/pretyping/pretyping.ml
@@ -117,8 +117,6 @@ let transform_rec loc env sigma (p,c,lf) (indt,pt) =
       in 
       applist (fix,realargs@[c])
   else
-    let lnames,_ = splay_prod env sigma (mis_arity mispec) in 
-    let nar = List.length lnames in
     let ci = make_default_case_info mispec in
     mkMutCaseA ci p c lf
 
@@ -432,11 +430,11 @@ match cstr with   (* Où teste-t-on que le résultat doit satisfaire tycon ? *)
       else
 	let mis,_ = dest_ind_family indf in
 	let ci = make_default_case_info mis in
-	mkMutCaseA ci pj.uj_val cj.uj_val (Array.map (fun j-> j.uj_val) lfj) in
-
-       {uj_val = v;
-       uj_type = rsty;
-       uj_kind = snd (splay_prod env !isevars evalPt)}
+	mkMutCaseA ci pj.uj_val cj.uj_val (Array.map (fun j-> j.uj_val) lfj)
+    in
+    {uj_val = v;
+     uj_type = rsty;
+     uj_kind = snd (splay_prod env !isevars evalPt)}
 
 | RCases (loc,prinfo,po,tml,eqns) ->
     Cases.compile_cases