### This Page is REALLY old, the content may be out of date

## BAT: A Tableau Based Theorem Prover

Anthony A. AabyDepartment of Computer Science

Walla Walla College

August, 1988 This work is partially supported by a Pew foundation grant

#### abstract

*This paper presents BAT, an implementation of a tableau-based theorem
prover for first order logic \cite{Smullyan68}. BAT is is written in BIM
Prolog and is able to solve Schubert's Steamroller problem in 0.7 seconds
on a SUN 3/50. This paper reports on the design of BAT, experiences with
the theorem prover and outline of future work. The complete Prolog code
for BAT is given in an appendix. *

*Key words and phrases.*

*Theorem prover, first-order logic, analytic tableau, Prolog, LCF,
Nuprl, Tactics, Tacticals. *

### 1 Introduction

This paper describes BAT, the Bucknell analytic tableau based theorem prover for first-order predicate logic. BAT is an implementation of the method of analytic tableaux described by Smullyan \cite{Smullyan68}. It is intended to form the basis of several student projects for a course logic programming to be given at Bucknell University in the fall of 1988. BAT is written in Prolog and consists of less than 220 lines of code.

Preliminary testing shows that BAT compares quite favorably with other theorem provers. BAT is is written in BIM Prolog and is able to solve Schubert's Steamroller problem in 0.7 seconds on a SUN 3/50. This contrasts favorably with Walther's many-sorted resolution solution \cite{Walter85} which required a solution time of 7.11 seconds, Stickel's theorem prover solution time of 2 hours and 53 minutes \cite{Cohen85}, an ITP solution time of 660 seconds \cite{Cohen85,Walter85} and Oppacher and Suen's \cite{OppSuen88} solution time of 14 seconds on a Symbolics 3600. Manthey and Bry report that their Prolog technology theorem prover SATCHMO \cite{ManBry88} is able to solve the steamroller problem in 0.3 seconds. However, they require the problem to be stated in clausal form. Fitting \cite{Fitting88} has also developed a tableau based first order theorem prover but reports no performance figures.

BAT accepts formulas in the full first-order predicate logic, uses skolem functions to instantiate existentially quantified variables, and uses Prolog's unification mechanism to check for complementary literals. The HARP \cite{OppSuen88} theorem prover is of particular interest since it is also an implementation of the method of analytic tableaux. HARP consists of approximately 3000 lines of ZetaLisp.

In section 2, the method of analytic tableaux is reviewed. In section 3, the implementation of BAT is described. In section 4, a description of the performance of BAT on several of the 75 problems of Pelletier \cite{Pelletier86} is given. In section 5, a description of plans for future work is presented. In Appendix A, the Prolog code for BAT is given. In Appendix B, several of the 75 problems of Pelletier \cite{Pelletier86,Pelletier88} are given in the prefix form required by BAT.

## 2 First-Order Logic

### Syntax

The*symbols*of first order logic are the following:

- A denumerable list of symbols $x0, x1, x2,...$, called
*individual variables*. - A denumerable set $U$ of symbols $c0,
c1, c2,...$, called
*individual constants*. - For each natural
number
*n*, a denumerable list of symbols $P0, P1, P2,...$, called*n-ary predicates*. - Operators: $\neg , \bigvee , \bigwedge , \forall , \exists$.

*atomic formula*($m0$, $m1$, ..., $mn$ are called the parameters of $P$).

*Formulas*of first order logic are defined as follows.

- If $A$ is an atomic formula then $A$ is a formula.
- If $A$ and $B$ are formulas then so are $\neg A$ (
*negation*), $(A \bigwedge B)$ (*conjunction*), $(A \bigvee B)$ (*disunction*), $(A \rightarrow B)$ (*implication*), and $(A \leftrightarrow B)$ (*biconditional*). - If $A$ is a formula and $x$ is an individual
variable then $\forall x.A$ (
*universal quantification*) and $\exists x.A$ (*existential quantification*) are formulas.

{\small \begin{verbatim} % FORMATION RULES % constants: numbers or strings beginning with a lowercase % letter. % variables: strings beginning with an uppercase letter. % terms: constants,variables, t0,t1,... % predicate symbols: strings beginning with a lowercase letter. % formulas: p(t0,...,tn), and if A,B are formulas then so are % not A % or(A,B) % A = B % and(A,B) % if(A,B) % iff(A,B) % qa(X,F) % qe(X,F) \end{verbatim}}

