fact: Definition AR_fun (X : {set T}) := [set x | p x && q x ] :|: [set x | q x && [forall (y | e x y), y \in X]].
imports: mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype)