fact: Axiom randomRBoolCorrect : forall b b1 b2, implb b1 b2 -> (implb b1 b && implb b b2 <-> exists seed, (fst (randomRBool (b1, b2) seed)) = b).
imports: mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool ssrnat eqtype) ZArith LazyList Tactics List