:: Consequences of the Reflection Theorem
:: by Grzegorz Bancerek
::
:: Received August 13, 1990
:: Copyright (c) 1990-2012 Association of Mizar Users


begin

Lm1:  {} in omega
by ORDINAL1:def_11;

Lm2:  omega is limit_ordinal
by ORDINAL1:def_11;

definition
let M be non empty set ;
let F be Subset of WFF;
predM |= F means :Def1: :: ZFREFLE1:def 1
 for H being ZF-formula st H in F holds
M |= H;
end;

:: deftheorem Def1 defines |= ZFREFLE1:def_1_:_
 for M being non empty set
for F being Subset of WFF holds
( M |= F iff for H being ZF-formula st H in F holds
M |= H );

definition
let M1, M2 be non empty set ;
predM1 <==> M2 means :: ZFREFLE1:def 2
 for H being ZF-formula st Free H = {} holds
( M1 |= H iff M2 |= H );
reflexivity
 for M1 being non empty set
for H being ZF-formula st Free H = {} holds
( M1 |= H iff M1 |= H ) ;
symmetry
 for M1, M2 being non empty set st ( for H being ZF-formula st Free H = {} holds
( M1 |= H iff M2 |= H ) ) holds
for H being ZF-formula st Free H = {} holds
( M2 |= H iff M1 |= H ) ;
predM1 is_elementary_subsystem_of M2 means :: ZFREFLE1:def 3
( M1 c= M2 &amp; ( for H being ZF-formula
for v being Function of VAR,M1 holds
( M1,v |= H iff M2,M2 ! v |= H ) ) );
reflexivity
 for M1 being non empty set holds
( M1 c= M1 &amp; ( for H being ZF-formula
for v being Function of VAR,M1 holds
( M1,v |= H iff M1,M1 ! v |= H ) ) ) by ZF_LANG1:def_1;
end;

:: deftheorem  defines <==> ZFREFLE1:def_2_:_
 for M1, M2 being non empty set holds
( M1 <==> M2 iff for H being ZF-formula st Free H = {} holds
( M1 |= H iff M2 |= H ) );

:: deftheorem  defines is_elementary_subsystem_of ZFREFLE1:def_3_:_
 for M1, M2 being non empty set holds
( M1 is_elementary_subsystem_of M2 iff ( M1 c= M2 &amp; ( for H being ZF-formula
for v being Function of VAR,M1 holds
( M1,v |= H iff M2,M2 ! v |= H ) ) ) );

defpred S1[ set ] means ( $1 = the_axiom_of_extensionality or $1 = the_axiom_of_pairs or $1 = the_axiom_of_unions or $1 = the_axiom_of_infinity or $1 = the_axiom_of_power_sets or ex H being ZF-formula st
( {(x. 0),(x. 1),(x. 2)} misses Free H &amp; $1 = the_axiom_of_substitution_for H ) );

definition
func ZF-axioms  ->  set  means :Def4: :: ZFREFLE1:def 4
 for e being set holds
( e in it iff ( e in WFF &amp; ( e = the_axiom_of_extensionality or e = the_axiom_of_pairs or e = the_axiom_of_unions or e = the_axiom_of_infinity or e = the_axiom_of_power_sets or ex H being ZF-formula st
( {(x. 0),(x. 1),(x. 2)} misses Free H &amp; e = the_axiom_of_substitution_for H ) ) ) );
existence
 ex b1 being set st
for e being set holds
( e in b1 iff ( e in WFF &amp; ( e = the_axiom_of_extensionality or e = the_axiom_of_pairs or e = the_axiom_of_unions or e = the_axiom_of_infinity or e = the_axiom_of_power_sets or ex H being ZF-formula st
( {(x. 0),(x. 1),(x. 2)} misses Free H &amp; e = the_axiom_of_substitution_for H ) ) ) )
proofend;
uniqueness
 for b1, b2 being set st ( for e being set holds
( e in b1 iff ( e in WFF &amp; ( e = the_axiom_of_extensionality or e = the_axiom_of_pairs or e = the_axiom_of_unions or e = the_axiom_of_infinity or e = the_axiom_of_power_sets or ex H being ZF-formula st
( {(x. 0),(x. 1),(x. 2)} misses Free H &amp; e = the_axiom_of_substitution_for H ) ) ) ) ) &amp; ( for e being set holds
( e in b2 iff ( e in WFF &amp; ( e = the_axiom_of_extensionality or e = the_axiom_of_pairs or e = the_axiom_of_unions or e = the_axiom_of_infinity or e = the_axiom_of_power_sets or ex H being ZF-formula st
( {(x. 0),(x. 1),(x. 2)} misses Free H &amp; e = the_axiom_of_substitution_for H ) ) ) ) ) holds
b1 = b2
proofend;
end;

:: deftheorem Def4 defines ZF-axioms ZFREFLE1:def_4_:_
 for b1 being set holds
