From bedaec8452d0600ede52efeeac016c9d323c66de Mon Sep 17 00:00:00 2001 From: herbelin Date: Wed, 18 Oct 2000 14:37:44 +0000 Subject: Renommage canonique : declaration = definition | assumption mode de reference = named | rel Ex: push_named_decl : named_declaration -> env -> env lookup_named : identifier -> safe_environment -> constr option * typed_type add_named_assum : identifier * typed_type -> named_context -> named_context add_named_def : identifier*constr*typed_type -> named_context -> named_context git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@723 85f007b7-540e-0410-9357-904b9bb8a0f7 --- kernel/indtypes.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'kernel/indtypes.ml') diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index a5ca14f522..fdfdf0052e 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -180,7 +180,7 @@ let listrec_mconstr env ntypes nparams i indlc = assert (largs = []); if not (noccur_between n ntypes b) then raise (IllFormedInd (LocalNonPos n)); - check_pos (push_rel_decl (na, outcast_type b) env) (n+1) d + check_pos (push_rel_assum (na, outcast_type b) env) (n+1) d | IsRel k -> if k >= n && k if noccur_between n ntypes b - then check_weak_pos (push_rel_decl (na,outcast_type b) env) (n+1) d + then check_weak_pos (push_rel_assum (na,outcast_type b) env) (n+1) d else raise (IllFormedInd (LocalNonPos n)) (******************) | _ -> check_pos env n x @@ -263,7 +263,7 @@ let listrec_mconstr env ntypes nparams i indlc = | IsProd (na,b,d) -> assert (largs = []); let recarg = check_pos env n b in - check_constr_rec (push_rel_decl (na,outcast_type b) env) + check_constr_rec (push_rel_assum (na,outcast_type b) env) (recarg::lrec) (n+1) d (* LetIn's must be free of occurrence of the inductive types and @@ -358,7 +358,7 @@ let cci_inductive env env_ar kind nparams finite inds cst = let packets = Array.of_list (list_map_i one_packet 1 inds) in { mind_kind = kind; mind_ntypes = ntypes; - mind_hyps = keep_hyps ids (var_context env); + mind_hyps = keep_hyps ids (named_context env); mind_packets = packets; mind_constraints = cst; mind_singl = None; -- cgit v1.2.3