proposition: Corollary gen_correctness C : gen C <-> ~ (exists M : cmodel, sat M C).
proof: Proof. split; first exact: gen_ref_sound. case: (gen_completeness C) => // ? H. exfalso. apply H. exact: ex_fc. Qed.
imports: Lia mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype) CompDecModal.K(K_def demo)