當我期望看到荒謬的模式時，如何使用agda2模式生成模式？

Question

例如，我們證明2 + 2 != 5 ：

data _+_≡_ : ℕ → ℕ → ℕ → Set where
  znn : ∀ {n} → zero + n ≡ n
  sns : ∀ {m n k} → m + n ≡ k → suc m + n ≡ suc k

我可以手動證明這一點：

2+2≠5 : 2 + 2 ≡ 5 → ⊥
2+2≠5 (sns (sns ()))

但是我希望生成圖案(sns (sns ())) （就像填充孔一樣）。 有什么方法可以實現？

我正在使用帶有agda2模式的Emacs 25。

Answer 1

好的，讓我們說您從此配置開始：

2+2≠5 : 2 + 2 ≡ 5 → ⊥
2+2≠5 h = {!!}

在這種情況下，您可以使用emacs的鍵盤宏，因為通過匹配h生成的子項也將被命名為h 。 因此使用：

• <f3> （開始記錄宏）
• Cc Cf （移至孔）
• Cc Cc h RET （與h匹配）
• <f4> （記錄宏）

您已經記錄了“將與h的匹配移到第一個目標”的操作。 現在，您可以一直按<f4>直到出現荒謬的情況。