/*  Prolog Quiz 3  Key */
/*  rules */
dog(Fido) :- yellow_lab(Fido).

school(Today) :- tuesday(Today), february(Today).
school  :-  today(Tuesday), month (february).

your_father(Fred) :- male(Fred), your_parent(Fred).

father(X) :- parent(X).
mother(X) :- parent(X).

cat(Fluffy) :- tabby(Fluffy).

raining(Today) :- saturday(Today), april(Today).
raining :- today(saturday), month(april).


your_daughter(Sally) :- female(Sally), your_child(Sally).

rich(X) :- happy(X).
beautiful(X) :- happy(X).

/*   facts  to test database with*/