ZFREFLE1: Consequences of the Reflection Theorem

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

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;

pred M |= F means :: ZFREFLE1:def 1
for H being ZF-formula st H in F holds
M |= H;

end;

:: deftheorem defines |= ZFREFLE1:def 1 :

definition

let M1, M2 be non empty set ;

pred M1 <==> M2 means :: ZFREFLE1:def 2
for H being ZF-formula st Free H = {} holds
( M1 |= H iff M2 |= H );

reflexivity ;
symmetry ;

pred M1 is_elementary_subsystem_of M2 means :: ZFREFLE1:def 3
( M1 c= M2 & ( for H being ZF-formula
for v being Function of VAR,M1 holds
( M1,v |= H iff M2,M2 ! v |= H ) ) );

reflexivity by ZF_LANG1:def 1;

end;

:: deftheorem defines <==> ZFREFLE1:def 2 :

:: deftheorem defines is_elementary_subsystem_of ZFREFLE1:def 3 :

defpred S₁[ object ] 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 & $1 = the_axiom_of_substitution_for H ) );

definition

func ZF-axioms -> set means :Def4: :: ZFREFLE1:def 4
for e being object holds
( e in it iff ( e in WFF & ( 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 & e = the_axiom_of_substitution_for H ) ) ) );

existence

proof end;

uniqueness

proof end;

end;

:: deftheorem Def4 defines ZF-axioms ZFREFLE1:def 4 :

definition

:: original: ZF-axioms
redefine func ZF-axioms -> Subset of WFF;
coherence

proof end;

end;

theorem :: ZFREFLE1:1

for M being non empty set holds M |= {} WFF ;

theorem :: ZFREFLE1:2

for M being non empty set
for F1, F2 being Subset of WFF st F1 c= F2 & M |= F2 holds
M |= F1 ;

theorem :: ZFREFLE1:3

for M being non empty set
for F1, F2 being Subset of WFF st M |= F1 & M |= F2 holds
M |= F1 \/ F2

proof end;

theorem Th4: :: ZFREFLE1:4

for M being non empty set st M is being_a_model_of_ZF holds
M |= ZF-axioms

proof end;

theorem Th5: :: ZFREFLE1:5

for M being non empty set st M |= ZF-axioms & M is epsilon-transitive holds
M is being_a_model_of_ZF

proof end;

theorem Th6: :: ZFREFLE1:6

for H being ZF-formula ex S being ZF-formula st
( Free S = {} & ( for M being non empty set holds
( M |= S iff M |= H ) ) )

proof end;

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 ) )

proof end;

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 ) )

proof end;

theorem Th9: :: ZFREFLE1:9

for M1, M2 being non empty set st M1 is_elementary_subsystem_of M2 holds
M1 <==> M2

proof end;

theorem Th10: :: ZFREFLE1:10

for M1, M2 being non empty set st M1 is being_a_model_of_ZF & M1 <==> M2 & M2 is epsilon-transitive holds
M2 is being_a_model_of_ZF

proof end;

theorem Th11: :: ZFREFLE1:11

for f being Function
for W being Universe st dom f in W & rng f c= W holds
rng f in W

proof end;

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 & card (bool X) = card (bool Y) )

proof end;

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 & phi is continuous & phi . (0-element_of W) = 0-element_of W & ( for a being Ordinal of W holds phi . (succ a) = sup ({(phi . a)} \/ ((uncurry Phi) .: [:D,{(succ a)}:])) ) & ( for a being Ordinal of W st a <> 0-element_of W & a is limit_ordinal holds
phi . a = sup (phi | a) ) )

proof end;

theorem Th14: :: ZFREFLE1:14

for C being Ordinal
for phi being Ordinal-Sequence st phi is increasing holds
C +^ phi is increasing

proof end;

theorem Th15: :: ZFREFLE1:15

for A, C being Ordinal
for xi being Ordinal-Sequence holds (C +^ xi) | A = C +^ (xi | A)

proof end;

theorem Th16: :: ZFREFLE1:16

for C being Ordinal
for phi being Ordinal-Sequence st phi is increasing & phi is continuous holds
C +^ phi is continuous

proof end;

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 & 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

proof end;

theorem :: ZFREFLE1:21

for A, B being Ordinal st A is_cofinal_with B & B is_cofinal_with A holds
A = B by Th20;

theorem :: ZFREFLE1:22

for A being Ordinal
for psi being Ordinal-Sequence st dom psi <> {} & dom psi is limit_ordinal & psi is increasing & A is_limes_of psi holds
A is_cofinal_with dom psi

proof end;

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

proof end;

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

proof end;

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 & phi is increasing & phi is continuous holds
ex b being Ordinal of W st
( a in b & phi . b = b )

proof end;

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 & phi is increasing & phi is continuous holds
ex a being Ordinal of W st
( b in a & phi . a = a & a is_cofinal_with omega )

proof end;

theorem Th30: :: ZFREFLE1:30

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

proof end;

theorem Th31: :: ZFREFLE1:31

for W being Universe
for a being Ordinal of W holds Rank a in W

proof end;

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 by Th31, CLASSES1:36, ORDINAL3:8;

theorem Th33: :: ZFREFLE1:33

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

proof end;

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 & M = Rank b & M is_elementary_subsystem_of W )

proof end;

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 & M = Rank a & M is_elementary_subsystem_of W )

proof end;

theorem :: ZFREFLE1:36

proof end;

theorem :: ZFREFLE1:37

proof end;

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 & M = Rank b & M <==> W )

proof end;

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 & M = Rank a & M <==> W )

proof end;

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 & M = Rank a & M is being_a_model_of_ZF )

proof end;

theorem :: ZFREFLE1:41

for X being set
for W being Universe st omega in W & X in W holds
ex M being non empty set st
( X in M & M in W & M is being_a_model_of_ZF )

proof end;