fact: Definition Fapply (f : Fchain) (c: chain) : chain := fun (A:Type) (x: A) => f A (c A) 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)