fact: Definition in_hook rc kl := let: (r, c) := rc in let: (k, l) := kl in ((r == k) && (c < l < nth 0 p r)) || ((c == l) && (r < k < nth 0 conj c)).
imports: Misc Ccpo mathcomp(all_ssreflect) mathcomp(ssrint div rat ssralg ssrnum) tools subseq partition Yamanouchi stdtab Qmeasure