Let $A$ and $B$ be formulas, $x$ and $y$ individual
variables, and $c$ an individual constant. *Substitution* is defined
for formulas of first order logic as follows.

- If $A$ is an atomic formula, then $A[x:c]$ is the result of substituting $c$ for each occurrence of $x$ in $A$.
- $(\neg A)[x:c] = \neg A[x:c]$
- $(A \bigwedge B)[x:c] = A[x:c] \bigwedge B[x:c]$.
- $(A \bigvee B)[x:c] = A[x:c] \bigvee B[x:c]$.
- $(A \rightarrow B)[x:c] = A[x:c] \rightarrow B[x:c]$.
- $(A \leftrightarrow B)[x:c] = A[x:c] \leftrightarrow B[x:c]$.
- $(\forall x.A)[x:c] = \forall x.A$
- $(\exists x.A)[x:c] = \exists x.A$
- $(\forall y.A)[x:c] = \forall y.(A[x:c])$ where $x$ and $y$ are different individual variables.
- $(\exists y.A)[x:c] = \exists y.(A[x:c])$ where $x$ and $y$ are different individual variables.

\begin{verbatim} % SUBSTITUTION substitute(X,C,not A, not Ap) :- substitute(X,C,A,Ap). substitute(X,C,and(A,B),and(Ap,Bp)) :- substitute(X,C,A,Ap), substitute(X,C,B,Bp). substitute(X,C,or(A,B), or(Ap,Bp)) :- substitute(X,C,A,Ap), substitute(X,C,B,Bp). substitute(X,C,if(A,B), if(Ap,Bp)) :- substitute(X,C,A,Ap), substitute(X,C,B,Bp). substitute(X,C,iff(A,B),iff(Ap,Bp)) :- substitute(X,C,A,Ap), substitute(X,C,B,Bp). substitute(X,C,qa(Y,A), qa(Y,Ap)) :- X \== Y, substitute(X,C,A,Ap). substitute(X,C,qa(Y,A), qa(Y, A)) :- X == Y. substitute(X,C,qe(Y,A), qe(Y,Ap)) :- X \== Y, substitute(X,C,A,Ap). substitute(X,C,qe(Y,A), qe(Y, A)) :- X == Y. substitute(X,C,Pred, Predp) :- Pred =..[P|List], not in(P,[not,and,or,if,iff,qe,qa]), list_subs(X,C,List,Listp), Predp =..[P|Listp]. list_subs(X,C,[], []). list_subs(X,C,[Y|R],[Y|Rp]) :- X \== Y, list_subs(X,C,R,Rp). list_subs(X,C,[Y|R],[C|Rp]) :- X == Y, list_subs(X,C,R,Rp). \end{verbatim}}

A formula $A$ is called a *sentence*
iff $A[x:c]=A$ for all pairs of individual variables $x$ and individual
constants $c$.

### Semantics

The method of analytic tableaux\cite{Smullyan68} provides a systematic method to test for consistency. Given a set of formulas, the method constructs a tree of formulas. Initially, the set of formulas are placed at the root of the tree. The tree is ``grown'' by adding formulas to the tree. Each formula added to the tree is a subformula of a formula already present on the tree. The method rests on the following facts.- $\neg A$ is true iff $A$ is false.
- $\neg A$ is false iff $A$ is true.
- $A \bigwedge B$ is true iff both $A$ and $B$ are true.
- $A \bigwedge B$ is false iff either $A$ or $B$ is false.
- $A \bigvee B$ is true iff either $A$ or $B$ is true.
- $A \bigvee B$ is false iff both $A$ and $B$ are false.
- $A \rightarrow B$ is true iff either $\neg A$ or $B$ is true.
- $A \rightarrow B$ is false iff $A$ is true and $B$ is false.
- $A \leftrightarrow B$ is true iff either $A \bigwedge B$ or $\neg A \bigwedge \neg B$ is true.
- $A \leftrightarrow B$ is false iff either $A \bigwedge \neg B$ or $\neg A \bigwedge B$ is true.
- $\forall x.A$ is true iff $A[x:c]$ is true for every $c \in U$.
- $\forall x.A$ is false iff $A[x:c]$ is false for some $c \in U$.
- $\exists x.A$ is true iff $A[x:c]$ is true for some $c \in U$.
- $\exists x.A$ is false iff $A[x:c]$ is false for every $c \in U$.