( b1 = ZF-axioms iff for e being set holds
( e in b1 iff ( e in WFF &amp; ( e = the_axiom_of_extensionality or e = the_axiom_of_pairs or e = the_axiom_of_unions or e = the_axiom_of_infinity or e = the_axiom_of_power_sets or ex H being ZF-formula st
( {(x. 0),(x. 1),(x. 2)} misses Free H &amp; e = the_axiom_of_substitution_for H ) ) ) ) );

definition
:: original:ZF-axioms
redefine func ZF-axioms  ->  Subset of WFF;
coherence
 ZF-axioms is Subset of WFF
proofend;
end;

theorem :: ZFREFLE1:1
for M being non empty set holds M |= {} WFF
proofend;

theorem :: ZFREFLE1:2
for M being non empty set
for F1, F2 being Subset of WFF st F1 c= F2 &amp; M |= F2 holds
M |= F1
proofend;

theorem :: ZFREFLE1:3
for M being non empty set
for F1, F2 being Subset of WFF st M |= F1 &amp; M |= F2 holds
M |= F1 \/ F2
proofend;

theorem Th4: :: ZFREFLE1:4
for M being non empty set st M is being_a_model_of_ZF holds
M |= ZF-axioms
proofend;

theorem Th5: :: ZFREFLE1:5
for M being non empty set st M |= ZF-axioms &amp; M is epsilon-transitive holds
M is being_a_model_of_ZF
proofend;

theorem Th6: :: ZFREFLE1:6
for H being ZF-formula ex S being ZF-formula st
( Free S = {} &amp; ( for M being non empty set holds
( M |= S iff M |= H ) ) )
proofend;

theorem :: ZFREFLE1:7
for M1, M2 being non empty set holds
( M1 <==> M2 iff for H being ZF-formula holds
( M1 |= H iff M2 |= H ) )
proofend;

theorem Th8: :: ZFREFLE1:8
for M1, M2 being non empty set holds
( M1 <==> M2 iff for F being Subset of WFF holds
( M1 |= F iff M2 |= F ) )
proofend;

theorem Th9: :: ZFREFLE1:9
for M1, M2 being non empty set st M1 is_elementary_subsystem_of M2 holds
M1 <==> M2
proofend;

theorem Th10: :: ZFREFLE1:10
for M1, M2 being non empty set st M1 is being_a_model_of_ZF &amp; M1 <==> M2 &amp; M2 is epsilon-transitive holds
M2 is being_a_model_of_ZF
proofend;

theorem Th11: :: ZFREFLE1:11
for f being Function
for W being Universe st dom f in W &amp; rng f c= W holds
rng f in W
proofend;

theorem :: ZFREFLE1:12
for X, Y being set st ( X,Y are_equipotent or card X = card Y ) holds
( bool X, bool Y are_equipotent &amp; card (bool X) = card (bool Y) )
proofend;

theorem Th13: :: ZFREFLE1:13
for W being Universe
for D being non empty set
for Phi being Function of D,(Funcs ((On W),(On W))) st card D in card W holds
ex phi being Ordinal-Sequence of W st
( phi is increasing &amp; phi is continuous &amp; phi . (0-element_of W) = 0-element_of W &amp; ( for a being Ordinal of W holds phi . (succ a) = sup ({(phi . a)} \/ ((uncurry Phi) .: [:D,{(succ a)}:])) ) &amp; ( for a being Ordinal of W st a <> 0-element_of W &amp; a is limit_ordinal holds
phi . a = sup (phi | a) ) )
proofend;

theorem Th14: :: ZFREFLE1:14
for C being Ordinal
for phi being Ordinal-Sequence st phi is increasing holds
C +^ phi is increasing
proofend;

theorem Th15: :: ZFREFLE1:15
for C, A being Ordinal
for xi being Ordinal-Sequence holds (C +^ xi) | A = C +^ (xi | A)
proofend;

theorem Th16: :: ZFREFLE1:16
for C being Ordinal
for phi being Ordinal-Sequence st phi is increasing &amp; phi is continuous holds
C +^ phi is continuous
proofend;

theorem :: ZFREFLE1:17
for e being set
for psi being Ordinal-Sequence st e in rng psi holds
e is Ordinal by ORDINAL2:48;

theorem :: ZFREFLE1:18
for psi being Ordinal-Sequence holds rng psi c= sup psi by ORDINAL2:49;

theorem :: ZFREFLE1:19
for A, B, C being Ordinal st A is_cofinal_with B &amp; B is_cofinal_with C holds
A is_cofinal_with C by ORDINAL4:37;

theorem Th20: :: ZFREFLE1:20
for A, B being Ordinal st A is_cofinal_with B holds
B c= A
proofend;

theorem :: ZFREFLE1:21
for A, B being Ordinal st A is_cofinal_with B &amp; B is_cofinal_with A holds
A = B
proofend;

theorem :: ZFREFLE1:22
for A being Ordinal
for psi being Ordinal-Sequence st dom psi <> {} &amp; dom psi is limit_ordinal &amp; psi is increasing &amp; A is_limes_of psi holds
A is_cofinal_with dom psi
proofend;

