fact: Structure bnd_form A B i (s : A -> spec B) r (p : Prop) := BndForm {bnd_pivot :> spec A; _ : p -> verify (bind_s bnd_pivot s) i r}.
imports: mathcomp(ssreflect ssrbool ssrfun) LemmaOverloading(heaps rels stmod stsep stlog)