fact: Definition expansion f b k := [/\ natp b, natp k, \1c <c b & [/\ fgraph f, domain f = k & forall i, inc i (domain f) -> (Vg f i) <c b]].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(binomial div)