listensToMusic(X) :- happy(X). playsAirGuitar(X) :- listensToMusic(X). happy(a).