new tutorial example

This commit is contained in:
aarne committed 2005-12-18 21:26:21 +00:00
1 parent a205829623
commit 6398140d0a
34 files changed
+940 -668

No files matched your search

+14
View File
@@ -0,0 +1,14 @@
abstract Food = {
cat
S ; Item ; Kind ; Quality ;
fun
Is : Item -> Quality -> S ;
This, That : Kind -> Item ;
QKind : Quality -> Kind -> Kind ;
Wine, Cheese, Fish : Kind ;
Very : Quality -> Quality ;
Fresh, Warm, Italian, Expensive, Delicious, Boring : Quality ;
}