如何定义与 function 相互递归的归纳类型？

Question

我想定义一个归纳类型Foo ，构造函数接受 arguments 一些属性。 我希望这些属性依赖于我当前定义的类型的感应 arguments。 我希望能够使用一些递归 function bar从这些属性中收集一些数据，该条将采用Foo类型的 object 。 但是，我不知道如何声明这两个以便 Coq 接受它们的定义。 我希望能够写出这样的东西：

Inductive Foo : Set (* or Type *) :=
| Foo1 : forall f : Foo, bar f = 1 -> Foo
| Foo2 : forall f : Foo,  bar f = 2 -> Foo
| Foon : nat -> Foo
with bar (f : Foo) : nat := 
  match f with
  | Foo1 _ _ => 1
  | Foo2 _ _ => 2
  | Foon n => S n
  end.

通常， with是处理相互递归的方法，但是我看到的所有示例都是与两个定义一起使用的，都以Inductive或Fixpoint开头。 这样的相互递归甚至可能吗？

Answer 1

这种类型的定义被称为“归纳递归”。 不幸的是，它在 Coq 中不受支持，但如果我没记错的话，它在 Agda 定理证明器中受支持。