(* Pre/poscondition and  *)
Definition pre := state -> Prop.(* Postconditions are binary *)
Definition post A := state -> A -> state -> Prop.Definition cont A := A -> state -> Prop.Definition spec A := prod pre (post A).Notation DTbin s := (@DTbin this W A s).Notation DTbin_make := DTbin.DTbin_make.

(* Specifications: *)
Lemma stsepE (W : world) A (s : spec A) (e1 e2 : DTbin this W s) : e1 = e2 <-> e1 = e2 :> prog W A this.