diff options
| author | Pierre-Marie Pédrot | 2016-08-04 19:18:48 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-08-05 11:54:26 +0200 |
| commit | 26e5194bc252e4ac71c74f8ac73a0e2cbe82edf6 (patch) | |
| tree | b0f46e42fd417037fd5f9fda61726d48edb66474 /engine/evarutil.mli | |
| parent | 118572b57a6f15ad4342e8a75ca0836e7896d465 (diff) | |
Using the extended contexts in pretyping.
In addition to sharing, we also delay the computation of the environment in
a by-need fashion.
Diffstat (limited to 'engine/evarutil.mli')
| -rw-r--r-- | engine/evarutil.mli | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/engine/evarutil.mli b/engine/evarutil.mli index 45f0d6b078..429ea73de1 100644 --- a/engine/evarutil.mli +++ b/engine/evarutil.mli @@ -199,13 +199,13 @@ val clear_hyps_in_evi : env -> evar_map ref -> named_context_val -> types -> val clear_hyps2_in_evi : env -> evar_map ref -> named_context_val -> types -> types -> Id.Set.t -> named_context_val * types * types -val push_rel_decl_to_named_context : - Context.Rel.Declaration.t -> +type ext_named_context = Vars.substl * (Id.t * Constr.constr) list * - Id.Set.t * Context.Named.t -> - Term.constr list * (Id.t * Constr.constr) list * Id.Set.t * Context.Named.t +val push_rel_decl_to_named_context : + Context.Rel.Declaration.t -> ext_named_context -> ext_named_context + val push_rel_context_to_named_context : Environ.env -> types -> named_context_val * types * constr list * constr list * (identifier*constr) list |