4
4
------------------------------------------------------------------------
11
13
open import Data.Nat using (zero; suc; ℕ)
13
15
open import Relation.Binary
14
16
open import Relation.Binary.PropositionalEquality as PropEq using (_≡_)
15
17
import Relation.Binary.EqReasoning as EqR