fact: Definition step2 (cr : Z`2) (k : M bool) : M bool := (do b' <- k ; do uds <- get; let (b, uds') := test cr uds in put uds' >> Ret (b && b'))%Do.
imports: ZArith mathcomp(all_ssreflect) infotheo(ssrZ) monae_lib hierarchy monad_lib fail_lib state_lib