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