fact: Definition flip (s : sform) := match s with t^+ => t^- | t^- => t^+ end.
imports: Relations Lia Setoid Morphisms mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype rewrite_inequality fset_tac)