fact: Definition signature_measure (s : signature) : nat := match s with | gen_F n => 2 * Pos.to_nat n | gen_K p d => 2 * Pos.to_nat (p + d) +1 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)