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