The lifting doesn't even need the premis ~u=v & ~u=w & ~v=w,
its a little long, but also simpler than I though concering the
needed premisses to prove:
117 EXIST(p):EXIST(q):[~p=q => color(p)=color(q)]
Rem DNeg, 116
Here is the full proof:
----------------------------- begin proof ----------------------------
3 objects either red ir blue => 2 out of 3 all reds or blues
1 ALL(x):ALL(y):ALL(z):ALL(r):ALL(b):[[x=r | x=b] & [y=r | y=b] & [z=r | z=b] => x=r & y=r | x=b & y=b | [x=r & z=r | x=b & z=b]
| [y=r & z=r | y=b & z=b]]
Axiom
2 ALL(x):[x ε c <=> x=r | x=b]
Axiom
3 color(u) ε c & color(v) ε c & color(w) ε c
Axiom
4 color(u) ε c
Split, 3
5 color(v) ε c
Split, 3
6 color(w) ε c
Split, 3
7 ALL(y):ALL(z):ALL(r):ALL(b):[[color(u)=r | color(u)=b] & [y=r | y=b] & [z=r | z=b] => color(u)=r & y=r | color(u)=b & y=b | [color(u)=r & z=r | color(u)=b & z=b]
| [y=r & z=r | y=b & z=b]]
U Spec, 1, 4
8 ALL(z):ALL(r):ALL(b):[[color(u)=r | color(u)=b] & [color(v)=r | color(v)=b] & [z=r | z=b] => color(u)=r & color(v)=r | color(u)=b & color(v)=b | [color(u)=r & z=r | color(u)=b & z=b]
| [color(v)=r & z=r | color(v)=b & z=b]]
U Spec, 7, 5
9 ALL(r):ALL(b):[[color(u)=r | color(u)=b] & [color(v)=r | color(v)=b] & [color(w)=r | color(w)=b] => color(u)=r & color(v)=r | color(u)=b & color(v)=b | [color(u)=r & color(w)=r | color(u)=b & color(w)=b]
| [color(v)=r & color(w)=r | color(v)=b & color(w)=b]]
U Spec, 8, 6
10 ALL(b):[[color(u)=r | color(u)=b] & [color(v)=r | color(v)=b] & [color(w)=r | color(w)=b] => color(u)=r & color(v)=r | color(u)=b & color(v)=b | [color(u)=r & color(w)=r | color(u)=b & color(w)=b]
| [color(v)=r & color(w)=r | color(v)=b & color(w)=b]]
U Spec, 9
11 [color(u)=r | color(u)=b] & [color(v)=r | color(v)=b] & [color(w)=r | color(w)=b] => color(u)=r & color(v)=r | color(u)=b & color(v)=b | [color(u)=r & color(w)=r | color(u)=b & color(w)=b]
| [color(v)=r & color(w)=r | color(v)=b & color(w)=b]
U Spec, 10
12 color(u) ε c <=> color(u)=r | color(u)=b
U Spec, 2, 4
13 [color(u) ε c => color(u)=r | color(u)=b]
& [color(u)=r | color(u)=b => color(u) ε c]
Iff-And, 12
14 color(u) ε c => color(u)=r | color(u)=b
Split, 13
15 color(u)=r | color(u)=b => color(u) ε c
Split, 13
16 color(u)=r | color(u)=b
Detach, 14, 4
17 color(v) ε c <=> color(v)=r | color(v)=b
U Spec, 2, 5
18 [color(v) ε c => color(v)=r | color(v)=b]
& [color(v)=r | color(v)=b => color(v) ε c]
Iff-And, 17
19 color(v) ε c => color(v)=r | color(v)=b
Split, 18
20 color(v)=r | color(v)=b => color(v) ε c
Split, 18
21 color(v)=r | color(v)=b
Detach, 19, 5
22 color(w) ε c <=> color(w)=r | color(w)=b
U Spec, 2, 6
23 [color(w) ε c => color(w)=r | color(w)=b]
& [color(w)=r | color(w)=b => color(w) ε c]
Iff-And, 22
24 color(w) ε c => color(w)=r | color(w)=b
Split, 23
25 color(w)=r | color(w)=b => color(w) ε c
Split, 23
26 color(w)=r | color(w)=b
Detach, 24, 6
27 [color(u)=r | color(u)=b] & [color(v)=r | color(v)=b]
Join, 16, 21
28 [color(u)=r | color(u)=b] & [color(v)=r | color(v)=b]
& [color(w)=r | color(w)=b]
Join, 27, 26
29 color(u)=r & color(v)=r | color(u)=b & color(v)=b | [color(u)=r & color(w)=r | color(u)=b & color(w)=b]
| [color(v)=r & color(w)=r | color(v)=b & color(w)=b]
Detach, 11, 28
30 ~[color(u)=color(v) | color(u)=color(w) | color(v)=color(w)]
Premise
31 ~~[~[color(u)=color(v) | color(u)=color(w)] & ~color(v)=color(w)]
DeMorgan, 30
32 ~[color(u)=color(v) | color(u)=color(w)] & ~color(v)=color(w)
Rem DNeg, 31
33 ~~[~color(u)=color(v) & ~color(u)=color(w)] & ~color(v)=color(w)
DeMorgan, 32
34 ~color(u)=color(v) & ~color(u)=color(w) & ~color(v)=color(w)
Rem DNeg, 33
35 ~color(u)=color(v)
Split, 34
36 ~color(u)=color(w)
Split, 34
37 ~color(v)=color(w)
Split, 34
38 ~[color(u)=r & color(v)=r | color(u)=b & color(v)=b | [color(u)=r & color(w)=r | color(u)=b & color(w)=b]] => color(v)=r & color(w)=r | color(v)=b & color(w)=b
Imply-Or, 29
39 ~~[~[color(u)=r & color(v)=r | color(u)=b & color(v)=b] & ~[color(u)=r & color(w)=r | color(u)=b & color(w)=b]] => color(v)=r & color(w)=r | color(v)=b & color(w)=b
DeMorgan, 38
40 ~[color(u)=r & color(v)=r | color(u)=b & color(v)=b] & ~[color(u)=r & color(w)=r | color(u)=b & color(w)=b] => color(v)=r & color(w)=r | color(v)=b & color(w)=b
Rem DNeg, 39
41 color(u)=r & color(v)=r | color(u)=b & color(v)=b
Premise
42 ~[color(u)=r & color(v)=r] => color(u)=b & color(v)=b
Imply-Or, 41
43 color(u)=r & color(v)=r
Premise
44 color(u)=r
Split, 43
45 color(v)=r
Split, 43
46 ~r=color(v)
Substitute, 44, 35
47 r=color(v)
Sym, 45
48 ~r=color(v) & r=color(v)
Join, 46, 47
49 ~[color(u)=r & color(v)=r]
Conclusion, 43
50 color(u)=b & color(v)=b
Detach, 42, 49
51 color(u)=b
Split, 50
52 color(v)=b
Split, 50
53 ~b=color(v)
Substitute, 51, 35
54 b=color(v)
Sym, 52
55 ~b=color(v) & b=color(v)
Join, 53, 54
56 ~[color(u)=r & color(v)=r | color(u)=b & color(v)=b]
Conclusion, 41
57 color(u)=r & color(w)=r | color(u)=b & color(w)=b
Premise
58 ~[color(u)=r & color(w)=r] => color(u)=b & color(w)=b
Imply-Or, 57
59 color(u)=r & color(w)=r
Premise
60 color(u)=r
Split, 59
61 color(w)=r
Split, 59
62 ~r=color(w)
Substitute, 60, 36
63 r=color(w)
Sym, 61
64 ~r=color(w) & r=color(w)
Join, 62, 63
65 ~[color(u)=r & color(w)=r]
Conclusion, 59
66 color(u)=b & color(w)=b
Detach, 58, 65
67 color(u)=b
Split, 66
68 color(w)=b
Split, 66
69 ~b=color(w)
Substitute, 67, 36
70 b=color(w)
Sym, 68
71 ~b=color(w) & b=color(w)
Join, 69, 70
72 ~[color(u)=r & color(w)=r | color(u)=b & color(w)=b]
Conclusion, 57
73 ~[color(u)=r & color(v)=r | color(u)=b & color(v)=b]
& ~[color(u)=r & color(w)=r | color(u)=b & color(w)=b]
Join, 56, 72
74 color(v)=r & color(w)=r | color(v)=b & color(w)=b
Detach, 40, 73
75 ~[color(v)=r & color(w)=r] => color(v)=b & color(w)=b
Imply-Or, 74
76 color(v)=r & color(w)=r
Premise
77 color(v)=r
Split, 76
78 color(w)=r
Split, 76
79 ~r=color(w)
Substitute, 77, 37
80 r=color(w)
Sym, 78
81 ~r=color(w) & r=color(w)
Join, 79, 80
82 ~[color(v)=r & color(w)=r]
Conclusion, 76
83 color(v)=b & color(w)=b
Detach, 75, 82
84 color(v)=b
Split, 83
85 color(w)=b
Split, 83
86 ~b=color(w)
Substitute, 84, 37
87 b=color(w)
Sym, 85
88 ~b=color(w) & b=color(w)
Join, 86, 87
89 ~~[color(u)=color(v) | color(u)=color(w) | color(v)=color(w)]
Conclusion, 30
90 color(u)=color(v) | color(u)=color(w) | color(v)=color(w)
Rem DNeg, 89
91 ~EXIST(p):EXIST(q):[~p=q => color(p)=color(q)]
Premise
92 ~~ALL(p):~EXIST(q):[~p=q => color(p)=color(q)]
Quant, 91
93 ALL(p):~EXIST(q):[~p=q => color(p)=color(q)]
Rem DNeg, 92
94 ALL(p):~~ALL(q):~[~p=q => color(p)=color(q)]
Quant, 93
95 ALL(p):ALL(q):~[~p=q => color(p)=color(q)]
Rem DNeg, 94
96 ALL(p):ALL(q):~~[~p=q & ~color(p)=color(q)]
Imply-And, 95
97 ALL(p):ALL(q):[~p=q & ~color(p)=color(q)]
Rem DNeg, 96
98 ~[color(u)=color(v) | color(u)=color(w)] => color(v)=color(w)
Imply-Or, 90
99 ~~[~color(u)=color(v) & ~color(u)=color(w)] => color(v)=color(w)
DeMorgan, 98
100 ~color(u)=color(v) & ~color(u)=color(w) => color(v)=color(w)
Rem DNeg, 99
101 ALL(q):[~u=q & ~color(u)=color(q)]
U Spec, 97
102 ~u=v & ~color(u)=color(v)
U Spec, 101
103 ~u=v
Split, 102
104 ~color(u)=color(v)
Split, 102
105 ALL(q):[~u=q & ~color(u)=color(q)]
U Spec, 97
106 ~u=w & ~color(u)=color(w)
U Spec, 105
107 ~u=w
Split, 106
108 ~color(u)=color(w)
Split, 106
109 ~color(u)=color(v) & ~color(u)=color(w)
Join, 104, 108
110 color(v)=color(w)
Detach, 100, 109
111 ALL(q):[~v=q & ~color(v)=color(q)]
U Spec, 97
112 ~v=w & ~color(v)=color(w)
U Spec, 111
113 ~v=w
Split, 112
114 ~color(v)=color(w)
Split, 112
115 color(v)=color(w) & ~color(v)=color(w)
Join, 110, 114
116 ~~EXIST(p):EXIST(q):[~p=q => color(p)=color(q)]
Conclusion, 91
117 EXIST(p):EXIST(q):[~p=q => color(p)=color(q)]
Rem DNeg, 116
----------------------------- end proof -------------------------------