diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-17 18:25:02 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-18 18:54:43 +0200 |
| commit | 53ced0735f7e24735d78a02fc74588b8d9186eab (patch) | |
| tree | 93661920f42d9be934e59f5f972d165ea24785b7 /kernel/term_typing.mli | |
| parent | 806e3bc0ecfbf0a6bfd20e80caa8250e60d39152 (diff) | |
Moving the typing_flags to the environment.
Diffstat (limited to 'kernel/term_typing.mli')
| -rw-r--r-- | kernel/term_typing.mli | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/kernel/term_typing.mli b/kernel/term_typing.mli index b635f2d31..fcd95576c 100644 --- a/kernel/term_typing.mli +++ b/kernel/term_typing.mli @@ -12,10 +12,10 @@ open Environ open Declarations open Entries -val translate_local_def : flags:typing_flags -> structure_body -> env -> Id.t -> side_effects definition_entry -> +val translate_local_def : structure_body -> env -> Id.t -> side_effects definition_entry -> constant_def * types * constant_universes -val translate_local_assum : flags:typing_flags -> env -> types -> types +val translate_local_assum : env -> types -> types val mk_pure_proof : constr -> side_effects proof_output @@ -32,7 +32,7 @@ val inline_entry_side_effects : val uniq_seff : side_effects -> side_effects val translate_constant : - flags:typing_flags -> structure_body -> env -> constant -> side_effects constant_entry -> + structure_body -> env -> constant -> side_effects constant_entry -> constant_body type side_effect_role = @@ -47,7 +47,7 @@ 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 : - flags:typing_flags -> structure_body -> env -> side_effects constant_entry -> + structure_body -> env -> side_effects constant_entry -> exported_side_effect list * side_effects constant_entry val constant_entry_of_side_effect : @@ -60,11 +60,11 @@ val translate_recipe : env -> constant -> Cooking.recipe -> constant_body (** Internal functions, mentioned here for debug purpose only *) -val infer_declaration : flags:typing_flags -> trust:structure_body -> env -> constant option -> +val infer_declaration : trust:structure_body -> env -> constant option -> side_effects constant_entry -> Cooking.result val build_constant_declaration : - flags:typing_flags -> constant -> env -> Cooking.result -> constant_body + constant -> env -> Cooking.result -> constant_body val set_suggest_proof_using : (string -> env -> Id.Set.t -> Id.Set.t -> Id.t list -> string) -> unit |