fact: Definition real_dedekind B := [/\ sub B BQ, nonempty B, B <> BQ, (forall x y, inc x B -> x <q y -> inc y B) & (forall x, inc x B -> exists2 y, inc y B & y <q x)].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)