proposition: Lemma axW s t u : mprv ((s ---> t) ---> ((t ---> u) ---> s ---> u)).
proof: Proof. rule axC. B. Qed.
imports: mathcomp(all_ssreflect) CompDecModal.libs(edone base fset induced_sym) Setoid Morphisms Relation_Definitions