diff options
author | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-02-22 09:56:54 +0000 |
---|---|---|
committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-02-22 09:56:54 +0000 |
commit | fdbc16dff05e57389a17a360814011f40489b499 (patch) | |
tree | e0897ce9789f608c839518161667edfc2e67fa90 /library | |
parent | f070d33f9822dac079e58a9920c9c9e0cade12f6 (diff) |
suppression de pop_named
meilleure discrimination dans les tactiques d'inversion
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2491 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
-rw-r--r-- | library/global.ml | 1 | ||||
-rw-r--r-- | library/global.mli | 1 |
2 files changed, 0 insertions, 2 deletions
diff --git a/library/global.ml b/library/global.ml index b929ad78f..db0e5f470 100644 --- a/library/global.ml +++ b/library/global.ml @@ -45,7 +45,6 @@ let push_named_def d = let (cst,env) = push_named_def d !global_env in global_env := env; cst -let pop_named_decls ids = global_env := pop_named_decls ids !global_env let add_constant sp ce = global_env := add_constant sp ce !global_env let add_mind sp mie = global_env := add_mind sp mie !global_env diff --git a/library/global.mli b/library/global.mli index 48b647c6a..48e90d12e 100644 --- a/library/global.mli +++ b/library/global.mli @@ -30,7 +30,6 @@ val named_context : unit -> Sign.named_context (* Extending env with variables, constants and inductives *) val push_named_assum : (identifier * types) -> Univ.constraints val push_named_def : (identifier * constr * types option) -> Univ.constraints -val pop_named_decls : identifier list -> unit val add_constant : constant -> global_declaration -> unit val add_mind : mutual_inductive -> mutual_inductive_entry -> unit |