fact: Structure ST := STprog { model : prog A s.1; _ : coherent model; _ : def_strict model; _ : model \In has_spec s}.
imports: mathcomp(ssreflect ssrbool ssrfun ssrnat eqtype seq) LemmaOverloading(prelude heaps rels hprop domains)