diff options
| author | herbelin | 2000-01-07 22:22:20 +0000 |
|---|---|---|
| committer | herbelin | 2000-01-07 22:22:20 +0000 |
| commit | 92aed12e291b1efee31f331dff98386527bb69f0 (patch) | |
| tree | d2f60b9db4524441050f41324a3073e9460ee846 /library | |
| parent | 805b6b2776866acd2cf94d8ce72eabd7cebbefe1 (diff) | |
Correction pbs liés aux evar
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@265 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/indrec.ml | 33 | ||||
| -rw-r--r-- | library/indrec.mli | 3 |
2 files changed, 0 insertions, 36 deletions
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 *) |