atton
Brain fu*k
module nat where data Nat : Set where O : Nat S : Nat -> Nat
data _≡_ {a} {A : Set a} (x : A) : A → Set a where refl : x ≡ x
add-sym : (x y : Nat) -> x + y ≡ y + x add-sym = proof