12 lines
123 B
Plaintext
12 lines
123 B
Plaintext
|
|
:- use_module(library(mlns)).
|
|
|
|
mln_domain a(domain).
|
|
mln_domain b(domain).
|
|
|
|
mln 10:(a(X) ; b(X)).
|
|
|
|
domain(1).
|
|
domain(2).
|
|
|