proposition: Lemma box_request (C: clause) a : prv ([af C] ---> [pV a][af R a C]).
proof: Proof. rewrite <- bigABBA. apply: bigAI. case => [s [|]]; last by rewrite (negbTE (Rpos _ _ _)). rewrite RE. exact: bigAE. Qed.
imports: Relations Lia Setoid Morphisms mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype rewrite_inequality fset_tac)