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