如何证明不等式
How to prove equality impossible
1 subgoal
a, b : Tipe
H : TApp a b = a
______________________________________(1/1)
False
（其中 TApp 是构造函数）
在 Idris 中，这可以用 \Refl => impossible 证明，但我还没有设法在 Coq 中为它写任何证明。
有没有简单的证明方法？
你可以用induction a.来证明。这个想法是 Tipe 的归纳原理编码了它的值大小有限的事实，而 TApp a b = a 假设允许您构造一个无限值，但这些是原始事实的间接结果你有，因此你需要为此付出一些努力。 Coq 的扩展以自动派生和使用此类发生检查引理绝对是可能的。
1 subgoal
a, b : Tipe
H : TApp a b = a
______________________________________(1/1)
False
（其中 TApp 是构造函数）
在 Idris 中，这可以用 \Refl => impossible 证明，但我还没有设法在 Coq 中为它写任何证明。
有没有简单的证明方法？
你可以用induction a.来证明。这个想法是 Tipe 的归纳原理编码了它的值大小有限的事实，而 TApp a b = a 假设允许您构造一个无限值，但这些是原始事实的间接结果你有，因此你需要为此付出一些努力。 Coq 的扩展以自动派生和使用此类发生检查引理绝对是可能的。