如何定义（有时）递归prolog树

Question

我有两种不同类型的句子要解析，但我现在只给它们简单的名字。基本上，我有两个解析树

1.
A --> A , pp

A --> dv, np

2.
A --> tv, np

我希望这是有道理的，我只是不知道如何在prolog中编程，而不会进入很多循环！任何帮助都会很棒，如果我能提供更多信息（第一次使用堆栈溢出），请告诉我。