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