From e4fc09fcbbf8a1accd615af895a8fde3bd96f828 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 22 May 2000 19:55:58 +0000
Subject: Rien

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@467 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/pretyping.ml | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml
index 1c5615b25e..2f059f6c10 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
       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
-- 
cgit v1.2.3