Now I have the feeling there is a shorter proof.
You use the universal class V = { x | x = x } to
provoke a contradiction. But the Russell class
R = { x | ~(x e x) } comes also into play. You
use it when you show that V is a proper class.
Basically you derive a contradiction as follows:
1) You assume V is a set,
2) Then by the separation axiom you get:
R = { x | ~(x e x) } = { x | x e V & ~(x e x) } is also a set.
3) Then you make the usual Russell contradiction argument.
You need 17 lines of proof for that. Thats huge.
I have seen much shorter Russell contradiction
arguments. Most likely there is a universal
proof, and maybe also a short shorter purple proof?
Mostowski Collapse schrieb am Samstag, 30. Oktober 2021 um 23:45:14 UTC+2:
> Proof:
> If V \ p were a set, then (V \ p) u p = V were also set,
> since the union of two sets is a set. But we already
> know that V is a proper class, contradiction.
>
> Q.E.D.
>
> Thanks for the proof idea.
> Mostowski Collapse schrieb am Samstag, 30. Oktober 2021 um 23:42:13 UTC+2:
> > You can directly prove:
> >
> > ALL(p):[Set(p) => ~EXIST(p'):[Set(p') & ALL(b):[b in p' <=> ~b in p]]]
> >
> > You don't need ALL(b):[b in p <=> P(b)].
> >
> > Or verbally, for every set p, V \ p is a proper class.
> > Dan Christensen schrieb am Samstag, 30. Oktober 2021 um 23:31:23 UTC+2:
> > > I wrote the attached proof in response to a discussion at Quora. Here I show that, in set theory, there exists no set of all those things that are NOT PURPLE.
> > >
> > > In the language of set theory: For every set p, there does NOT exist a set p' of all those elements NOT in p.
> > >
> > > ALL(p):[Set(p) & ALL(b):[b in p <=> P(b)] => ~EXIST(p'):[Set(p') & ALL(b):[b in p' <=> ~b in p]]]
> > >
> > > Your comments are welcomed.
> > > THE NON-EXISTENCE OF UNIVERSAL SET COMPLEMENTS
> > >
> > > THEOREM
> > >
> > > ALL(p):[Set(p) & ALL(b):[b in p <=> P(b)]
> > > => ~EXIST(p'):[Set(p') & ALL(b):[b in p' <=> ~b in p]]]
> > >
> > > PROOF:
> > >
> > > Suppose we have set p such that...
> > >
> > > 1 Set(p) & ALL(b):[b in p <=> P(b)]
> > > Premise
> > >
> > > 2 Set(p)
> > > Split, 1
> > >
> > > 3 ALL(b):[b in p <=> P(b)]
> > > Split, 1
> > >
> > >
> > > Suppose to the contrary that we have set p' (the complement of p) such that...
> > >
> > > 4 Set(p') & ALL(b):[b in p' <=> ~b in p]
> > > Premise
> > >
> > > 5 Set(p')
> > > Split, 4
> > >
> > > 6 ALL(b):[b in p' <=> ~b in p]
> > > Split, 4
> > >
> > > Apply axiom of Pairwise Union
> > >
> > > 7 ALL(a):ALL(b):[Set(a) & Set(b) => EXIST(c):[Set(c) & ALL(d):[d in c <=> d in a | d in b]]]
> > > Pw Union
> > >
> > > 8 ALL(b):[Set(p) & Set(b) => EXIST(c):[Set(c) & ALL(d):[d in c <=> d in p | d in b]]]
> > > U Spec, 7
> > >
> > > 9 Set(p) & Set(p') => EXIST(c):[Set(c) & ALL(d):[d in c <=> d in p | d in p']]
> > > U Spec, 8
> > >
> > > 10 Set(p) & Set(p')
> > > Join, 2, 5
> > >
> > > 11 EXIST(c):[Set(c) & ALL(d):[d in c <=> d in p | d in p']]
> > > Detach, 9, 10
> > >
> > > 12 Set(u) & ALL(d):[d in u <=> d in p | d in p']
> > > E Spec, 11
> > >
> > > Define: Set u (the "universal set", the union of p and p')
> > >
> > > 13 Set(u)
> > > Split, 12
> > >
> > > 14 ALL(d):[d in u <=> d in p | d in p']
> > > Split, 12
> > >
> > >
> > > Suppose to the contrary that we have x such that...
> > >
> > > 15 ~x in u
> > > Premise
> > >
> > > 16 x in u <=> x in p | x in p'
> > > U Spec, 14
> > >
> > > 17 [x in u => x in p | x in p'] & [x in p | x in p' => x in u]
> > > Iff-And, 16
> > >
> > > 18 x in u => x in p | x in p'
> > > Split, 17
> > >
> > > 19 x in p | x in p' => x in u
> > > Split, 17
> > >
> > > 20 ~x in u => ~[x in p | x in p']
> > > Contra, 19
> > >
> > > 21 ~[x in p | x in p']
> > > Detach, 20, 15
> > >
> > > 22 ~[~x in p => x in p']
> > > Imply-Or, 21
> > >
> > > 23 x in p' <=> ~x in p
> > > U Spec, 6
> > >
> > > 24 [x in p' => ~x in p] & [~x in p => x in p']
> > > Iff-And, 23
> > >
> > > 25 x in p' => ~x in p
> > > Split, 24
> > >
> > > 26 ~x in p => x in p'
> > > Split, 24
> > >
> > > 27 ~[~x in p => x in p'] & [~x in p => x in p']
> > > Join, 22, 26
> > >
> > > By contradiction...
> > >
> > > 28 ~EXIST(a):~a in u
> > > Conclusion, 15
> > >
> > > 29 ~~ALL(a):~~a in u
> > > Quant, 28
> > >
> > > 30 ALL(a):~~a in u
> > > Rem DNeg, 29
> > >
> > > 31 ALL(a):a in u
> > > Rem DNeg, 30
> > >
> > > Apply axiom of Arbitrary Subsets
> > >
> > > 32 EXIST(r):[Set(r) & ALL(a):[a in r <=> a in u & ~a in a]]
> > > Subset, 13
> > >
> > > 33 Set(r) & ALL(a):[a in r <=> a in u & ~a in a]
> > > E Spec, 32
> > >
> > > 34 Set(r)
> > > Split, 33
> > >
> > > 35 ALL(a):[a in r <=> a in u & ~a in a]
> > > Split, 33
> > >
> > > 36 r in r <=> r in u & ~r in r
> > > U Spec, 35
> > >
> > > 37 [r in r => r in u & ~r in r] & [r in u & ~r in r => r in r]
> > > Iff-And, 36
> > >
> > > 38 r in r => r in u & ~r in r
> > > Split, 37
> > >
> > > 39 r in u & ~r in r => r in r
> > > Split, 37
> > >
> > > Suppose to the contrary...
> > >
> > > 40 r in r
> > > Premise
> > >
> > > 41 r in u & ~r in r
> > > Detach, 38, 40
> > >
> > > 42 ~r in r
> > > Split, 41
> > >
> > > 43 r in r & ~r in r
> > > Join, 40, 42
> > >
> > > By contradiction...
> > >
> > > 44 ~r in r
> > > Conclusion, 40
> > >
> > > 45 r in u
> > > U Spec, 31
> > >
> > > 46 r in u & ~r in r
> > > Join, 45, 44
> > >
> > > 47 r in r
> > > Detach, 39, 46
> > >
> > > 48 ~r in r & r in r
> > > Join, 44, 47
> > >
> > > By contradiction...
> > >
> > > 49 ~EXIST(p'):[Set(p') & ALL(b):[b in p' <=> ~b in p]]
> > > Conclusion, 4
> > >
> > > As Required:
> > >
> > > 50 ALL(p):[Set(p) & ALL(b):[b in p <=> P(b)]
> > > => ~EXIST(p'):[Set(p') & ALL(b):[b in p' <=> ~b in p]]]
> > > Conclusion, 1