proposition: Lemma injm_eltm : 'injm (eltm dvd_y_x) = (#[x] %| #[y]).
proof: Proof. by rewrite ker_eltm subG1 cycle_eq1 -order_dvdn. Qed.
imports: HB(structures) mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat seq choice div) mathcomp(fintype bigop prime finset fingroup morphism) mathcomp(perm automorphism quotient gproduct ssralg) mathcomp(finalg zmodp poly)