Definition stPosetMixin := PosetMixin st_botP st_refl st_asym st_trans.Canonical stPoset := Eval hnf in Poset ST stPosetMixin.

(* Specifications: *)
Lemma st_sup_coherent u : coherent (st_sup' u).
Lemma st_sup_dstrict u : def_strict (st_sup' u).