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.ml | |
| 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.ml')
| -rw-r--r-- | engine/evarutil.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/engine/evarutil.ml b/engine/evarutil.ml index b3a886f711..b3e17fa9d2 100644 --- a/engine/evarutil.ml +++ b/engine/evarutil.ml @@ -302,6 +302,10 @@ let next_name_away na avoid = let id = match na with Name id -> id | Anonymous -> default_non_dependent_ident in next_ident_away_from id avoid +type ext_named_context = + Vars.substl * (Id.t * Constr.constr) list * + Id.Set.t * Context.Named.t + let push_rel_decl_to_named_context decl (subst, vsubst, avoid, nc) = let open Context.Named.Declaration in let replace_var_named_declaration id0 id decl = |