Coq 将Infinity添加到偶数集？

我通过以下格式定义了偶数：

Inductive even : nat -> Prop :=
| ev0: even 0
| evSS: forall n, even n -> even S (S n) .

我想在列表中加上无穷大，比如把inf作为一个命题。我如何才能做到这一点？

Coq中nat的定义没有无穷大的值。因此，第一步是添加这样一个元素。以下是一个可能的定义：

Inductive nat_inf :=
| Fin : nat -> nat_inf
| Inf.

现在可以按如下方式定义均匀度：

Inductive even : nat_inf -> Prop :=
| ev0   : even (Fin 0)
| evSS  : forall n, even (Fin n) -> even (Fin (S (S n)))
| evInf : even Inf.