# G4 Prover

### Result of the test for sequent p/\top <--> p

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/\top<-->p.
Trying to prove with threshold = 0
Succeed in proving p/\top --> p (1 msec.)
pretty:1 =
------- Ax
p --> p
----------- Ltop
p,top --> p
------------ L/\
p/\top --> p
Trying to prove with threshold = 0
Succeed in proving p --> p/\top (1 msec.)
pretty:2 =
------- Ax --------- Rtop
p --> p p --> top
--------------------- R/\
p --> p/\top
yes
fol(g4i)> quit.
yes
Exit from Sequent Calculus Prover...
Total CPU time = 3 msec.
true