Coq 列表元素的减少

我有自然数清单。从列表中减去一个元素后，我想证明以下关系

Theorem reduce_elements:forall (n:nat) (l:list nat),
 (length (n :: l) =? 0) = false->
 (length l =? 0) = false.

---

本声明不适用于：

Require Import Coq.Arith.Arith.

Theorem reduce_elements:forall (n:nat) (l:list nat),
 (length (n :: l) =? 0) = false->
 (length l =? 0) = false.
Admitted.

Goal False.
pose proof (reduce_elements 0 nil eq_refl).
simpl in H.
congruence.
Qed.

---

我注意到你来过几次，要求帮助证明错误的陈述。我建议你在尝试用Coq解决问题之前，先在纸上画出这些证明：这将帮助你更好地理解你的问题。

我试图通过插入正确的陈述来结束错误的陈述。像一个