completed book examples

2026-05-20 00:22:51 -06:00 · 2010-11-22 15:48:52 +00:00
parent 76ba03b545
commit 67176f1520
11 changed files with 110 additions and 9 deletions
--- a/book/examples/chapter6/Smart.gf
+++ b/book/examples/chapter6/Smart.gf
@@ -0,0 +1,16 @@
+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 ;
+
+}