fact: Definition Fplus (f1 f2 : Fchain) : Fchain := fun A k x => f1 A (fun y => f2 A (fun z => t <--- z times y; k t) x) x.
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)