fact: Definition Ex59_Jprop q n k J:= [/\ cardinal J = k, sub J Nat, (forall i j, inc i J -> inc j J -> i <c j -> i +c q <=c j) & (forall j, inc j J -> j +c q <=c q *c n)].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)