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