fact: Fixpoint updi x (vs : seq A) {struct vs} : heap := if vs is v'::vs' then (x :-> v') :+ updi (x .+ 1) vs' else empty.
imports: mathcomp(ssreflect ssrfun ssrnat div ssrbool seq) LemmaOverloading(prelude finmap ordtype) mathcomp(path eqtype) Eqdep