theorem :: ZFREFLE1:23
for A being Ordinal holds succ A is_cofinal_with 1 by ORDINAL3:73;

theorem :: ZFREFLE1:24
for A, B being Ordinal st A is_cofinal_with succ B holds
ex C being Ordinal st A = succ C
proofend;

theorem :: ZFREFLE1:25
for A, B being Ordinal st A is_cofinal_with B holds
( A is limit_ordinal iff B is limit_ordinal ) by ORDINAL4:38;

theorem :: ZFREFLE1:26
for A being Ordinal st A is_cofinal_with {} holds
A = {} by ORDINAL2:50;

theorem :: ZFREFLE1:27
for W being Universe
for a being Ordinal of W holds not On W is_cofinal_with a
proofend;

theorem Th28: :: ZFREFLE1:28
for W being Universe
for a being Ordinal of W
for phi being Ordinal-Sequence of W st omega in W &amp; phi is increasing &amp; phi is continuous holds
ex b being Ordinal of W st
( a in b &amp; phi . b = b )
proofend;

theorem Th29: :: ZFREFLE1:29
for W being Universe
for b being Ordinal of W
for phi being Ordinal-Sequence of W st omega in W &amp; phi is increasing &amp; phi is continuous holds
ex a being Ordinal of W st
( b in a &amp; phi . a = a &amp; a is_cofinal_with omega )
proofend;

theorem Th30: :: ZFREFLE1:30
for W being Universe
for L being DOMAIN-Sequence of W st omega in W &amp; ( for a, b being Ordinal of W st a in b holds
L . a c= L . b ) &amp; ( for a being Ordinal of W st a <> {} &amp; a is limit_ordinal holds
L . a = Union (L | a) ) holds
ex phi being Ordinal-Sequence of W st
( phi is increasing &amp; phi is continuous &amp; ( for a being Ordinal of W st phi . a = a &amp; {} <> a holds
L . a is_elementary_subsystem_of Union L ) )
proofend;

theorem Th31: :: ZFREFLE1:31
for W being Universe
for a being Ordinal of W holds Rank a in W
proofend;

theorem Th32: :: ZFREFLE1:32
for W being Universe
for a being Ordinal of W st a <> {} holds
Rank a is non empty Element of W
proofend;

theorem Th33: :: ZFREFLE1:33
for W being Universe st omega in W holds
ex phi being Ordinal-Sequence of W st
( phi is increasing &amp; phi is continuous &amp; ( for a being Ordinal of W
for M being non empty set st phi . a = a &amp; {} <> a &amp; M = Rank a holds
M is_elementary_subsystem_of W ) )
proofend;

theorem Th34: :: ZFREFLE1:34
for W being Universe
for a being Ordinal of W st omega in W holds
ex b being Ordinal of W ex M being non empty set st
( a in b &amp; M = Rank b &amp; M is_elementary_subsystem_of W )
proofend;

theorem Th35: :: ZFREFLE1:35
for W being Universe st omega in W holds
ex a being Ordinal of W ex M being non empty set st
( a is_cofinal_with omega &amp; M = Rank a &amp; M is_elementary_subsystem_of W )
proofend;

theorem :: ZFREFLE1:36
for W being Universe
for L being DOMAIN-Sequence of W st omega in W &amp; ( for a, b being Ordinal of W st a in b holds
L . a c= L . b ) &amp; ( for a being Ordinal of W st a <> {} &amp; a is limit_ordinal holds
L . a = Union (L | a) ) holds
ex phi being Ordinal-Sequence of W st
( phi is increasing &amp; phi is continuous &amp; ( for a being Ordinal of W st phi . a = a &amp; {} <> a holds
L . a <==> Union L ) )
proofend;

theorem :: ZFREFLE1:37
for W being Universe st omega in W holds
ex phi being Ordinal-Sequence of W st
( phi is increasing &amp; phi is continuous &amp; ( for a being Ordinal of W
for M being non empty set st phi . a = a &amp; {} <> a &amp; M = Rank a holds
M <==> W ) )
proofend;

theorem Th38: :: ZFREFLE1:38
for W being Universe
for a being Ordinal of W st omega in W holds
ex b being Ordinal of W ex M being non empty set st
( a in b &amp; M = Rank b &amp; M <==> W )
proofend;

theorem Th39: :: ZFREFLE1:39
for W being Universe st omega in W holds
ex a being Ordinal of W ex M being non empty set st
( a is_cofinal_with omega &amp; M = Rank a &amp; M <==> W )
proofend;

theorem :: ZFREFLE1:40
for W being Universe st omega in W holds
ex a being Ordinal of W ex M being non empty set st
( a is_cofinal_with omega &amp; M = Rank a &amp; M is being_a_model_of_ZF )
proofend;

theorem :: ZFREFLE1:41
for X being set
for W being Universe st omega in W &amp; X in W holds
ex M being non empty set st
( X in M &amp; M in W &amp; M is being_a_model_of_ZF )
proofend;