diff options
| author | herbelin | 2000-10-11 13:41:26 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-11 13:41:26 +0000 |
| commit | 9ca14acd5acdd6159540d072a777adb4b9ed5ed0 (patch) | |
| tree | e8b5a84f915e575aa150ddc1b52a55a89f4d4609 /library | |
| parent | d510a00bbe0223a34e1fe2f8ad77f9141ec700e2 (diff) | |
Prise en compte de Let dans build_dependent_inductive
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@683 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/indrec.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/indrec.ml b/library/indrec.ml index f968711430..6f1a4cd122 100644 --- a/library/indrec.ml +++ b/library/indrec.ml @@ -53,7 +53,7 @@ let mis_make_case_com depopt env sigma mispec kind = let ind = make_ind_family (mispec,rel_list nbprod nparams) in let lnamesar,_ = get_arity ind in let ci = make_default_case_info mispec in - it_lambda_name env' + it_mkLambda_or_LetIn_name env' (lambda_create env' (build_dependent_inductive ind, mkMutCase (ci, @@ -242,16 +242,16 @@ let mis_make_indrec env sigma listdepkind mispec = let indf = make_ind_family (mispeci,rel_list (nrec+nbconstruct) nparams) in let deftyi = - it_lambda_name env + it_mkLambda_or_LetIn_name env (lambda_create env (build_dependent_inductive (lift_inductive_family nrec indf), mkMutCase (make_default_case_info mispeci, mkRel (dect+j+1), mkRel 1, branches))) - (lift_context nrec lnames) + (Sign.lift_rel_context nrec lnames) in let typtyi = - it_prod_name env + it_mkProd_or_LetIn_name env (prod_create env (build_dependent_inductive indf, (if dep then |