fact: Fixpoint Knes_fun_it (i : nat) : Knes_tup := match i with | O => Build_Knes_tup [0] c0 p0ltc0 | S j => Knes_fun (Knes_fun_it j):Knes_tup end.
imports: CoRN.fta.KneserLemma CoRN.fta.CPoly_Shift CoRN.fta.CPoly_Contin1 Coq(Lia)