fact: Structure bnd_form A B i (e : A -> ST B) r (p : Prop) := BndForm {bnd_pivot :> ST A; _ : p -> vrf i (bind bnd_pivot e) r}.
imports: mathcomp(ssreflect ssrbool ssrnat eqtype seq ssrfun) pcm(options axioms pred prelude) pcm(pcm autopcm unionmap heap) htt(model)