fact: Definition monty {M : monad} (hide pick : M door) (tease strategy : door -> door -> M door) := (do h <- hide ; do p <- pick ; do t <- tease h p ; do s <- strategy p t ; Ret (s == h))%Do.
imports: Reals Lra mathcomp(all_ssreflect ssralg ssrnum) mathcomp(mathcomp_extra reals Rstruct) infotheo(ssrR realType_ext Reals_ext proba) monae_lib hierarchy monad_lib fail_lib proba_lib