view paper/src/env.agda @ 4:bf1f62556b81

add while_test_init_imple
author soto
date Thu, 11 Feb 2021 17:03:31 +0900
parents 959f4b34d6f4
children
line wrap: on
line source

record Envc : Set where
  field
    vari : ℕ
    varn : ℕ
    c10  : ℕ

makeEnv : ℕ → ℕ → ℕ → Envc
makeEnv i n c = record { vari = i ; varn = n ; c10 = c }