proposition: Lemma axIO s t : mprv ((s ---> t) ---> (~~: s :\/: t)).
proof: Proof. rewrite /Or. by rewrite -> axDN. Qed.
imports: mathcomp(all_ssreflect) CompDecModal.libs(edone base fset induced_sym) Setoid Morphisms Relation_Definitions