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