proposition: Lemma axA2 s : mprv (s <--> s :/\: s).
proof: Proof. rule axEI; last exact: axAEl. Intro. ApplyH axAI. Qed.
imports: mathcomp(all_ssreflect) CompDecModal.libs(edone base fset induced_sym) Setoid Morphisms Relation_Definitions