fact: Definition RHSL3 (a b : nat) (A B : seq nat) : rat := \prod_(i <- belast a A) (1 / ((hook_length p (i, last b (b :: B)))%:Q - 1)) * \prod_(j <- belast b B) (1 / ((hook_length p (last a (a :: A), j))%:Q - 1)).
imports: Misc Ccpo mathcomp(all_ssreflect) mathcomp(ssrint div rat ssralg ssrnum) tools subseq partition Yamanouchi stdtab Qmeasure