fact: Definition hook_box_indices rc : seq (nat+nat) := [seq inl k | k <- iota rc.1.+1 ((nth 0 conj rc.2).-1 - rc.1)] ++ [seq inr k | k <- iota rc.2.+1 ((nth 0 p rc.1).-1 - rc.2)].
imports: Misc Ccpo mathcomp(all_ssreflect) mathcomp(ssrint div rat ssralg ssrnum) tools subseq partition Yamanouchi stdtab Qmeasure