diff options
| author | Maxime Dénès | 2017-12-20 00:38:47 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-12-20 00:38:47 +0100 |
| commit | b3b3798fca7fd05f31cb921f981c15ee81507b0d (patch) | |
| tree | 21e626fe84012dac3043bd89b4ed20ac81b89742 /kernel/term_typing.mli | |
| parent | 7fac7294a1906a8df835e6d7be5bb1bca3f727b5 (diff) | |
| parent | 25f09e86ba1a3ab3c24d5e17336b01315a205e00 (diff) | |
Merge PR #6449: Let definitions must not contain side-effects when reaching the kernel.
Diffstat (limited to 'kernel/term_typing.mli')
| -rw-r--r-- | kernel/term_typing.mli | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/kernel/term_typing.mli b/kernel/term_typing.mli index 55da4197e2..c771452a19 100644 --- a/kernel/term_typing.mli +++ b/kernel/term_typing.mli @@ -18,7 +18,7 @@ type _ trust = | Pure : unit trust | SideEffects : structure_body -> side_effects trust -val translate_local_def : 'a trust -> env -> Id.t -> 'a definition_entry -> +val translate_local_def : env -> Id.t -> unit definition_entry -> constant_def * types * Univ.ContextSet.t val translate_local_assum : env -> types -> types @@ -62,8 +62,8 @@ type exported_side_effect = * be pushed in the safe_env by safe typing. The main constant entry * needs to be translated as usual after this step. *) val export_side_effects : - structure_body -> env -> side_effects constant_entry -> - exported_side_effect list * unit constant_entry + structure_body -> env -> side_effects definition_entry -> + exported_side_effect list * unit definition_entry val translate_mind : env -> MutInd.t -> mutual_inductive_entry -> mutual_inductive_body |