comparison cbc/subtype-sample.agda @ 52:4880184e4ab5

Define push/pop using subtype
author atton <atton@cr.ie.u-ryukyu.ac.jp>
date Tue, 10 Jan 2017 09:04:55 +0000
parents 16e27df74ec5
children
comparison
equal deleted inserted replaced
51:16e27df74ec5 52:4880184e4ab5
13 cycle : ℕ 13 cycle : ℕ
14 led : String 14 led : String
15 signature : String 15 signature : String
16 16
17 open import subtype Context 17 open import subtype Context
18
19
18 record LoopCounter : Set where 20 record LoopCounter : Set where
19 field 21 field
20 count : ℕ 22 count : ℕ
21 name : String 23 name : String
22 24