remark-agda/test/Simple.lagda.md

Commutativity of addition

This document shows how to prove commutativity of addition on natural numbers.

Imports

module Simple where

open import Agda.Primitive
open import Relation.Binary.PropositionalEquality.Core

variable
  l : Level

Declare our data structures:

data ℕ : Set where
  zero : ℕ
  suc : ℕ → ℕ

Define addition:

_+_ : ℕ → ℕ → ℕ
zero + b = b
suc a + b = suc (a + b)

Prove commutativity:

+-comm : (m n : ℕ) → m + n ≡ n + m
+-comm zero n = lemma n where
  lemma : (n : ℕ) → n ≡ n + zero
  lemma zero = refl
  lemma (suc n) = cong suc (lemma n) 
+-comm (suc m) n = trans (cong suc (+-comm m n)) (sym (lemma n m)) where
  lemma : (m n : ℕ) → m + suc n ≡ suc (m + n)
  lemma zero n = refl 
  lemma (suc m) n = cong suc (lemma m n)

That's it!