fact: Definition min_reality_subdef (xnz ynz : nullity) (xr yr : reality) : reality := match xr, yr with | Real (Sign =0), Real (Sign =0) | Real (Sign =0), Real (Sign >=0) | Real (Sign >=0), Real (Sign =0) => =0 | Real (Sign >=0), Real (Sign >=0) => >=0 | Real (Sign <=0), Real _ | Real _, Real (Sign <=0) => <=0 | Real _, Real _ => >=<0 | _, _ => >?<0 end.
imports: HB(structures) Coq(ssreflect ssrfun ssrbool) mathcomp(ssrnat eqtype choice order ssralg ssrnum ssrint) mathcomp(mathcomp_extra)