diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/environ.ml | 1 | ||||
| -rw-r--r-- | kernel/environ.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index b1290452a9..64bb3a6664 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -83,6 +83,7 @@ let fold_rel_context f env ~init = (* Named context *) let named_context_of_val = fst +let named_vals_of_val = snd (* [map_named_val f ctxt] apply [f] to the body and the type of each declarations. diff --git a/kernel/environ.mli b/kernel/environ.mli index 10e9626747..19c67435c8 100644 --- a/kernel/environ.mli +++ b/kernel/environ.mli @@ -73,6 +73,7 @@ val fold_rel_context : (* Context of variables (section variables and goal assumptions) *) val named_context_of_val : named_context_val -> named_context +val named_vals_of_val : named_context_val -> Pre_env.named_vals val val_of_named_context : named_context -> named_context_val val empty_named_context_val : named_context_val |