;;; Dribble file "Q1" started
==================================================
Step 1 [1] 
 
?- what? * ((some x a (f x)) v (some x a (g x)))
 
1. p * (some x a ((f x) v (g x)))

TT0>> answer-sequent 
==================================================
Step 2 [2] 
 
?- what? * ((some x a (f x)) v (some x a (g x)))
 
1. p * (some x a ((f x) v (g x)))

TT0>> some-left2 
==================================================
Step 3 [2] 
 
?- what? * ((some x a (f x)) v (some x a (g x)))
 
1. p * (some x a ((f x) v (g x)))
2. (snd p) * ((f (fst p)) v (g (fst p)))

TT0>> v-left 
==================================================
Step 4 [4] 
 
?- 174? * (176? v 179?)
 
1. p * (some x a ((f x) v (g x)))
2. (snd p) * ((f (fst p)) v (g (fst p)))

TT0>> xtt 
==================================================
Step 5 [3] 
 
?- 175? * ((f (fst p)) ->
             ((some x a (f x)) v (some x a (g x))))
 
1. p * (some x a ((f x) v (g x)))
2. (snd p) * ((f (fst p)) v (g (fst p)))

TT0>> ->-right 
==================================================
Step 6 [3] 
 
?- 309? * ((some x a (f x)) v (some x a (g x)))
 
1. t947 * (f (fst p))
2. p * (some x a ((f x) v (g x)))
3. (snd p) * ((f (fst p)) v (g (fst p)))

TT0>> v-right1 
==================================================
Step 7 [3] 
 
?- 366? * (some x a (f x))
 
1. t947 * (f (fst p))
2. p * (some x a ((f x) v (g x)))
3. (snd p) * ((f (fst p)) v (g (fst p)))

TT0>> some-right 
==================================================
Step 8 [4] 
 
?- 422? * (f 425?)
 
1. t947 * (f (fst p))
2. p * (some x a ((f x) v (g x)))
3. (snd p) * ((f (fst p)) v (g (fst p)))

TT0>> xtt 
==================================================
Step 9 [3] 
 
?- (fst p) * a
 
1. t947 * (f (fst p))
2. p * (some x a ((f x) v (g x)))
3. (snd p) * ((f (fst p)) v (g (fst p)))

TT0>> some-left1 
==================================================
Step 10 [3] 
 
?- p * (some 551? a 553?)
 
1. t947 * (f (fst p))
2. p * (some x a ((f x) v (g x)))
3. (snd p) * ((f (fst p)) v (g (fst p)))

TT0>> xtt 
==================================================
Step 11 [2] 
 
?- 178? * ((g (fst p)) ->
             ((some x a (f x)) v (some x a (g x))))
 
1. p * (some x a ((f x) v (g x)))
2. (snd p) * ((f (fst p)) v (g (fst p)))

TT0>> ->-right 
==================================================
Step 12 [2] 
 
?- 682? * ((some x a (f x)) v (some x a (g x)))
 
1. t948 * (g (fst p))
2. p * (some x a ((f x) v (g x)))
3. (snd p) * ((f (fst p)) v (g (fst p)))

TT0>> v-right2 
==================================================
Step 13 [2] 
 
?- 739? * (some x a (g x))
 
1. t948 * (g (fst p))
2. p * (some x a ((f x) v (g x)))
3. (snd p) * ((f (fst p)) v (g (fst p)))

TT0>> some-right 
==================================================
Step 14 [3] 
 
?- 795? * (g 798?)
 
1. t948 * (g (fst p))
2. p * (some x a ((f x) v (g x)))
3. (snd p) * ((f (fst p)) v (g (fst p)))

TT0>> xtt 
==================================================
Step 15 [2] 
 
?- (fst p) * a
 
1. t948 * (g (fst p))
2. p * (some x a ((f x) v (g x)))
3. (snd p) * ((f (fst p)) v (g (fst p)))

TT0>> some-left1 
==================================================
Step 16 [2] 
 
?- p * (some 995? a 997?)
 
1. t948 * (g (fst p))
2. p * (some x a ((f x) v (g x)))
3. (snd p) * ((f (fst p)) v (g (fst p)))

TT0>> xtt 
==================================================
Step 17 [1] 
 
?- (cases (snd p)
       (/. t947
           (f (fst p))
           (inl (tuple (fst p) t947)))
       (/. t948
           (g (fst p))
           (inr (tuple (fst p) t948)))) * ((some x a (f x)) v (some x a (g x)))
 
1. (cases (snd p)
       (/. t947
           (f (fst p))
           (inl (tuple (fst p) t947)))
       (/. t948
           (g (fst p))
           (inr (tuple (fst p) t948)))) * ((some x a (f x)) v (some x a (g x)))
2. p * (some x a ((f x) v (g x)))

TT0>> xtt 
;;; Dribble file "Q1" finished
