fact: Definition ldec X Y (R : X -> Y -> Prop) := forall x y, R x y \/ ~ R x y.
imports: Relations Lia Setoid Morphisms mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype rewrite_inequality fset_tac)