Предикат EQUAL и изоморфизм списков

(equal x y) возвращает значение T, если