fact: Definition good_rdir (rdir: rnd_record -> bool) := forall m : N, rdir (rnd_record_mk m false false) = false /\ (rdir (rnd_record_mk m false true) = false \/ rdir (rnd_record_mk m true false) = true) /\ (rdir (rnd_record_mk m true false) = false \/ rdir (rnd_record_mk m true true) = true).
imports: Bool ZArith Flocq(Raux Generic_fmt Round_NE)