fact: Example k7_3 : Kchain := fun A (k:Kkont A) (x:A) => x2 <--- x times x; x3 <--- x2 times x ; x6 <--- x3 times x3 ; x7 <--- x6 times x ; k x7 x3.
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)