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