moxie - jlombar1 - lab4 > pl
Welcome to SWI-Prolog (Version 2.7.16)
Copyright (c) 1993-1996 University of Amsterdam.  All rights reserved.

For help, use ?- help(Topic). or ?- apropos(Word).

1 ?- consult('tribondv4.pro').
comparisons.pro compiled, 0.00 sec, 1,480 bytes.
tribondv4.pro compiled, 0.01 sec, 11,380 bytes.

Yes
2 ?- consult('kb1.pro').
kb1.pro compiled, 0.00 sec, 3,468 bytes.

Yes
3 ?- tribonds.
tribond(isa(airplane, vehicle), isa(car, vehicle), isa(train, vehicle))
tribond(isa(banana, food), isa(carrot, food), vip(picnic, food))
tribond(vip(beer, head), has(drum, head), has(nail, head))
tribond(has(bottle, neck), has(person, neck), has(racket, neck))
tribond(vip(car, key), isa(largo, key), has(piano, key))
tribond(vip(carrot, orange), vip(halloween, orange), vip(su, orange))

Yes
4 ?- halt.