fact: Hypothesis Hinvar_congr : forall u a b1 b2 c, invar inv b1 b2 -> invar inv u (a ++ b1 ++ c) -> invar inv u (a ++ b2 ++ c).
imports: HB(structures) mathcomp(all_ssreflect) Recdef permcomp permuted multinomial vectNK