fact: Variables (A B : finType) (P : fdist T A) (Q : fdist T B) (R S : fdist_of T (Phant (A * B))).
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