data bt {n : Level} (A : Set n) : Set n where
  leaf : bt A
  node :  (key : !$\mathbb{N}$!) !$\rightarrow$! (value : A) !$\rightarrow$!
    (left : bt A ) !$\rightarrow$! (right : bt A ) !$\rightarrow$! bt A

record Env {n : Level} (A : Set n) : Set n where
  field
    varn : !$\mathbb{N}$!
    varv : A
    vart : bt A
    varl : List (bt A)
open Env