如何在Agda的類型delaration中定義別名？

Question

我的代碼：

law : ∀ a x → ((suc a) * (suc a) ÷ (suc a) ⟨ x ⟩) →ℕ ≡ (suc a , refl)
law a x = refl

我覺得有太多的suc a ，我想給一個別名suc a ，類似的信息（此代碼只是描述了我的想法，它不會編譯）：

law : ∀ a x → ((s : suc a) * s ÷ s ⟨ x ⟩) →ℕ ≡ (s , refl)
law a x = refl

我能做到嗎？

Answer 1

當然。 你可以使用let

law : ∀ a x → let s = suc a in (s * s ÷ s ⟨ x ⟩) →ℕ ≡ (s , refl)
law a x = refl

或定義匿名模塊：

module _ (a : ℕ) where
  s = suc a
  law : ∀ x → (s * s ÷ s ⟨ x ⟩) →ℕ ≡ (s , refl)
  law x = refl

在模塊之外， law具有與您提供的類型相同的類型簽名。