proposition: Lemma axAsT s : mprv (s <--> s :/\: Top).
proof: Proof. rule axEI. by rewrite <- axAC, <- axAI. exact: axAEl. Qed.
imports: mathcomp(all_ssreflect) CompDecModal.libs(edone base fset induced_sym) Setoid Morphisms Relation_Definitions