proposition: Lemma gal_perm_cycle_order : #[(gal_perm gal_cycle)]%g = d.
proof: Proof. by rewrite order_injm ?gal_cycle_order ?injm_gal_perm ?gal1. Qed.
imports: HB(structures) mathcomp(all_ssreflect all_fingroup all_algebra) mathcomp(all_solvable all_field polyrcf) Abel(various classic_ext map_gal algR) Abel(char0 cyclotomic_ext real_closed_ext)