fact: Fixpoint denote_continuation (k : continuation) : M (@continuation T S) := match k with | stop A a => Ret (stop A a) | p `; f => denote p >>= (denote_continuation \o f) end.
imports: Eqdep JMeq List ssreflect mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq) hierarchy monad_lib state_lib trace_lib monad_model