proposition: Lemma Dyck_irred_Dyck l: Dyck_irred l -> Dyck_path l.
proof: Proof. move=>/andP[ /eqP {2} ->]; exact:Dyck_path_augment. Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype) mathcomp(ssrnat seq path div) mathcomp(fintype tuple finfun bigop finset binomial)