On Friday, November 26, 2021 at 2:47:15 PM UTC-5, Mostowski Collapse wrote:
> Try it with this challenge:
>
> > s≠0 stands for EXIST(c):[c e s]:
> > ALL(a):[a≠0 => EXIST(b):[ALL(x):[x e a => f(x) e b] & b≠0]]
THEOREM
Suppose x is a non-empty set, and P is a functional relation with domain x and unspecified codomain and range. Apply the Replacement Axiom to construct the range of P over x. Then that range is non-empty.
ALL(x):[Set(x) & EXIST(a):a in x
=> [ALL(b):[b in x => EXIST(c):ALL(d):[P(b,d) <=> d=c]]
=> EXIST(y):[Set(y) & ALL(c):[c in y <=> EXIST(d):[d in x & P(d,c)]]
& EXIST(a):a in y]]]
Axiom of Replacement (after ZFC)
1 ALL(a):[Set(a) & ALL(b):[b in a => EXIST(c):ALL(d):[P(b,d) <=> d=c]]
=> EXIST(b):[Set(b) & ALL(c):[c in b <=> EXIST(d):[d in a & P(d,c)]]]]
Axiom
PROOF
Let x be a non-empty set
2 Set(x) & EXIST(a):a in x
Premise
Let P be a functional relation with domain x
3 ALL(b):[b in x => EXIST(c):ALL(d):[P(b,d) <=> d=c]]
Premise
Apply Replacement Axiom
4 Set(x) & ALL(b):[b in x => EXIST(c):ALL(d):[P(b,d) <=> d=c]]
=> EXIST(b):[Set(b) & ALL(c):[c in b <=> EXIST(d):[d in x & P(d,c)]]]
U Spec, 1
5 Set(x)
Split, 2
6 EXIST(a):a in x
Split, 2
7 Set(x)
& ALL(b):[b in x => EXIST(c):ALL(d):[P(b,d) <=> d=c]]
Join, 5, 3
8 EXIST(b):[Set(b) & ALL(c):[c in b <=> EXIST(d):[d in x & P(d,c)]]]
Detach, 4, 7
Define: y (The range of P over x)
9 Set(y) & ALL(c):[c in y <=> EXIST(d):[d in x & P(d,c)]]
E Spec, 8
10 Set(y)
Split, 9
11 ALL(c):[c in y <=> EXIST(d):[d in x & P(d,c)]]
Split, 9
12 x0 in x
E Spec, 6
Apply functionality of P
13 x0 in x => EXIST(c):ALL(d):[P(x0,d) <=> d=c]
U Spec, 3
14 EXIST(c):ALL(d):[P(x0,d) <=> d=c]
Detach, 13, 12
Define: y0 (The image of x0 under P)
15 ALL(d):[P(x0,d) <=> d=y0]
E Spec, 14
Apply definition of y
16 y0 in y <=> EXIST(d):[d in x & P(d,y0)]
U Spec, 11
17 [y0 in y => EXIST(d):[d in x & P(d,y0)]]
& [EXIST(d):[d in x & P(d,y0)] => y0 in y]
Iff-And, 16
18 y0 in y => EXIST(d):[d in x & P(d,y0)]
Split, 17
Sufficient: For y0 in y
19 EXIST(d):[d in x & P(d,y0)] => y0 in y
Split, 17
Apply definition of y0
20 P(x0,y0) <=> y0=y0
U Spec, 15
21 [P(x0,y0) => y0=y0] & [y0=y0 => P(x0,y0)]
Iff-And, 20
22 y0=y0 => P(x0,y0)
Split, 21
23 y0=y0
Reflex
24 P(x0,y0)
Detach, 22, 23
Joining results...
25 x0 in x & P(x0,y0)
Join, 12, 24
26 EXIST(d):[d in x & P(d,y0)]
E Gen, 25
27 y0 in y
Detach, 19, 26
28 EXIST(a):a in y
E Gen, 27
29 Set(y) & ALL(c):[c in y <=> EXIST(d):[d in x & P(d,c)]]
& EXIST(a):a in y
Join, 9, 28
As Required:
30 ALL(b):[b in x => EXIST(c):ALL(d):[P(b,d) <=> d=c]]
=> EXIST(y):[Set(y) & ALL(c):[c in y <=> EXIST(d):[d in x & P(d,c)]]
& EXIST(a):a in y]
Conclusion, 3
As Required:
31 ALL(x):[Set(x) & EXIST(a):a in x
=> [ALL(b):[b in x => EXIST(c):ALL(d):[P(b,d) <=> d=c]]
=> EXIST(y):[Set(y) & ALL(c):[c in y <=> EXIST(d):[d in x & P(d,c)]]
& EXIST(a):a in y]]]
Conclusion, 2