fact: Definition AS8_def := forall (R : relation), (forall y, exists X, forall x, R x y-> inc x X) -> (forall Y, collectivizing (fun x => exists2 y, inc y Y & R x y)).
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)