fact: Definition Exercise6_32_in A B k0 := forall n l, intp n -> natp l -> \1c <=c l -> csumb (ZN_int n \0c l) (Vg (fdfc A)) <=c csumb (ZN_int n k0 (l +c k0)) (Vg (fdfc B)).
imports: mathcomp(ssreflect ssrbool ssrfun eqtype)