proposition: Theorem make_chain_correct : forall p, chain_correct p (make_chain p).
proof: Proof. intro p; destruct (chain_gen_OK (gen_F p)). unfold make_chain; apply F2C_correct; apply H. Qed.
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)