fact: Definition FK (f : Fchain) : Kchain := fun (A : Type) (k : Kkont A) (a : A) => f A (fun y => k y a) a.
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)