fact: Definition kont_type (s: signature)(A:Type) : Type := match s with | gen_F _ => Fkont A | gen_K _ _ => Kkont A 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)