proposition: Lemma fdistI_perm_fdist1 (n : nat) (a : 'I_n) (s : 'S_n) : @fdistI_perm R n (fdist1 a) s = fdist1 (s^-1 a)%g.
proof: Proof. apply/fdist_ext => /= i; rewrite fdistI_permE !fdist1E. congr ((nat_of_bool _)%:R). by apply/eqP/eqP => [<-|->]; rewrite ?permK // ?permKV. Qed.
imports: mathcomp(all_ssreflect ssralg fingroup perm matrix) mathcomp(all_algebra vector reals normedtype) mathcomp(mathcomp_extra boolp) mathcomp(Rstruct) ssrR logb realType_ext ssr_ext ssralg_ext bigop_ext