fact: Definition Rc a C := [fset body s | s <- [fset t in C | isCBox a t]].
imports: Relations Lia Setoid Morphisms mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype rewrite_inequality fset_tac)