proposition: Theorem href_of C : demo.ref F C -> ref C.
proof: Proof. Proof using sfc_F. elim => *;[ apply: R1 | apply: R2 | apply: R3]; eassumption. Qed.
imports: Relations Lia mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype) CompDecModal.Kstar(Kstar_def demo)