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 /engine/eConstr.ml | |
| parent | 33e763a441022623621536766ac38c3021dcb65c (diff) | |
| parent | 695ca081db78c250db58381027e49f4be701672e (diff) | |
Merge PR #12502: Preserve sharing in evar instances
Reviewed-by: SkySkimmer
Ack-by: gares
Diffstat (limited to 'engine/eConstr.ml')
| -rw-r--r-- | engine/eConstr.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/engine/eConstr.ml b/engine/eConstr.ml index ca681e58f8..42c9359ff0 100644 --- a/engine/eConstr.ml +++ b/engine/eConstr.ml @@ -733,6 +733,11 @@ let map_rel_context_in_env f env sign = in aux env [] (List.rev sign) +let match_named_context_val : + named_context_val -> (named_declaration * lazy_val * named_context_val) option = + match unsafe_eq with + | Refl -> match_named_context_val + let fresh_global ?loc ?rigid ?names env sigma reference = let (evd,t) = Evd.fresh_global ?loc ?rigid ?names env sigma reference in evd, t |