fact: Definition Fchain_correct (p:positive) (f : Fchain) := Fchain_correct_nat (Pos.to_nat p) f.
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)