proposition: Lemma FL0_refl p s : [p]s \in FL0 p s.
proof: Proof. case: p => /= *; by fset_nocut. Qed.
imports: Relations Lia Setoid Morphisms mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype rewrite_inequality fset_tac)