G4 Prover
Result of the test for sequent p/\(q/\r) <--> (p/\q)/\r
G4 Prover: a Prolog Prover for Roy Dyckhoff's Sequent Calculus G4
This prover is a fork made by Joseph Vidal-Rosset (joseph.vidal-rosset@gmail.com),
from seqprover.pl, the sequent prover for CL-X, written by Naoyuki Tamura (tamura@kobe-u.ac.jp).
Type "help." if you need some help.
fol(g4i)> fol(g4i).
yes
fol(g4i)> output(pretty).
yes
fol(g4i)> p/\q/\r<-->(p/\q)/\r.
Trying to prove with threshold = 0
Succeed in proving p/\q/\r --> (p/\q)/\r (2 msec.)
pretty:1 =
----------- Ax ----------- Ax
p,q,r --> p p,q,r --> q
--------------------------- R/\ ----------- Ax
p,q,r --> p/\q p,q,r --> r
-------------------------------------- R/\
p,q,r --> (p/\q)/\r
-------------------- L/\
p,q/\r --> (p/\q)/\r
--------------------- L/\
p/\q/\r --> (p/\q)/\r
Trying to prove with threshold = 0
Succeed in proving (p/\q)/\r --> p/\q/\r (2 msec.)
pretty:2 =
----------- Ax ----------- Ax
p,q,r --> q p,q,r --> r
----------- Ax --------------------------- R/\
p,q,r --> p p,q,r --> q/\r
------------------------------------ R/\
p,q,r --> p/\q/\r
------------------ L/\
p/\q,r --> p/\q/\r
--------------------- L/\
(p/\q)/\r --> p/\q/\r
yes
fol(g4i)> quit.
yes
Exit from Sequent Calculus Prover...
Total CPU time = 9 msec.
true