From 92aed12e291b1efee31f331dff98386527bb69f0 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 7 Jan 2000 22:22:20 +0000
Subject: Correction pbs liés aux evar

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@265 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/indrec.ml  | 33 ---------------------------------
 library/indrec.mli |  3 ---
 2 files changed, 36 deletions(-)

(limited to 'library')

diff --git a/library/indrec.ml b/library/indrec.ml
index 2d1761daf3..f52960cab5 100644
--- a/library/indrec.ml
+++ b/library/indrec.ml
@@ -463,39 +463,6 @@ let count_rec_arg j =
     | (_::l) -> crec i l
   in 
   crec 0
-    
-let norec_branch_scheme env sigma typc =
-  let rec crec typc = match whd_betadeltaiota env sigma typc with 
-    | DOP2(Prod,c,DLAM(name,t)) -> DOP2(Prod,c,DLAM(name,crec t))
-    | _ -> mkExistential
-  in 
-  crec typc
-
-let rec_branch_scheme env sigma ((sp,j),_) typc recargs = 
-  let rec crec (typc,recargs) = 
-    match whd_betadeltaiota env sigma typc, recargs with 
-      | (DOP2(Prod,c,DLAM(name,t)),(ra::reca)) -> 
-          DOP2(Prod,c,
-	       match ra with 
-		 | Mrec k -> 
-                     if k=j then 
-		       DLAM(name,mkArrow mkExistential
-                              (crec (lift 1 t,reca)))
-                     else 
-		       DLAM(name,crec (t,reca))
-                 | _ -> DLAM(name,crec (t,reca)))
-      | (_,_) -> mkExistential
-  in 
-  crec (typc,recargs) 
-    
-let branch_scheme env sigma isrec i (mind,args as appmind) = 
-  let typc = type_inst_construct env sigma i appmind in 
-  if isrec then
-    let mispec = lookup_mind_specif mind env in 
-    let recarg = (mis_recarg mispec).(i-1) in
-    rec_branch_scheme env sigma mind typc recarg
-  else 
-    norec_branch_scheme env sigma typc
 
 (* if arity of mispec is (p_bar:P_bar)(a_bar:A_bar)s where p_bar are the
  * K parameters. Then then build_notdep builds the predicate
diff --git a/library/indrec.mli b/library/indrec.mli
index 4b078c4f13..f458c7a9e5 100644
--- a/library/indrec.mli
+++ b/library/indrec.mli
@@ -38,9 +38,6 @@ i*)
 
 val is_mutind : env -> 'a evar_map -> constr -> bool 
 
-val branch_scheme : 
-  env -> 'a evar_map -> bool -> int -> inductive * constr list -> constr
-
 (* In [inductive * constr list * constr list], the second argument is
    the list of global parameters and the third the list of real args *)
 
-- 
cgit v1.2.3