\begin{verbatim} % DECOMPOSITION RULES rule(not, not not A, [A]). rule(alpha, and(A,B),[A, B]). rule(alpha, not or(A,B),[not A,not B]). rule(alpha, not if(A,B),[A,not B]). rule(beta, or(A,B),[A,B]). rule(beta, if(A,B),[not A,B]). rule(beta, not and(A,B),[not A,not B]). rule(beta, iff(A,B),[and(A,B), and(not A,not B)]). rule(beta, not iff(A,B),[and(A, not B),and(not A, B)]). % The gamma rule substitues a new variable for universally quantified % variables. rule(gamma, qa(X,F),[ Fp,qa(X, F)],Y) :- substitute(X,Y,F,Fp). rule(gamma, not qe(X,F),[not Fp,not qe(X,F)],Y) :- substitute(X,Y,F,Fp). % The delta rule substitues a new skolem function for an % existentially quantified variable. rule(delta, qe(X,F),[Fp],Vars) :- new_constant(C), SK =..[skf,C|Vars], substitute(X,SK,F,Fp). rule(delta, not qa(X,F),[not Fp],Vars) :- new_constant(C), SK =..[skf,C|Vars], substitute(X,SK,F,Fp). \end{verbatim}}

A *literal* is an atomic formula or the negation of
an atomic formula. A pair of *complementary literals* is an atomic
formula and its negation. A path is said to be *inconsistent* iff it
contains a pair of complementary literals. If a path is not inconsistent
then it is said to be *consistent* and the set of literals occurring
on the path is said to be a *model* of the given set of formulas. If
each path through the tree is inconsistent then the given set of formulas
is said to be *unsatisfiable* otherwise the set of formulas is said
to be *satisfiable*. A set of formulas $\{F1,..., Fi,..., Fn\}$ is
said to be *valid* iff the set of formulas $\{F1,..., \neg Fi,...,
Fn\}$ is unsatisfiable. If a set of formulas $\{F1,..., Fm\}$ is satisfiable,
then the method will construct a model (possibly infinite) of the set of
formulas. If a set of formulas $\{F1,..., Fm\}$ is unsatisfiable, then
the method will terminate in a finite number of steps. Since the formula
$\forall x.A$ states that any value may be substituted for $x$ in the formula
$A$, $\forall x.A$ may be replaced with $A[x:x']$ where $x'$ is a variable
new the path. The use of a variable new to the path insures that the semantics
of the formula remain unchanged. The formula $\exists x.A$ states that
there is some value which may be substituted for $x$ in the formula $A$
therefore, $x$ may be replaced by an arbitrary variable which represents
the value. Thus, $\exists x.A$ may be replaced with $A[x:c]$ where $c$
is an arbitrary constant new to the branch. Since $c$ may depend on other
variables, $x$ must be replaced with a function whose arguments are the
appropriate variables. Such functions are called *skolem functions*
\cite{bundy,robinson} and if the are no variables on which the choice rests,
a constant may be used instead and such a constant is called a *skolem
constant*. These two ideas enable the elimination of quantifiers from formulas.
BAT generates the required skolem constants and functions for the existentially
quantified variables. The generated constants are integers and the skolem
functions are functions of universally quantified variables.

## Tableaux

Given a formula to prove, BAT negates the formula and places it at the root of the tree. A branch on the tree is represented by two lists. {\tt Formulas} is the list of undecomposed formulas, and {\tt Atoms} is a list of positive and negative literals. Initially, the set of formulas to be checked are placed in {\tt Formulas} and {\tt Atoms} is empty. The predicate {\tt prove1} is used to construct a branch. This sequence of activity is implemented by the following code.\small{ \begin{verbatim} prove(F) :- new_queue(DL), enqueue(not F,DL,Formula), prove1(Formula,[],[]), !. % termination (open branch--no contradiction) prove1(Formulas,Atoms,Vars) :- is_empty(Formulas), print([satisfiable,Atoms]), nl. % termination (closed branch--contradiction) prove1(Formulas,Atoms,Vars) :- dequeue(F,Formulas,Form), contradiction(F,Atoms). % literal prove1(Formulas,Atoms,Vars) :- dequeue(F,Formulas,Form), literal(F), prove1(Form,[F|Atoms],Vars). % rule application (double negation) prove1(Formulae,Atoms,Vars) :- dequeue(F,Formulae,Form), rule(not,F,Fl), push(Fl,Form,FL), prove1(FL,Atoms,Vars). % rule application (and) prove1(Formulas,Atoms,Vars) :- dequeue(F,Formulas,Form), rule(alpha,F,Fl), push(Fl,Form,FL), prove1(FL,Atoms,Vars). % rule application (or) prove1(Formulas,Atoms,Vars) :- dequeue(F,Formulas,Form), rule(delta,F,I,Vars), push(I,Form,FL), prove1(FL,Atoms,Vars). % rule application (universal quantification) prove1(Formulas,Atoms,Vars) :- dequeue(F,Formulas,Form), rule(gamma,F,IQ,V), push(IQ,Form,FL), prove1(FL,Atoms,[V|Vars]). % rule application (existential quantification) prove1(Formulas,Atoms,Vars) :- dequeue(F,Formulas,Form), rule(beta,F,[A,B]), copy_queue(Form,Fp), push([A],Form,FL), prove1(FL,Atoms,Vars), push([B],Fp,NFL), prove1(NFL,Atoms,Vars). \end{verbatim}}

The predicate {\tt prove1} has eight cases. The first case defines termination when there are no more docomposable formulas ({\tt Formulas} is empty). In this case {\tt Atoms} contains the model of the original formula. The second case terminates the construction of a path due to the occurrence of a contradiction. The third case moves a literal from {\tt Formulas} to {\tt Atoms}. The fourth case simplifies doublely negated formulas. The fifth case case replaces conjunctions with both subformulas. The sixth case case handles disjunctions. The proof tree branches and the subformulas are in different branches. The seventh case handles universal quantification. The universal quantifier is removed, a new variable is substituted for the quantified variable, the resulting formula is added to the branch, the original formula is enqueued in the list of formulas and the original variable is added to the list of variables. The eighth case handles existential quantification. The existential quantifier is removed, a new skolem function is substituted for the quantified variable and the resulting formula is added to the branch. BAT works on a compound formula until literals are reached. It works on a branch until it closes or a model is generated.

## Performance

The implementation has been tested on several of the 75 problems of Pelletier \cite{Pelletier86}. The total time required to solve problems 1-27, 29, 34-36, 47 was 6.0 seconds. BAT required an average time of 0.2 seconds per problem. BAT was not tested on problems involving identity or functions.## Future Work

There are several modifications of BAT that are planned.- We would like to make provision to ``grow'' the proof tree in a depth first fashion. In terms of the present implementation, all branches must be present in the predicate {\tt prove1}.
- We would like to minimize branching and explore Smullyan's \cite{Smullyan68} suggestion that type alpha formulas should be decomposed first and then type $\beta$ formulas. In terms of the present implementation, rather than selecting the first formula present in {\tt Formulas}, the ``and'' formulas must be given precedence.
- We would like to incorporate reasoning about identity and functions. In terms of the present implementation, special actions must be taken each time a literal formula is added to {\tt Atoms}. The actions taken include the construction of equivalence classes of variables and constants, substitutions, and contradiction checking. $a=b$ is a contradiction iff there is some $c$ such that $\neg (a=c)$ and $b \in $ the same equivalence class with $c$. $\neg a=b$ is a contradiction iff $b \in $ the same equivalence class with $a$.
- We would like to incorporate the use of theorems. In terms of the present implementation, special actions must be taken each time {\tt Formulas} became empty. To facilitate the selection of appropriate theorems, the representation of each theorem will include a list of the literals it contains. Precedence will be given to theorems which contain literals complementary to literals which are present in {\tt Atoms}.
- Given a formula, BAT either announces that the formula is unsatisfiable, presents a finite model, or does not terminate (in the case of an infinite model). We would like to extend BAT with some heuristics for the recognition of infinite models \cite{OppSuen88}. In terms of the present implementation, the huristic selection would occur as an alternate to a decomposition rule selection.
- We would like to extend BAT with facilities for proof explanations and condensations. In terms of the present implementation, a trace of the deduction would be returned and an analysis of the trace will form the basis of the explanation.
- We would like to explore the use of tactics and tacticals such as are utilized in LCF \cite{Paulson87} and Nuprl \cite{ConsKnoBa85}. Natural deduction can be naturally implemented within BAT. Since the proof tree is constructed by the predicate {\tt prove1(Formulas,Atoms)}, {\tt Formulas} may be viewed as a list of the hypotheses and {\tt Atoms} as a list of the goals. The only modification to BAT required is that when a literal is moved from {\tt Formulas} to {\tt Atoms} the literal must be complemented before placing it into {\tt Atoms}.
- We would like to combine BAT with a theorem prover for temporal logic \cite{AabyNa88} thus, providing a theorem prover for first-order temporal logic.

\begin{thebibliography}{99} \bibitem{AabyNa88} Aaby, A. A. and Narayana
K. T., Propositional Temporal Logic is PSPACE. *9 th International
Conference on Automated Deduction* LNCS No. 310, Springer Verlag, (1988)
218-237. \bibitem{bundy} Bundy, A., *The Computer Modelling of Mathematical
Reasoning*. Academic Press, London (1983) \bibitem{Cohen85} Cohen, A. G.,
On the solution of Schubert's Steamroller in Many Sorted Logic. *IJCAI*
(1985) 1169-1173. \bibitem{ConsKnoBa85} Constable, R. L., Knoblock, T.
B., and Bates, J. L., Writing Programs that Construct Proofs, *Journal
of Automated Reasoning* 1 (1985) 285-326. \bibitem{Fitting88} Fitting,
M., First-Order Modal Tableaux, *Journal of Automated Reasoning* 4
(1988) 191-213. \bibitem{ManBry88} Manthey, R. and Bry, F., SATCHMO: a
theorem prover implemented in Prolog. *9 th International Conference
on Automated Deduction,* LNCS No. 310, Springer Verlag, (1988), 415-434.
\bibitem{OppSuen88} Oppacher, F. and Suen, E., HARP: A Tableau-Based Theorem
Prover, *Journal of Automated Reasoning* 4 (1988) 69-100. \bibitem{Paulson87}
Paulson, L. C., *Logic and Computation: Interactive Proof with Cambridge
LCF*. Cambridge University Press, Cambridge (1987). \bibitem{Pelletier86}
Pelletier, F. J., Seventy-Five Problems for Testing Automatic Theorem Provers,
*Journal of Automated Reasoning* 2 (1986) 191-216. \bibitem{Pelletier88}
Pelletier, F. J., Errata, *Journal of Automated Reasoning* 4 (1988)
235-236. \bibitem{robinson} Robinson, J. A., *Logic: Form and Function*.
North-Holland, New York (1979) \bibitem{Smullyan68} Smullyan, R. M., *
First-Order Logic*. Springer-Verlag, Berlin (1968). \bibitem{Walter85}
Walter, C., A mechanical Solution of Schubert's Steamroller by Many-Sorted
Resolution, *Artificial Intelligence.* (May 1985) 217-224 \end{thebibliography}

## Appendix A

{\small \begin{verbatim} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%% BAT: The Bucknell Analytic Tableau based %%%%%%%%%%%%% %%%%%%%%%%%theorem prover for first-order logic %%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % SYNTAX %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %CONSTANTS :- dynamic constant/1 . constant(0). new_constant(N) :- constant(N), M is N+1, update(constant(M)). % VARIABLES: strings beginning with an uppercase letter % PREDICATE SYMBOLS strings beginning with a lowercase letter literal(not Pred) :- !,Pred =..[P|List], not in(P,[not,and,or,if,iff,qe,qa]). literal(Pred) :- Pred =..[P|List], not in(P,[not,and,or,if,iff,qe,qa]). % FORMATION RULES % constants: c0,c1,... % variables: X0,X1,... % terms: constants,variables, t0,t1,... % p,q predicate symbols % formulae: p(t0,...,tn), A,B % not A % or(A,B) % and(A,B) % if(A,B) % iff(A,B) % qe(X,A) % qa(X,A) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % SEMANTICS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % REWRITE RULES rule(not,not not A,[A]). rule(alpha, and(A,B),[A, B]). rule(alpha, not or(A,B),[not A,not B]). rule(alpha, not if(A,B),[A,not B]). rule(beta, or(A,B),[A,B]). rule(beta, if(A,B),[not A,B]). rule(beta, not and(A,B),[not A,not B]). rule(beta, iff(A,B),[and(A,B), and(not A,not B)]). rule(beta, not iff(A,B),[and(A, not B),and(not A, B)]). % The gamma rule substitues a new variable for universally quantified % variables. rule(gamma, qa(X,F),[ Fp,qa(X, F)],Y) :- substitute(X,Y,F,Fp). rule(gamma, not qe(X,F),[not Fp,not qe(X,F)],Y) :- substitute(X,Y,F,Fp). % The delta rule substitues a new skolem function for an % existentially quantified variable. rule(delta, qe(X,F),[Fp],Vars) :- new_constant(C), SK =..[skf,C|Vars], substitute(X,SK,F,Fp). rule(delta, not qa(X,F),[not Fp],Vars) :- new_constant(C), SK =..[skf,C|Vars], substitute(X,SK,F,Fp). % SUBSTITUTION RULES substitute(X,C,not A, not Ap) :- substitute(X,C,A,Ap). substitute(X,C,and(A,B),and(Ap,Bp)) :- substitute(X,C,A,Ap), substitute(X,C,B,Bp). substitute(X,C,or(A,B), or(Ap,Bp)) :- substitute(X,C,A,Ap), substitute(X,C,B,Bp). substitute(X,C,if(A,B), if(Ap,Bp)) :- substitute(X,C,A,Ap), substitute(X,C,B,Bp). substitute(X,C,iff(A,B),iff(Ap,Bp)) :- substitute(X,C,A,Ap), substitute(X,C,B,Bp). substitute(X,C,qa(Y,A), qa(Y,Ap)) :- X \== Y, substitute(X,C,A,Ap). substitute(X,C,qa(Y,A), qa(Y, A)) :- X == Y. substitute(X,C,qe(Y,A), qe(Y,Ap)) :- X \== Y, substitute(X,C,A,Ap). substitute(X,C,qe(Y,A), qe(Y, A)) :- X == Y. substitute(X,C,Pred, Predp) :- Pred =..[P|List], not in(P,[not,and,or,if,iff,qe,qa]), list_subs(X,C,List,Listp),!, Predp =..[P|Listp]. list_subs(X,C,[], []) :- !. list_subs(X,C,[Y|R],[Y|Rp]) :- X \== Y,!,list_subs(X,C,R,Rp). list_subs(X,C,[Y|R],[C|Rp]) :- X == Y, list_subs(X,C,R,Rp). % CONTRADICTION RULES contradiction(F,[not G|_]) :- F ?= G, !. contradiction(not F,[G|_]) :- F ?= G, !. contradiction(F,[H|L]) :- contradiction(F,L). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % DEDUCTION %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% prove(F) :- new_queue(DL), enqueue(not F,DL,Formula), prove1(Formula,[],[]), !. % termination (open branch--no contradiction) prove1(Formulas,Atoms,Vars) :- is_empty(Formulas), print([satisfiable,Atoms]), nl. % termination (closed branch--contradiction) prove1(Formulas,Atoms,Vars) :- dequeue(F,Formulas,Form), contradiction(F,Atoms). % atomic predicate prove1(Formulas,Atoms,Vars) :- dequeue(F,Formulas,Form), literal(F), prove1(Form,[F|Atoms],Vars). % rule application (double negation) prove1(Formulae,Atoms,Vars) :- dequeue(F,Formulae,Form), rule(not,F,Fl), push(Fl,Form,FL), prove1(FL,Atoms,Vars). % rule application (and) prove1(Formulas,Atoms,Vars) :- dequeue(F,Formulas,Form), rule(alpha,F,Fl), push(Fl,Form,FL), prove1(FL,Atoms,Vars). % rule application (or) prove1(Formulas,Atoms,Vars) :- dequeue(F,Formulas,Form), rule(delta,F,I,Vars), push(I,Form,FL), prove1(FL,Atoms,Vars). % rule application (universal quantification) prove1(Formulas,Atoms,Vars) :- dequeue(F,Formulas,Form), rule(gamma,F,IQ,V), push(IQ,Form,FL), prove1(FL,Atoms,[V|Vars]). % rule application (existential quantification) prove1(Formulas,Atoms,Vars) :- dequeue(F,Formulas,Form), rule(beta,F,[A,B]), copy_queue(Form,Fp), push([A],Form,FL), prove1(FL,Atoms,Vars), push([B],Fp,NFL), prove1(NFL,Atoms,Vars). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % QUEUE and SET ADTs %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % ADT Queue (uses difference lists) % operations: new_queue: () => queue % enqueue: (queue,item) => queue % push: (item,queue) => queue % dequeue: (queue) => queue % is_empty: (queue) => boolean % initial call is to new_queue with var1:variable % for dequeue and enqueue, arg1 is item to be removed or added % arg2 is old queue % arg3 is new queue % new_queue(L/L). is_empty(A/A) :- var(A). copy_queue(L/L,M/M) :- var(L). copy_queue([X|R]/L,[X|Rp]/Lp) :- copy_queue(R/L,Rp/Lp). dequeue(X,[X|Q]/Xs,Q/Xs). enqueue(X,Q/[X|Xs],Q/Xs). push([X],Q/Xs,[X|Q]/Xs) :- !. push([X, qa(Y,F)],Q/Xs,Form) :- enqueue( qa(Y,F),[X|Q]/Xs,Form),!. push([X,not qe(Y,F)],Q/Xs,Form) :- enqueue(not qe(Y,F),[X|Q]/Xs,Form),!. push([X,Y],Q/Xs,[X,Y|Q]/Xs) :- Y \= qa(Z,P). % ADT Set(uses lists) in(X,[Y|_]) :- X == Y, !. in(X,[Y|R]) :- in(X,R). \end{verbatim}} \newpage \begin{center} {\Large\bf Appendix B} \end{center} {\small \begin{verbatim} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % The Seventy-Five Problems of Pelletier %%%%%%%%%%%%%%%%%%%% % % % No. 1-27, 29, 34, 35, 36, 47 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Propositional Logic p(1,iff(if(p,q),if(not q,not p))). p(2,iff(not not p, p)). p(3,if(not if(p,q),if(q,p))). p(4,iff(if(not p,q),if(not q,p))). p(5,if(if(or(p,q),or(p,r)), or(p,if(q,r)))). p(6,or(p,not p)). p(7,or(p,not not not p)). p(8,if(if(if(p,q),p),p)). p(9,if(and(or(p,q),and(or(not p,q),or(p,not q))), not or( not p, not q))). p(10,if(and(or(p,q),and(or(not p,q),or(p,not q))), not or( not p, not q))). p(11,if(and(if(q,r),and(if(r,and(p,q)),if(p,or(q,r)))), iff(p,q))). p(12,iff(iff(iff(p,q),r), iff(p,iff(q,r)))). p(13,iff(or(p,and(q,r)), and(or(p,q),or(p,r)))). p(14,iff(iff(p,q), and(or(q,not p),or(not q,p)))). p(15,iff(if(p,q),or(not p,q))). p(16,or(if(p,q),or(q,p))). p(17,iff(if(and(p,if(q,r)),s), and(or(not p, or(q,s)),or(not p,or(not r,s))))). % Monadic Predicate Logic p(18,qe(Y,qa(X,if(f(Y),f(X))))). p(19,qe(X,qa(Y,qa(Z,if(if(p(Y),q(Z)),if(p(X),q(X))))))). p(20,if(qa(X,qa(Y,qe(Z,qa(W,if(and(p(X),q(Y)),and(r(Z),s(W))))))), qe(X,qe(Y,if(and(p(X),q(Y)),qe(Z,r(Z))))))). p(21,if(and(qe(X,if(p,f(X))),qe(X,if(f(X),p))),qe(X,iff(p,f(X))))). p(22,if(qa(X,iff(p,f(X))),iff(p,qa(X,f(X))))). p(23,iff(qa(X,or(p,f(X))),or(p,qa(X,f(X))))). p(24,if(and(not qe(X,and(s(X),q(X))), and(qa(X,if(p(X),or(q(X),r(X)))), and(not qe(X,if(p(X),qe(X,q(X)))), qa(X,if(or(q(X),r(X)),s(X)))))), qe(X,and(p(X),r(X))))). p(25,if(and(qe(X,p(X)), and(qa(X,if(f(X),and(not g(X),r(X)))), and(qa(X,if(p(X),and(g(X),f(X)))), or(qa(X,if(p(X),q(X))), qe(X,and(p(X),r(X))))))), qe(X,and(q(X),p(X))))). p(26,if(and(iff(qe(X,p(X)),qe(X,q(X))), qa(X,qa(Y,if(and(p(X),q(X)),iff(r(X),s(Y)))))), iff(qa(X,if(p(X),r(X))),qa(X,if(q(X),s(X)))))). p(27,if(and(qe(X,and(f(X),not g(X))), and(qa(X,if(f(X),h(X))), and(qa(X,if(and(j(X),i(X)),f(X))), if(qe(X,and(h(X),not g(X))), qa(X,if(i(X),not h(X))))))), qa(X,if(j(X),not i(X))))). p(29,if(and(qe(X,f(X)),qe(X,g(X))), iff(and(qa(X,if(f(X),h(X))),qa(X,if(g(X),j(X)))), qa(X,qa(Y,if(and(f(X),g(Y)), and(h(X),j(Y)))))))). p(34,iff(iff(qe(X,qa(Y,iff(p(X),p(Y)))), iff(qe(X,q(X)),qa(Y,q(Y)))), iff(qe(X,qa(Y,iff(q(X),q(Y)))), iff(qe(X,p(X)),qa(Y,p(Y)))))). % Full Predicate Logic (without Identity and Functions) p(35,qe(X,qe(Y,if(p(X,Y),qa(X,qa(Y,p(X,Y))))))). p(36,if(and(qa(X,qe(Y,f(X,Y))), and(qa(X,qe(Y,g(X,Y))), qa(X,qa(Y,if(or(f(X,Y),g(X,Y)), qa(Z, if(or(f(Y,Z),g(Y,Z)),h(X,Z)))))))), qa(X,qe(Y,h(X,Y))))). p(47,if(and( qa(X,and(if(p1(X),p0(X)),qe(x,p1(X)))), and(qa(X,and(if(p2(X),p0(X)),qe(x,p2(X)))), and(qa(X,and(if(p3(X),p0(X)),qe(x,p3(X)))), and(qa(X,and(if(p4(X),p0(X)),qe(x,p4(X)))), and(qa(X,and(if(p5(X),p0(X)),qe(x,p5(X)))), and(qe(X,and(q1(X),qa(X,if(q1(X),q0(X))))), and(qa(X,if(p0(X), or(qa(Y,if(q0(Y),r(X,Y))), qa(Y,if(and(p0(Y), and(s(Y,X), qe(Z,and(q0(Z), r(Y,Z))))), r(X,Y)))))), and(qa(X,qa(Y,if(and(p3(Y),or(p5(X),p4(X))),s(X,Y)))), and(qa(X,qa(Y,if(and(p3(X),p2(Y)),s(X,Y)))), and(qa(X,qa(Y,if(and(p2(X),p1(Y)),s(X,Y)))), and(qa(X,qa(Y,if(and(p1(X),or(p2(Y),q1(Y))),not r(X,Y)))), and(qa(X,qa(Y,if(and(p3(X),p4(Y)),r(X,Y)))), and(qa(X,qa(Y,if(and(p3(X),p5(Y)),not r(X,Y)))), qa(X,if(or(p4(X),p5(Y)), qe(Y,and(q0(Y),r(X,Y)))))))))))))))))), qe(X,qe(Y,and(p0(X), and(p0(Y), qe(Z,and(q1(Z),and(r(Y,Z),r(X,Y)))))))))). \end{verbatim}} \end{document}