fact: Definition decode_unOp (n : nat + nat) : unOp := match n with inl 0 => Opp | inl 1 => Inv | inl n.+2 => Exp n | inr n => Root n end.
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)