diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/global.mli | 4 | ||||
| -rw-r--r-- | library/indrec.ml | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/library/global.mli b/library/global.mli index 88f690c54b..e9a9503ff3 100644 --- a/library/global.mli +++ b/library/global.mli @@ -33,8 +33,8 @@ val add_constraints : constraints -> unit val pop_named_decls : identifier list -> unit -val lookup_named : identifier -> constr option * typed_type -(*i val lookup_rel : int -> name * typed_type i*) +val lookup_named : identifier -> constr option * types +(*i val lookup_rel : int -> name * types i*) val lookup_constant : section_path -> constant_body val lookup_mind : section_path -> mutual_inductive_body val lookup_mind_specif : inductive -> inductive_instance diff --git a/library/indrec.ml b/library/indrec.ml index 6f1a4cd122..a11ca751be 100644 --- a/library/indrec.ml +++ b/library/indrec.ml @@ -173,19 +173,19 @@ let make_rec_branch_arg env sigma (nparams,fvect,decF) f cstr recargs = (match optionpos with | None -> lambda_name env - (n,incast_type t,process_constr (i+1) + (n,t,process_constr (i+1) (whd_beta (applist (lift 1 f, [(mkRel 1)]))) (cprest,rest)) | Some(_,f_0) -> let nF = lift (i+1+decF) f_0 in let arg = process_pos nF (lift 1 (body_of_type t)) in lambda_name env - (n,incast_type t,process_constr (i+1) + (n,t,process_constr (i+1) (whd_beta (applist (lift 1 f, [(mkRel 1); arg]))) (cprest,rest))) | (n,Some c,t)::cprest, rest -> mkLetIn - (n,c,incast_type t, + (n,c,t, process_constr (i+1) (lift 1 f) (cprest,rest)) | [],[] -> f | _,[] | [],_ -> anomaly "process_constr" |