fact: Definition congrrule s := flatten [seq [seq (triple.1.1) ++ b1 ++ (triple.2) | b1 <- rule triple.1.2] | triple <- cut3 s ].
imports: HB(structures) mathcomp(all_ssreflect) Recdef permcomp permuted multinomial vectNK