let W be Universe; :: thesis: for L being DOMAIN-Sequence of W st ( for a, b being Ordinal of W st a in b holds
L . a c= L . b ) & ( for a being Ordinal of W holds
( L . a in Union L & L . a is epsilon-transitive ) ) & Union L is predicatively_closed holds
Union L |= the_axiom_of_power_sets

let L be DOMAIN-Sequence of W; :: thesis: ( ( for a, b being Ordinal of W st a in b holds
L . a c= L . b ) & ( for a being Ordinal of W holds
( L . a in Union L & L . a is epsilon-transitive ) ) & Union L is predicatively_closed implies Union L |= the_axiom_of_power_sets )

assume that
A1: for a, b being Ordinal of W st a in b holds
L . a c= L . b and
A2: for a being Ordinal of W holds
( L . a in Union L & L . a is epsilon-transitive ) and
A3: Union L is predicatively_closed ; :: thesis: Union L |= the_axiom_of_power_sets
set M = Union L;
A4: for X being set
for a being Ordinal of W st X in L . a holds
(L . a) /\ (bool X) in Union L
proof
let X be set ; :: thesis: for a being Ordinal of W st X in L . a holds
(L . a) /\ (bool X) in Union L

let a be Ordinal of W; :: thesis: ( X in L . a implies (L . a) /\ (bool X) in Union L )
set f = the Function of VAR,(L . a);
assume X in L . a ; :: thesis: (L . a) /\ (bool X) in Union L
then reconsider e = X as Element of L . a ;
L . a in Union L by A2;
then A5: Section ((All ((x. 2),(((x. 2) 'in' (x. 0)) => ((x. 2) 'in' (x. 1))))),( the Function of VAR,(L . a) / ((x. 1),e))) in Union L by A3;
L . a is epsilon-transitive by A2;
hence (L . a) /\ (bool X) in Union L by A5, Th1; :: thesis: verum
end;
A6: now :: thesis: for X being set st X in Union L holds
(Union L) /\ (bool X) in Union L
defpred S1[ set , set ] means $1 in L . $2;
let X be set ; :: thesis: ( X in Union L implies (Union L) /\ (bool X) in Union L )
assume A7: X in Union L ; :: thesis: (Union L) /\ (bool X) in Union L
A8: X in bool X by ZFMISC_1:def 1;
then reconsider D = (Union L) /\ (bool X) as non empty set by A7, XBOOLE_0:def 4;
A9: X in (Union L) /\ (bool X) by A7, A8, XBOOLE_0:def 4;
A10: for d being Element of D ex a being Ordinal of W st S1[d,a]
proof
let d be Element of D; :: thesis: ex a being Ordinal of W st S1[d,a]
d in Union L by XBOOLE_0:def 4;
then consider u2 being set such that
A11: u2 in dom L and
A12: d in L . u2 by Lm1;
u2 in On W by A11, ZF_REFLE:def 2;
then reconsider u2 = u2 as Ordinal of W by ZF_REFLE:7;
take u2 ; :: thesis: S1[d,u2]
thus S1[d,u2] by A12; :: thesis: verum
end;
consider f being Function such that
A13: ( dom f = D & ( for d being Element of D ex a being Ordinal of W st
( a = f . d & S1[d,a] & ( for b being Ordinal of W st S1[d,b] holds
a c= b ) ) ) ) from ZF_REFLE:sch 1(A10);
A14: rng f c= W
proof
let u be object ; :: according to TARSKI:def 3 :: thesis: ( not u in rng f or u in W )
assume u in rng f ; :: thesis: u in W
then consider u1 being object such that
A15: u1 in D and
A16: u = f . u1 by A13, FUNCT_1:def 3;
reconsider u1 = u1 as Element of D by A15;
ex a being Ordinal of W st
( a = f . u1 & u1 in L . a & ( for b being Ordinal of W st u1 in L . b holds
a c= b ) ) by A13;
hence u in W by A16; :: thesis: verum
end;
A17: (Union L) /\ (bool X) c= bool X by XBOOLE_1:17;
bool X in W by A7, CLASSES2:59;
then D in W by A17, CLASSES1:def 1;
then ( rng f = f .: (dom f) & card D in card W ) by CLASSES2:1, RELAT_1:113;
then card (rng f) in card W by A13, CARD_1:67, ORDINAL1:12;
then rng f in W by A14, CLASSES1:1;
then reconsider a = sup (rng f) as Ordinal of W by ZF_REFLE:19;
A18: D c= L . a
proof
let u2 be object ; :: according to TARSKI:def 3 :: thesis: ( not u2 in D or u2 in L . a )
assume u2 in D ; :: thesis: u2 in L . a
then reconsider d = u2 as Element of D ;
consider c being Ordinal of W such that
A19: c = f . d and
A20: d in L . c and
for b being Ordinal of W st d in L . b holds
c c= b by A13;
c in rng f by A13, A19, FUNCT_1:def 3;
then L . c c= L . a by A1, ORDINAL2:19;
hence u2 in L . a by A20; :: thesis: verum
end;
A21: (L . a) /\ (bool X) c= D by XBOOLE_1:26, ZF_REFLE:16;
D /\ (bool X) = (Union L) /\ ((bool X) /\ (bool X)) by XBOOLE_1:16;
then D c= (L . a) /\ (bool X) by A18, XBOOLE_1:26;
then D = (L . a) /\ (bool X) by A21;
hence (Union L) /\ (bool X) in Union L by A4, A9, A18; :: thesis: verum
end;
Union L is epsilon-transitive
proof
let X be set ; :: according to ORDINAL1:def 2 :: thesis: ( not X in Union L or X c= Union L )
assume X in Union L ; :: thesis: X c= Union L
then consider u being set such that
A22: u in dom L and
A23: X in L . u by Lm1;
reconsider u = u as Ordinal by A22;
u in On W by A22, ZF_REFLE:def 2;
then reconsider u = u as Ordinal of W by ZF_REFLE:7;
L . u is epsilon-transitive by A2;
then A24: X c= L . u by A23;
let u1 be object ; :: according to TARSKI:def 3 :: thesis: ( not u1 in X or u1 in Union L )
A25: L . u c= Union L by ZF_REFLE:16;
assume u1 in X ; :: thesis: u1 in Union L
then u1 in L . u by A24;
hence u1 in Union L by A25; :: thesis: verum
end;
hence Union L |= the_axiom_of_power_sets by A6, ZFMODEL1:9; :: thesis: verum