fact: Fixpoint omf_interp A B (f : omap_fun (nat_mapUMC A) (nat_mapUMC B)) e : natmap B := match e with UnitOmf => Unit | PtOmf k v => if map_fun f (k, v) is Some w then pts k w else Unit | UnOmf h1 h2 => omf_interp f h1 \+ omf_interp f h2 | OtherOmf h => f h end.
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(ssrnat eqtype seq) pcm(options pred prelude) pcm(pcm unionmap natmap)