forked from GitHub/gf-core
17 lines
308 B
Plaintext
17 lines
308 B
Plaintext
abstract Smart = {
|
|
|
|
cat
|
|
Command ;
|
|
Kind ;
|
|
Device Kind ;
|
|
Action Kind ;
|
|
|
|
fun
|
|
Act : (k : Kind) -> Action k -> Device k -> Command ;
|
|
The : (k : Kind) -> Device k ; -- the light
|
|
Light, Fan : Kind ;
|
|
Dim : Action Light ;
|
|
SwitchOn, SwitchOff : (k : Kind) -> Action k ;
|
|
|
|
}
|