foods example moved and completed

This commit is contained in:
aarne
2007-08-16 20:12:45 +00:00
parent 7e70f4521c
commit 76477c82b9
4 changed files with 127 additions and 36 deletions

View File

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