diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-03-12 19:57:48 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-03-23 16:33:26 +0100 |
commit | ea8185d872f242f8ebf4274ebe550ed81107150a (patch) | |
tree | 375409c66ecbe766c505ecffe0adb7d155ce0517 /kernel/term_typing.mli | |
parent | dccc6c5a0d7bb8b8936a8327ae979138c9f13453 (diff) |
Making the side_effects type opaque.
We move it from Entries to Term_typing and export the few functions needed
to manipulate it in this module.
Diffstat (limited to 'kernel/term_typing.mli')
-rw-r--r-- | kernel/term_typing.mli | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/kernel/term_typing.mli b/kernel/term_typing.mli index 89b5fc40e..5330fb32b 100644 --- a/kernel/term_typing.mli +++ b/kernel/term_typing.mli @@ -12,6 +12,8 @@ open Environ open Declarations open Entries +type side_effects + val translate_local_def : structure_body -> env -> Id.t -> side_effects definition_entry -> constant_def * types * constant_universes @@ -29,7 +31,10 @@ val inline_entry_side_effects : {!Entries.const_entry_body} field. It is meant to get a term out of a not yet type checked proof. *) -val uniq_seff : side_effects -> side_effects +val empty_seff : side_effects +val add_seff : side_effect -> side_effects -> side_effects +val concat_seff : side_effects -> side_effects -> side_effects +val uniq_seff : side_effects -> side_effect list val equal_eff : side_effect -> side_effect -> bool val translate_constant : |