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 ------------------------

Now save (& compile & load & test goals) by pressing .