证明 x >= a /\ x <= a -> x = a

Proving x >= a /\ x <= a -> x = a

如何证明以下内容

Theorem T: forall x, a: nat, x >= a /\ x <= a -> x = a.

在 Coq 中?

如果您不想使用 omega 的全部功能,我会使用 SearchPattern 在标准库中搜索 <= 的反对称 属性 或SearchAbout(或google)和apply le_antisym.

如果您想在不使用库中的引理的情况下进行证明,请在 xa 上进行归纳。