fact: Definition tease_f (h p : door) : M door := uniform def (doors \\ [:: p]) >>= (fun t => if t == h then fail else Ret t).
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