proposition: Lemma axEUw s t u : mprv (EU (s :/\: u) (t :/\: u) ---> EU s t).
proof: Proof. by do ! rewrite -> axAEl. Qed.
imports: mathcomp(all_ssreflect) CompDecModal.libs(edone base fset induced_sym) Setoid Morphisms Relation_Definitions