fact: Definition interp (s:sform) := match s with (s, true) => s | (s, false) => Neg s end.
imports: Relations Lia Setoid Morphisms mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype rewrite_inequality fset_tac)