resource-food example in tutorial

This commit is contained in:
aarne
2007-07-05 20:52:56 +00:00
parent 0a05bbea4f
commit b3c5edfdc4
10 changed files with 131 additions and 1 deletions

View File

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