kind_von(karl_VI, leopold_I).
kind_von(maria_theresia, karl_VI).
kind_von(joseph_II, maria_theresia).
kind_von(joseph_II, franz_I).
kind_von(leopold_II, maria_theresia).
kind_von(marie_antoinette, maria_theresia).
:- kind_von(Kind, Elternteil).
:- kind_von(joseph_II, friedrich_II).
--**-  2.Bsp. n599 ------------------------

**NEXT:Now save (& compile & load & test goals) by pressing [DO].
[logprog|GUPU|UWN]