timetable

2004-04-28 09:08:31 +00:00
parent 1157649c85
commit fa596888f1
3 changed files with 77 additions and 0 deletions
--- a/grammars/timetable/Timetable.gf
+++ b/grammars/timetable/Timetable.gf
@@ -0,0 +1,31 @@
+abstract Timetable = {
+  cat
+    Table ;
+    TrainList CityList ;
+    City ;
+    CityList ;
+    Train CityList ;
+    Stop ;
+    Time ;
+    Number ;
+
+  fun
+    MkTable : (cs : CityList) -> TrainList cs -> Table ;
+    NilTrain : (cs : CityList) -> TrainList cs ;
+    ConsTrain : 
+      (cs : CityList) -> Number -> Train cs -> TrainList cs -> TrainList cs ;
+    OneCity : City -> CityList ;
+    ConsCity : City -> CityList -> CityList ;
+
+    StopTime : Time -> Stop ;
+    NoStop : Stop ;
+    
+    LocTrain : (c : City) -> Stop -> Train (OneCity c) ;
+    CityTrain : 
+      (c : City) -> Stop -> (cs : CityList) -> 
+        Train cs -> Train (ConsCity c cs) ;
+
+    T : Int -> Time ;
+    N : Int -> Number ;
+    C : String -> City ;
+}