граничит(португалия,испания).
граничит(испания,франция).
граничит(X,Y) <- граничит(Y,X).
?граничит(испания,A).
$ cat Shull.pl
bord(португалия,испания).
bord(испания,франция).
bord(X,Y) :- bord(Y,X).
$ swipl Shull.pl
Welcome to SWI-Prolog (threaded, 64 bits, version 8.4.1)
SWI-Prolog comes with ABSOLUTELY NO WARRANTY. This is free software.
Please run ?- license. for legal details.
For online help and background, visit https://www.swi-prolog.org
For built-in help, use ?- help(Topic). or ?- apropos(Word).
?- bord(испания,A).
A = франция