fact: Definition pcond C S := ~~ [all u in C, if u is fAX s^- then suppS S (s^- |` R C) else true].
imports: mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base sltype) CompDecModal.K(K_def)