proposition: Proposition support_sat C : (exists M, sat M C) <-> (exists D, [/\ D \in S0 (sfc C), (exists M, sat M D) & suppC D C]).
proof: Proof. exact: support_sat. Qed.
imports: mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset modular_hilbert base sltype) CompDecModal.K(K_def demo hilbert_ref gentzen universal_model)