diff options
Diffstat (limited to 'pretyping/evd.ml')
| -rw-r--r-- | pretyping/evd.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml index b29afc0cb3..2b9a0ed82d 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -610,12 +610,18 @@ let meta_with_name evd id = (str "Binder name \"" ++ pr_id id ++ strbrk "\" occurs more than once in clause.") +let mk_meta_subst evd = + Metamap.fold (fun mv cl subst -> match cl with + | Clval(_,(b,_),typ) -> (mv, b.rebus) :: subst + | Cltyp (_,typ) -> subst) evd.metas [] let meta_merge evd1 evd2 = {evd2 with metas = List.fold_left (fun m (n,v) -> Metamap.add n v m) evd2.metas (metamap_to_list evd1.metas) } +let replace_metas metas evd = { evd with metas = metas } + type metabinding = metavariable * constr * instance_status let retract_coercible_metas evd = |