fact: Definition correctness_statement (s: signature) : chain_type s -> Prop := match s with | gen_F p => fun ch => Fchain_correct p ch | gen_K p d => fun ch => Kchain_correct (p + d) p ch end.
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)