fact: Definition monadtrace_example (m0 m1 m2 : M nat) : M nat := do x <- m0; st_put (Z_of_nat x) >> do y <- st_get; st_mark log0 >> do z <- m2; st_mark log1 >> Ret (x + Z.abs_nat y + z).
imports: ZArith mathcomp(all_ssreflect) infotheo(ssrZ) ihierarchy imonad_lib