diff options
| author | herbelin | 2000-10-18 14:37:44 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-18 14:37:44 +0000 |
| commit | bedaec8452d0600ede52efeeac016c9d323c66de (patch) | |
| tree | 7f056ffcd58f58167a0e813d5a8449eb950a8e23 /toplevel/command.ml | |
| parent | 9983a5754258f74293b77046986b698037902e2b (diff) | |
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
Diffstat (limited to 'toplevel/command.ml')
| -rw-r--r-- | toplevel/command.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 1fd4fc4034..6150f0c024 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -141,7 +141,7 @@ let build_mutual lparams lnamearconstrs finite = let raw_arity = mkProdCit lparams arityc in let arj = type_judgment_of_rawconstr Evd.empty env raw_arity in let arity = Typeops.assumption_of_type_judgment arj in - let env' = Environ.push_rel_decl (Name recname,arity) env in + let env' = Environ.push_rel_assum (Name recname,arity) env in (env', (arity::arl))) (env0,[]) lnamearconstrs in @@ -218,7 +218,7 @@ let build_recursive lnameargsardef = let arity = Typeops.assumption_of_type_judgment arj in declare_variable recname (SectionLocalDecl arj.utj_val,NeverDischarge,false); - (Environ.push_var_decl (recname,arity) env, (arity::arl))) + (Environ.push_named_assum (recname,arity) env, (arity::arl))) (env0,[]) lnameargsardef with e -> States.unfreeze fs; raise e @@ -286,7 +286,7 @@ let build_corecursive lnameardef = let arity = Typeops.assumption_of_type_judgment arj in declare_variable recname (SectionLocalDecl arj.utj_val,NeverDischarge,false); - (Environ.push_var_decl (recname,arity) env, (arity::arl))) + (Environ.push_named_assum (recname,arity) env, (arity::arl))) (env0,[]) lnameardef with e -> States.unfreeze fs; raise e |