最近受到 view 的啟發(?),做了幾個簡單但是還滿有趣的東西,例如可以把 N 拆成某個數字以上跟以下,然後對他作 pattern matching,傳統上會用 if … then … else 不過寫起來到是挺有趣的
data Bound (k : ℕ) : ℕ → Set where
below : (n : ℕ) → (l : ℕ) → (l + n ≡ k) → Bound k n
above : (n : ℕ) → (l : ℕ) → (k + (suc l) ≡ n) → Bound k n