fact: Definition K2F (knp : Kchain) : Fchain := fun A (k:Fkont A) => knp A (fun y _ => k y).
imports: Coq(Inverse_Image Inclusion Wf_nat NArith Arith PArith Recdef Wf_nat Lexicographic_Product Lia) additions(Addition_Chains Compatibility More_on_positive Wf_transparent Dichotomy BinaryStrat) Coq(Lia)