fact: Fixpoint updi x (vs : seq A) {struct vs} : heap := if vs is v'::vs' then x :-> v' \+ updi (x .+ 1) vs' else Unit.
imports: Coq(ssreflect ssrbool ssrfun Eqdep) mathcomp(ssrnat eqtype seq path) pcm(options axioms finmap) pcm(pcm unionmap)