:-dynamic(cold/1).
rainy(seattle).
rainy(rochester).
cold(rochester).
snowy(X):-rainy(X),cold(X),!.
snowy(troy).