Внутренние имена связей

Связи также, как и имена объектов, могут иметь синонимы и состоять

из нескольких слов.

Альтернативные формы имен связей хранятся в предикате "assoc".

"assoc" содержит список слов, которые могут быть использованы во внутрен-

них именах связей, например:

assoc("in",["in"])

assoc("in",["running","through"])

assoc("in",["runs","through"])

assoc("in",["run","through"])

assoc("with",["with"])

assoc("with",["traversed"])

assoc("with",["traversed","by"])

Предикат "get_assoc" используется для распознавания связи в начале

списка слов. Это производится с помощью использования предиката "append"

для разделения списка на две части. Если первая часть списка соответству-

ет альтернативе для связи в предикате "assoc", то возвращается соответст-

вующее имя внутренней связи.

get_assoc(IL,OL,A) :-

append(ASL,OL,IL),

assoc(A,ASL).