fact: Definition bigS := Zo (\Po (substrate r)) (fun M => (forall x, inc x M -> inc (Vf f x) M) /\ (forall N x, sub N M -> nonempty N -> least_upper_bound r N x -> inc x M)).
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)