abstract Foodmarket = Food, Fruit, Mushroom ** { fun FruitKind : Fruit -> Kind ; MushroomKind : Mushroom -> Kind ; }