diff options
Diffstat (limited to 'engine/evd.ml')
-rw-r--r-- | engine/evd.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/engine/evd.ml b/engine/evd.ml index b4375d4d6..8f8b29d10 100644 --- a/engine/evd.ml +++ b/engine/evd.ml @@ -1026,6 +1026,10 @@ let map_metas_fvalue f evd = in set_metas evd (Metamap.smartmap map evd.metas) +let map_metas f evd = + let map cl = map_clb f cl in + set_metas evd (Metamap.smartmap map evd.metas) + let meta_opt_fvalue evd mv = match Metamap.find mv evd.metas with | Clval(_,b,_) -> Some b |