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