/*Ein allererstes Prologprogramm
Speichern Sie das Programm ab, etwa als "anfang.pro"
Auf der Prologkonsole geben Sie dann ein:
consult('anfang.pro').
Dann können Sie die Abfrage starten.
*/

/*Wer sind Astronomen?

Wir abgefragt durch:
?- astronom(herschel)
	YES
?- astronom(X)
   X = herschel
   YES;
   X = galle
   YES;
   NO.
*/

astronom(herschel).
astronom(galle).

/*Was haben Sie entdeckt
(Hugo war der Neandertaler aber kein Astronom).
Nun kann man Fragen stellen wie:
?- entdecken(X,Y).
?- entdecken(herschel,Planet).
?- astronom(X),entdecken(X,uranus).
*/

entdecken(hugo,saturn).
entdecken(herschel,uranus).
entdecken(galle,neptun).