proposition: Lemma rHyp s : mprv (\and_(<- [::]) ---> s) -> mprv s.
proof: Proof. move => H. by rewrite <- H, big_nil. Qed.
imports: mathcomp(all_ssreflect) CompDecModal.libs(edone base fset induced_sym) Setoid Morphisms Relation_Definitions