Это непосредственно из учебного пособия онлайн, и я получаю ошибку проектирования сверху вниз, помогите?
employee(193,'Jones','John','173 Elm St.','Hoboken','NJ',
12345,1,'25 Jun 93',25500).
employee(181,'Doe','Betty','11 Spring St.','Paterson','NJ',
12354,3,'12 May 91',28500).
employee(198,'Smith','Al','2 Ace Ave.','Paterson','NJ',
12354,3,'12 Sep 93',27000).
Учитывая эти базовые отношения (также называемые отношениями расширения), мы можем определить другие отношения, используя Prologопределения процедур, чтобы дать нам ответы на вопросы, которые у нас могут быть о данных.Например, мы можем определить новое отношение, содержащее имена всех сотрудников, заработавших более 28 000 долларов:
well_paid_emp(First,Last) :-
employee(_Num,Last,First,_Addr,_City,_St,_Zip,_Dept,_Date,Sal),
Sal > 28000.