fact: Definition KFK (kbr : Kchain) (fq : Fchain) : Kchain := fun A k a => kbr A (fun xb xr => fq A (fun y => z <--- y times xr; k z xb) xb) 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)