proposition: Lemma S_refute C : C \in U -> ~~ suppS S C -> ref C.
proof: Proof. Proof using sfc_F. move => inU. apply: R1 inU _ => //. exact: coref_S. Qed.
imports: Relations Lia mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype) CompDecModal.Kstar(Kstar_def demo hilbert_ref gen_def)