Nat.agda 216 B

12345678910111213
  1. {-# OPTIONS --without-K #-}
  2. module Common.Nat where
  3. open import Agda.Builtin.Nat public
  4. using ( Nat; zero; suc; _+_; _*_ )
  5. renaming ( _-_ to _∸_ )
  6. pred : Nat → Nat
  7. pred zero = zero
  8. pred (suc n) = n