;;; Dribble file "proof2" started
==================================================
Step 1 [1]
 
?- ((l (p & q)) => (l p))
 
SYSTEM T>> =>-right 
==================================================
Step 2 [1] 
 
?- (l p)
 
1. (l (p & q))

SYSTEM T>> lemma ((l ((p & q) => p)) * thm) 
==================================================
Step 3 [2] 
 
?- (l ((p & q) => p))
 
1. (l (p & q))

SYSTEM T>> l-right 
==================================================
Step 4 [2] 
 
?- ((p & q) => p)
 
1. (l (p & q))

SYSTEM T>> =>-right 
==================================================
Step 5 [2] 
 
?- p
 
1. (p & q)
2. (l (p & q))

SYSTEM T>> &-left 
==================================================
Step 6 [2] 
 
?- p
 
1. p
2. q
3. (l (p & q))

SYSTEM T>> xtt 
==================================================
Step 7 [1] 
 
?- (l p)
 
1. (l ((p & q) => p))
2. (l (p & q))

SYSTEM T>> rewrite dist-l 1 
==================================================
Step 8 [1] 
 
?- (l p)
 
1. ((l (p & q)) => (l p))
2. (l (p & q))

SYSTEM T>> =>-left 
==================================================
Step 9 [1] 
 
?- (l (p & q))
 
1. ((l (p & q)) => (l p))
2. (l (p & q))

SYSTEM T>> xtt 
;;; Dribble file "proof2" finished
