fact: Definition play_n (strategy : door -> door -> M door) : M bool := monty hide_n (pick def : M _) tease_n strategy.
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