diff options
| author | herbelin | 2000-10-18 17:51:58 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-18 17:51:58 +0000 |
| commit | edfda2501f08f18e24bd2e3eca763eb1c2dec0ea (patch) | |
| tree | e4c42c670c2f61b95a7a0f68fd96f635aeef8b2b /library | |
| parent | a586cb418549eb523a3395155cab2560fd178571 (diff) | |
Simplifications autour de typed_type (renommé types par analogie avec sorts); documentation
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@727 85f007b7-540e-0410-9357-904b9bb8a0f7
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" |