fact: Definition Kkont_equiv `(M : @EMonoid A op E_one E_equiv) (k k': Kkont A ) := forall x y : A, x == y -> forall z t, z == t -> computation_equiv op E_equiv (k x z) (k' y t).
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)