proposition: Lemma model_of_dc c s : s \in val c -> hintikka' s (val c).
proof: Proof. case/demoD0/andP : (valP c) => _ /allP. apply. Qed.
imports: Relations Classical_Pred_Type mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base) CompDecModal.PDL(PDL_def)