fact: Definition tracer_example (m0 m1 m2 : m nat) : v _ := do x <- Lift M m0; do y <- Lift M m1; mark tt >> do z <- Lift M m2; Ret (x + y + z).
imports: ZArith mathcomp(all_ssreflect) infotheo(ssrZ) ihierarchy imonad_lib