$ sort(old\_list,new\_list) \subset permute(old\_list,new\_list) \cap sorted(new\_list) $
$ sorted(list) \subset \forall j \textrm{ such that } 1 \leq j \le n, list(j) \leq list(j + 1) $
[user].
and hit enter. Type ctrl+D
to return to query modectrl+C
followed by e
functor(parameter list)
female(shelley).
male(bill).
female(mary).
male(jake).
father(bill, jake).
father(bill, shelley).
mother(mary, jake).
mother(mary, shelley).
consequence :- antecedent1, antecedent2.
consequence :- antecedentA.
consequence :- antecedentB.
ancestor(mary,shelley) :- mother(mary,shelley).
parent(X, Y) :- mother(X, Y).
parent(X, Y) :- father(X, Y).
grandparent(X, Z) :- parent(X, Y), parent(Y, Z).
male(bill).
to which the system will return yes or nofather(X,jake).
which will return an answer if one exists.consult('file.pl')
ctrl+C
followed by t