(=> (and (equal ?C (OrganicObjectFn ?S)) (subclass ?C CocoaBean) (subclass ?S Seed)) (initialPart ?S CocoaTree)) |
Economy.kif 4693-4699 |
|
(subclass CocoaBean Seed) | Economy.kif 4686-4686 | Cocoa bean is a subclass of seed |
(subclass CocoaBean PlantSubstance) | Economy.kif 4687-4687 | Cocoa bean is a subclass of plant substance |