proposition: Lemma gen_ref_sound C : gen C -> ~ (exists M : cmodel, sat M C).
proof: Proof. move => H. apply: href_sound. exact: gen_hsound. Qed.
imports: Lia mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype) CompDecModal.K(K_def demo)