```    G4 Prover
Result of the test for sequent (p->q)/\(p->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)/\p->r<-->p->q/\r.
Trying to prove with threshold = 0
Succeed in proving (p->q)/\p->r --> p->q/\r (2 msec.)
pretty:1 =
----------- Ax  ----------- Ax
q,r,p --> q     q,r,p --> r
--------------------------- R/\
q,r,p --> q/\r
----------------- L0->1
q,p,p->r --> q/\r
-------------------- L0->1
p,p->q,p->r --> q/\r
--------------------- R->
p->q,p->r --> p->q/\r
------------------------ L/\
(p->q)/\p->r --> p->q/\r
Trying to prove with threshold = 0
Succeed in proving p->q/\r --> (p->q)/\p->r (2 msec.)
pretty:2 =
----------- Ax         ----------- Ax
q,r,p --> q            q,r,p --> r
------------ L/\       ------------ L/\
q/\r,p --> q           q/\r,p --> r
--------------- L0->1  --------------- L0->1
p,p->q/\r --> q        p,p->q/\r --> r
---------------- R->   ---------------- R->
p->q/\r --> p->q       p->q/\r --> p->r
--------------------------------------- R/\
p->q/\r --> (p->q)/\p->r
yes
fol(g4i)> quit.
yes
Exit from Sequent Calculus Prover...
Total CPU time = 9 msec.
true

Back to g4-prover
Maintained by  Joseph Vidal-Rosset
```