proposition: Corollary small_models s: (exists (M:cmodel) (w:M), eval s w) -> (exists2 M:fmodel, #|M| <= 2^(f_size s) & exists w:M, eval s w).
proof: Proof. case: (informative_completeness s) => // /soundness H [M] [w] w_s. exfalso. exact: H w_s. Qed.
imports: Lia mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype) CompDecModal.K(K_def demo)