proposition: Lemma lt_succ_Z_of_nat: forall (m:nat)( k n:Z), (Z_of_nat (S m)<(k+n))%Z -> (Z_of_nat m <(k+n))%Z.
proof: Proof. intros m k n. simpl. set (H:=(succ_nat m)). rewrite H. intuition. Qed.
imports: Coq.ZArith.ZArith CoRN.logic.CLogic Coq(Lia)