idris - 如何证明 idris 的平等通勤？

Question

试图证明以下断言:

equalityCommutesNat : (n : Nat) -> (m : Nat) -> n = m -> m = n

我找到了 plusCommutes在图书馆里，但没有平等。

Answer 1

=唯一的居民是 Refl : (a = a) ，所以如果你模式匹配，你会得到证据 n是 m .
这意味着您可以使用 Refl ，因为 Idris 的模式匹配现在知道它们是相同的:

equalityCommutesNat : (n : Nat) -> (m : Nat) -> n = m -> m = n
equalityCommutesNat _ _ Refl = Refl

你可以在 REPL 中玩这个:

> equalityCommutesNat 1 1 Refl
Refl : 1 = 1