fact: Definition run_s {A : Type} (p : program A) (f : A -> continuation) (s : S) : {o & {f' & {s' | step (s, p `; f) o (s', f') } } }.
imports: Eqdep JMeq List ssreflect mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq) hierarchy monad_lib state_lib trace_lib monad_model