fact: Record Knes_tupp (tup : Knes_tup) : Type := {Kntup :> Knes_tup; Ktp_prop : c_el Kntup [=] qK[*]c_el tup; Ktpp_prop : AbsCC (Kntup[-]tup) [^]n [<=] c_el tup}.
imports: CoRN.fta.KneserLemma CoRN.fta.CPoly_Shift CoRN.fta.CPoly_Contin1 Coq(Lia)