diff options
| author | Gaëtan Gilbert | 2020-06-19 16:41:25 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-06-19 16:41:25 +0200 |
| commit | 72b25f10cb5f4ac249e4009418dd7b93626a23ab (patch) | |
| tree | 4a8eecb27a0997702c1b6f335f165179fbb01a62 /kernel | |
| parent | 33e763a441022623621536766ac38c3021dcb65c (diff) | |
| parent | 695ca081db78c250db58381027e49f4be701672e (diff) | |
Merge PR #12502: Preserve sharing in evar instances
Reviewed-by: SkySkimmer
Ack-by: gares
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/environ.mli | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/environ.mli b/kernel/environ.mli index 79e632daa0..f489b13a3b 100644 --- a/kernel/environ.mli +++ b/kernel/environ.mli @@ -176,6 +176,8 @@ val named_body : variable -> env -> constr option val fold_named_context : (env -> Constr.named_declaration -> 'a -> 'a) -> env -> init:'a -> 'a +val match_named_context_val : named_context_val -> (named_declaration * lazy_val * named_context_val) option + (** Recurrence on [named_context] starting from younger decl *) val fold_named_context_reverse : ('a -> Constr.named_declaration -> 'a) -> init:'a -> env -> 'a |