fact: Definition inverse (f : U) : U' := um_foldl (fun r k v => r \+ pts v k) Unit undef f.
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(ssrnat eqtype seq path bigop) pcm(options prelude finmap seqperm pred seqext) pcm(pcm morphism)