proposition: Lemma ax_contraNN s t : mprv ((s ---> t) ---> ~~:t ---> ~~: s).
proof: Proof. do 3 Intro. Apply* 1. Apply. Qed.
imports: mathcomp(all_ssreflect) CompDecModal.libs(edone base fset induced_sym) Setoid Morphisms Relation_Definitions