fact: Definition nonce : (StateMonad.acto (nat * seq nat)%type) nat := do n : nat <- st_get; do _ : unit <- st_put (S n); do _ : unit <- st_mark n; Ret n.
imports: Eqdep JMeq List ssreflect mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq) hierarchy monad_lib state_lib trace_lib monad_model