proposition: Corollary small_models s: (exists (M: cmodel) (w: M), eval s w) -> (exists2 M: fmodel, #|M| <= 2^(4 * sizef s) & exists w: M, eval s w).
proof: Proof. case: (informative_completeness s); last by firstorder. move => /(soundness) H [M] [w] w_s. exfalso. exact: H w_s. Qed.
imports: Relations mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert) CompDecModal.CPDL(PDL_def demo)