fact: Definition maximal (C: clause) := [all s in F, (s^+ \in C) || (s^- \in C)].
imports: Relations Lia Setoid Morphisms mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype rewrite_inequality fset_tac)