fact: Definition Kchain_correct (n p : positive) (kc : Kchain) := Kchain_correct_nat (Pos.to_nat n) (Pos.to_nat p) kc.
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)