Definition st_sup u :=
  STprog (@st_sup_coherent u) (@st_sup_dstrict u) (@st_sup_has_spec u).Definition stLatticeMixin := LatticeMixin st_supP st_supM.Canonical stLattice := Lattice ST stLatticeMixin.

Lemma bot_runs : runs_of (model st_bot) =p Pred0.