diff options
| author | Gaëtan Gilbert | 2019-05-15 21:31:21 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-05-15 21:31:21 +0200 |
| commit | 70de06dc168c715e90abc38cc04d013f53ad8cee (patch) | |
| tree | ea9fcf2d979a17a735cac86e74ccd6e389997cf3 /kernel/safe_typing.mli | |
| parent | 8af28ba0d60a6417c735a68eca9c26262ab3abab (diff) | |
| parent | 3cdaffab75414f3f59386a4b76c6b00c94bc8b0e (diff) | |
Merge PR #10151: Clean up the API for side-effects
Reviewed-by: SkySkimmer
Ack-by: gares
Diffstat (limited to 'kernel/safe_typing.mli')
| -rw-r--r-- | kernel/safe_typing.mli | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/kernel/safe_typing.mli b/kernel/safe_typing.mli index 46c97c1fb8..d6c7022cf5 100644 --- a/kernel/safe_typing.mli +++ b/kernel/safe_typing.mli @@ -43,18 +43,13 @@ type 'a safe_transformer = safe_environment -> 'a * safe_environment type private_constants -val side_effects_of_private_constants : - private_constants -> Entries.side_eff list -(** Return the list of individual side-effects in the order of their - creation. *) - val empty_private_constants : private_constants val concat_private : private_constants -> private_constants -> private_constants (** [concat_private e1 e2] adds the constants of [e1] to [e2], i.e. constants in [e1] must be more recent than those of [e2]. *) -val private_con_of_con : safe_environment -> Constant.t -> private_constants -val private_con_of_scheme : kind:string -> safe_environment -> (inductive * Constant.t) list -> private_constants +val private_constant : safe_environment -> Entries.side_effect_role -> Constant.t -> private_constants +(** Constant must be the last definition of the safe_environment. *) val mk_pure_proof : Constr.constr -> private_constants Entries.proof_output val inline_private_constants_in_constr : @@ -62,6 +57,9 @@ val inline_private_constants_in_constr : val inline_private_constants_in_definition_entry : Environ.env -> private_constants Entries.definition_entry -> unit Entries.definition_entry +val push_private_constants : Environ.env -> private_constants -> Environ.env +(** Push the constants in the environment if not already there. *) + val universes_of_private : private_constants -> Univ.ContextSet.t list val is_curmod_library : safe_environment -> bool |