proposition: Lemma ref_R2 C s : gen (s^- |` R C) -> gen (fAX s^- |` C).
proof: Proof. by constructor. Qed.
imports: Lia mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype) CompDecModal.K(K_def demo)