fact: Definition pcond C S := ~~ [all u in C, if u is [p]s^- then [some D in S, reach_demo S p C D && (s^- \in D)] else true].
imports: Relations Classical_Pred_Type mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base) CompDecModal.PDL(PDL_def)