fact: Record demo := Demo { cls :> {fset clause} ; demoD0 : D0 cls ; demoD1 : D1 cls }.
imports: Relations Classical_Pred_Type mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base) CompDecModal.PDL(PDL_def)