Copyright (c) 1998 Association of Mizar Users
environ vocabulary ORDERS_1, SETFAM_1, WAYBEL_0, SUBSET_1, BOOLE, PRE_TOPC, FUNCT_1, RELAT_1, TARSKI, CANTOR_1, WAYBEL_9, REALSET1, RELAT_2, NATTRA_1, FINSET_1, BHSP_3, LATTICES, FUNCOP_1, YELLOW_0, ORDINAL2, FUNCT_3, SEQM_3, CAT_1, WELLORD1, OPPCAT_1, QUANTAL1, FUNCT_2, FRAENKEL, CONNSP_2, TOPS_1, LATTICE3, BORSUK_1, PRELAMB, WAYBEL11, PROB_1, YELLOW_6, YELLOW_9, RLVECT_3; notation TARSKI, XBOOLE_0, ZFMISC_1, SUBSET_1, SETFAM_1, RELAT_1, FUNCT_1, FINSET_1, MCART_1, STRUCT_0, RELAT_2, RELSET_1, REALSET1, FRAENKEL, FUNCT_2, WELLORD1, GRCAT_1, ORDERS_1, LATTICE3, ORDERS_3, YELLOW_0, WAYBEL_0, TDLAT_3, GROUP_1, PRE_TOPC, TOPS_1, TOPS_2, CONNSP_2, YELLOW_6, YELLOW_7, WAYBEL_9, WAYBEL11, CANTOR_1, BORSUK_1; constructors RELAT_2, WAYBEL11, CANTOR_1, TOPS_1, TDLAT_3, GROUP_1, TOLER_1, WAYBEL_3, WAYBEL_5, ORDERS_3, WAYBEL_1, GRCAT_1, TOPS_2, BORSUK_1, LATTICE3, PARTFUN1; clusters TDLAT_3, FRAENKEL, YELLOW_6, YELLOW_2, FINSET_1, RELSET_1, BORSUK_1, STRUCT_0, TEX_1, YELLOW_0, LATTICE3, WAYBEL_0, WAYBEL_7, WAYBEL_9, WAYBEL11, SUBSET_1, RLVECT_2, FUNCT_2, SETFAM_1, XBOOLE_0, ZFMISC_1, PARTFUN1; requirements BOOLE, SUBSET; definitions TARSKI, STRUCT_0, PRE_TOPC, CANTOR_1, ORDERS_1, GROUP_1, YELLOW_0, WAYBEL_0, WAYBEL_1, TOPS_2, WAYBEL11, XBOOLE_0; theorems STRUCT_0, SETFAM_1, FRAENKEL, ENUMSET1, REALSET1, PRE_TOPC, CANTOR_1, YELLOW_0, WAYBEL_0, FUNCT_1, RELAT_1, FUNCT_2, TEX_1, ORDERS_1, ZFMISC_1, TARSKI, FINSET_1, FUNCOP_1, RELSET_1, TDLAT_3, GRCAT_1, BORSUK_1, YELLOW_6, YELLOW_8, TOPS_1, CONNSP_2, WAYBEL_9, WAYBEL11, TOPS_2, LATTICE3, ORDERS_2, WELLORD1, XBOOLE_0, XBOOLE_1; schemes FRAENKEL, COMPTS_1; begin :: Subsets as nets scheme FraenkelInvolution {A() -> non empty set, X,Y() -> Subset of A(), F(set) -> Element of A()}: X() = {F(a) where a is Element of A(): a in Y()} provided A1: Y() = {F(a) where a is Element of A(): a in X()} and A2: for a being Element of A() holds F(F(a)) = a proof hereby let x be set; assume A3: x in X(); then reconsider a = x as Element of A(); F(a) in Y() & F(F(a)) = a by A1,A2,A3; hence x in {F(b) where b is Element of A(): b in Y()}; end; let x be set; assume x in {F(b) where b is Element of A(): b in Y()}; then consider b being Element of A() such that A4: x = F(b) & b in Y(); consider a being Element of A() such that A5: b = F(a) & a in X() by A1,A4; thus x in X() by A2,A4,A5; end; scheme FraenkelComplement1 {A() -> non empty RelStr, X() -> Subset-Family of A(), Y() -> set, F(set) -> Subset of A()}: COMPLEMENT X() = {F(a)` where a is Element of A(): a in Y()} provided A1: X() = {F(a) where a is Element of A(): a in Y()} proof hereby let x be set; assume A2: x in COMPLEMENT X(); then reconsider y = x as Subset of A(); y` in X() by A2,YELLOW_8:13; then consider b being Element of A() such that A3: y` = F(b) & b in Y() by A1; x = y`` & F(b) = F(b)``; hence x in {F(a)` where a is Element of A(): a in Y()} by A3; end; let x be set; assume x in {F(a)` where a is Element of A(): a in Y()}; then consider a being Element of A() such that A4: x = F(a)` & a in Y(); F(a) in X() by A1,A4; hence x in COMPLEMENT X() by A4,YELLOW_8:14; end; scheme FraenkelComplement2 {A() -> non empty RelStr, X() -> Subset-Family of A(), Y() -> set, F(set) -> Subset of A()}: COMPLEMENT X() = {F(a) where a is Element of A(): a in Y()} provided A1: X() = {F(a)` where a is Element of A(): a in Y()} proof hereby let x be set; assume A2: x in COMPLEMENT X(); then reconsider y = x as Subset of A(); y` in X() by A2,YELLOW_8:13; then consider b being Element of A() such that A3: y` = F(b)` & b in Y() by A1; x = y`` & F(b) = F(b)``; hence x in {F(a) where a is Element of A(): a in Y()} by A3; end; let x be set; assume x in {F(a) where a is Element of A(): a in Y()}; then consider a being Element of A() such that A4: x = F(a) & a in Y(); F(a)` in X() by A1,A4; hence x in COMPLEMENT X() by A4,YELLOW_8:13; end; theorem for R being non empty RelStr, x,y being Element of R holds y in (uparrow x)` iff not x <= y proof let R be non empty RelStr, x,y be Element of R; [#]R = the carrier of R by PRE_TOPC:12; then (uparrow x)` = (the carrier of R) \ uparrow x by PRE_TOPC:17; then y in (uparrow x)` iff not y in uparrow x by XBOOLE_0:def 4; hence y in (uparrow x)` iff not x <= y by WAYBEL_0:18; end; ABC {A() -> TopSpace, F(set) -> set, f() -> Function, P[set]}: f()"union {F(x) where x is Subset of A(): P[x]} = union {f()"(F(y)) where y is Subset of A(): P[y]} proof set X = {F(x) where x is Subset of A(): P[x]}; set Y = {f()"(F(y)) where y is Subset of A(): P[y]}; hereby let x be set; assume x in f()"union X; then A1: x in dom f() & f().x in union X by FUNCT_1:def 13; then consider y being set such that A2: f().x in y & y in X by TARSKI:def 4; consider a being Subset of A() such that A3: y = F(a) & P[a] by A2; x in f()"F(a) & f()"F(a) in Y by A1,A2,A3,FUNCT_1:def 13; hence x in union Y by TARSKI:def 4; end; let x be set; assume x in union Y; then consider y being set such that A4: x in y & y in Y by TARSKI:def 4; consider a being Subset of A() such that A5: y = f()"F(a) & P[a] by A4; f().x in F(a) & F(a) in X by A4,A5,FUNCT_1:def 13; then f().x in union X & x in dom f() by A4,A5,FUNCT_1:def 13,TARSKI:def 4; hence thesis by FUNCT_1:def 13; end; theorem Th2: for S being 1-sorted, T being non empty 1-sorted, f being map of S,T for X being Subset of T holds (f"X)` = f"X` proof let S be 1-sorted, T be non empty 1-sorted, f be map of S,T; let X be Subset of T; A1: the carrier of T = [#]T & the carrier of S = [#]S by PRE_TOPC:12; hence (f"X)` = (the carrier of S)\(f"X) by PRE_TOPC:17 .= f"(the carrier of T)\(f"X) by FUNCT_2:48 .= f"((the carrier of T)\X) by FUNCT_1:138 .= f"X` by A1,PRE_TOPC:17; end; theorem Th3: for T being 1-sorted, F being Subset-Family of T holds COMPLEMENT F = {a` where a is Subset of T: a in F} proof let T be 1-sorted, F be Subset-Family of T; set X = {a` where a is Subset of T: a in F}; hereby let x be set; assume A1: x in COMPLEMENT F; then reconsider P = x as Subset of T; P` in F & P`` = P by A1,YELLOW_8:13; hence x in X; end; let x be set; assume x in X; then ex P being Subset of T st x = P` & P in F; hence thesis by YELLOW_8:14; end; theorem Th4: for R being non empty RelStr for F being Subset of R holds uparrow F = union {uparrow x where x is Element of R: x in F} & downarrow F = union {downarrow x where x is Element of R: x in F} proof let R be non empty RelStr, F be Subset of R; A1: uparrow F = {x where x is Element of R: ex y being Element of R st x >= y & y in F} by WAYBEL_0:15; A2: downarrow F = {x where x is Element of R: ex y being Element of R st x <= y & y in F} by WAYBEL_0:14; hereby let a be set; assume a in uparrow F; then consider x being Element of R such that A3: a = x & ex y being Element of R st x >= y & y in F by A1; consider y being Element of R such that A4: x >= y & y in F by A3; uparrow y in {uparrow z where z is Element of R: z in F} & x in uparrow y by A4,WAYBEL_0:18; hence a in union {uparrow z where z is Element of R: z in F} by A3,TARSKI:def 4; end; hereby let a be set; assume a in union {uparrow x where x is Element of R: x in F}; then consider X being set such that A5: a in X & X in {uparrow x where x is Element of R: x in F} by TARSKI:def 4; consider x being Element of R such that A6: X = uparrow x & x in F by A5; reconsider y = a as Element of R by A5,A6; y >= x by A5,A6,WAYBEL_0:18; hence a in uparrow F by A1,A6; end; hereby let a be set; assume a in downarrow F; then consider x being Element of R such that A7: a = x & ex y being Element of R st x <= y & y in F by A2; consider y being Element of R such that A8: x <= y & y in F by A7; downarrow y in {downarrow z where z is Element of R: z in F} & x in downarrow y by A8,WAYBEL_0:17; hence a in union {downarrow z where z is Element of R: z in F} by A7,TARSKI:def 4; end; hereby let a be set; assume a in union {downarrow x where x is Element of R: x in F}; then consider X being set such that A9: a in X & X in {downarrow x where x is Element of R: x in F} by TARSKI:def 4; consider x being Element of R such that A10: X = downarrow x & x in F by A9; reconsider y = a as Element of R by A9,A10; y <= x by A9,A10,WAYBEL_0:17; hence a in downarrow F by A2,A10; end; end; theorem for R being non empty RelStr for A being Subset-Family of R, F being Subset of R st A = {(uparrow x)` where x is Element of R: x in F} holds Intersect A = (uparrow F)` proof let R be non empty RelStr; deffunc F(Element of R) = uparrow $1; let A be Subset-Family of R, F be Subset of R such that A1: A = {F(x)` where x is Element of R: x in F}; A2: COMPLEMENT A = {F(x) where x is Element of R: x in F} from FraenkelComplement2(A1); reconsider C = COMPLEMENT A as Subset-Family of R; COMPLEMENT C = A; hence Intersect A = (union C)` by YELLOW_8:15 .= (uparrow F)` by A2,Th4; end; Lm1: for tau being Subset-Family of {0}, r being Relation of {0} st tau = {{},{0}} & r = {[0,0]} holds TopRelStr (#{0},r,tau#) is trivial reflexive non empty discrete finite proof let tau be Subset-Family of {0}, r be Relation of {0} such that A1: tau = {{},{0}} and A2: r = {[0,0]}; set T = TopRelStr (#{0},r,tau#); thus T is trivial; thus T is reflexive proof let x be Element of T; x = 0 by TARSKI:def 1; then [x,x] in {[0,0]} by TARSKI:def 1; hence x <= x by A2,ORDERS_1:def 9; end; thus T is non empty; the topology of T = bool the carrier of T by A1,ZFMISC_1:30; hence T is discrete by TDLAT_3:def 1; thus the carrier of T is finite; end; definition cluster strict trivial reflexive non empty discrete finite TopRelStr; existence proof {{},{0}} = bool {0} & bool {0} c= bool {0} by ZFMISC_1:30; then reconsider tau = {{},{0}} as Subset of bool {0}; reconsider tau as Subset-Family of {0} by SETFAM_1:def 7; 0 in {0} by TARSKI:def 1; then reconsider r = {[0,0]} as Relation of {0} by RELSET_1:8; take TopRelStr (#{0},r,tau#); thus thesis by Lm1; end; end; definition cluster strict complete trivial TopLattice; existence proof consider T being strict trivial reflexive non empty discrete finite TopRelStr; take T; thus thesis; end; end; definition let S be non empty RelStr, T be upper-bounded non empty reflexive antisymmetric RelStr; cluster infs-preserving map of S,T; existence proof take f = S --> Top T; let A be Subset of S; assume ex_inf_of A,S; A1: f = (the carrier of S) --> Top T by BORSUK_1:def 3; then rng f = {Top T} & f.:A c= rng f by FUNCOP_1:14,RELAT_1:144; then A2: f.:A = {} or f.:A = {Top T} by ZFMISC_1:39; hence ex_inf_of f.:A,T by YELLOW_0:38,43; thus inf (f.:A) = Top T by A2,YELLOW_0:39,def 12 .= f.inf A by A1,FUNCOP_1:13; end; end; definition let S be non empty RelStr, T be lower-bounded non empty reflexive antisymmetric RelStr; cluster sups-preserving map of S,T; existence proof take f = S --> Bottom T; let A be Subset of S; assume ex_sup_of A,S; A1: f = (the carrier of S) --> Bottom T by BORSUK_1:def 3; then rng f = {Bottom T} & f.:A c= rng f by FUNCOP_1:14,RELAT_1:144; then A2: f.:A = {} or f.:A = {Bottom T} by ZFMISC_1:39; hence ex_sup_of f.:A,T by YELLOW_0:38,42; thus sup (f.:A) = Bottom T by A2,YELLOW_0:39,def 11 .= f.sup A by A1,FUNCOP_1:13; end; end; definition let R,S be 1-sorted; assume A1: the carrier of S c= the carrier of R; dom id the carrier of S = the carrier of S & rng id the carrier of S = the carrier of S by RELAT_1:71; then A2: id the carrier of S is Function of the carrier of S, the carrier of R by A1,FUNCT_2:4; func incl(S,R) -> map of S,R equals: Def1: id the carrier of S; coherence by A2; end; definition let R be non empty RelStr; let S be non empty SubRelStr of R; cluster incl(S,R) -> monotone; coherence proof let x,y be Element of S; reconsider a = x, b = y as Element of R by YELLOW_0:59; the carrier of S c= the carrier of R by YELLOW_0:def 13; then incl(S,R) = id the carrier of S by Def1; then incl(S,R).x = a & incl(S,R).y = b by FUNCT_1:35; hence thesis by YELLOW_0:60; end; end; definition let R be non empty RelStr, X be non empty Subset of R; func X+id -> strict non empty NetStr over R equals: Def2: (incl(subrelstr X, R))*((subrelstr X)+id); coherence; func X opp+id -> strict non empty NetStr over R equals: Def3: (incl(subrelstr X, R))*((subrelstr X)opp+id); coherence; end; theorem for R being non empty RelStr, X being non empty Subset of R holds the carrier of X+id = X & X+id is full SubRelStr of R & for x being Element of X+id holds X+id.x = x proof let R be non empty RelStr, X be non empty Subset of R; X+id = (incl(subrelstr X, R))*((subrelstr X)+id) by Def2; then A1: the RelStr of X+id = the RelStr of (subrelstr X)+id & the mapping of X+id = incl(subrelstr X, R)*the mapping of (subrelstr X)+id by WAYBEL_9:def 8; A2: the carrier of subrelstr X = X by YELLOW_0:def 15; hence A3: the carrier of X+id = X by A1,WAYBEL_9:def 5; A4: the RelStr of (subrelstr X)+id = subrelstr X by WAYBEL_9:def 5; the InternalRel of subrelstr X c= the InternalRel of R by YELLOW_0:def 13; then reconsider S = X+id as SubRelStr of R by A1,A2,A4,YELLOW_0:def 13; S is full proof thus the InternalRel of S = (the InternalRel of R)|_2 the carrier of S by A1,A4,YELLOW_0:def 14; end; hence X+id is full SubRelStr of R; let x be Element of X+id; id subrelstr X = id X by A2,GRCAT_1:def 11; then the mapping of (subrelstr X)+id = id X & dom id X = X & incl(subrelstr X, R) = id X by A2,Def1,RELAT_1:71,WAYBEL_9:def 5; then the mapping of X+id = id X by A1,FUNCT_1:42; hence X+id.x = (id X).x by WAYBEL_0:def 8 .= x by A3,FUNCT_1:35; end; theorem for R being non empty RelStr, X being non empty Subset of R holds the carrier of X opp+id = X & X opp+id is full SubRelStr of R opp & for x being Element of X opp+id holds X opp+id.x = x proof let R be non empty RelStr, X be non empty Subset of R; X opp+id = (incl(subrelstr X, R))*((subrelstr X)opp+id) by Def3; then A1: the RelStr of X opp+id = the RelStr of (subrelstr X)opp+id & the mapping of X opp+id = incl(subrelstr X, R)*the mapping of (subrelstr X) opp+id by WAYBEL_9:def 8; A2: the carrier of subrelstr X = X by YELLOW_0:def 15; A3: the carrier of (subrelstr X) opp+id = the carrier of subrelstr X & the RelStr of (subrelstr X) opp+id = (subrelstr X) opp & the InternalRel of (subrelstr X) opp+id = (the InternalRel of subrelstr X)~ by WAYBEL_9:11,def 6; thus the carrier of X opp+id = X by A1,A2,WAYBEL_9:def 6; A4: R opp = RelStr(#the carrier of R, (the InternalRel of R)~#) by LATTICE3:def 5; the InternalRel of subrelstr X = (the InternalRel of R)|_2 X by A2,YELLOW_0:def 14; then A5: the InternalRel of (subrelstr X)opp+id = (the InternalRel of R)~|_2 X by A3,ORDERS_2:95; then the InternalRel of (subrelstr X)opp+id c= the InternalRel of R opp by A4,WELLORD1:15; then reconsider S = X opp+id as SubRelStr of R opp by A1,A2,A3,A4,YELLOW_0: def 13; S is full proof thus the InternalRel of S = (the InternalRel of R opp)|_2 the carrier of S by A1,A3,A4,A5, YELLOW_0:def 15; end; hence X opp+id is full SubRelStr of R opp; let x be Element of X opp+id; id subrelstr X = id X by A2,GRCAT_1:def 11; then the mapping of (subrelstr X)opp+id = id X & dom id X = X & incl(subrelstr X, R) = id X by A2,Def1,RELAT_1:71,WAYBEL_9:def 6; then the mapping of X opp+id = id X by A1,FUNCT_1:42; hence X opp+id.x = (id X).x by WAYBEL_0:def 8 .= x by A1,A2,A3,FUNCT_1:35; end; definition let R be non empty reflexive RelStr; let X be non empty Subset of R; cluster X +id -> reflexive; coherence proof X+id = (incl(subrelstr X, R))*((subrelstr X)+id) by Def2; hence thesis; end; cluster X opp+id -> reflexive; coherence proof X opp+id = (incl(subrelstr X, R))*((subrelstr X) opp+id) by Def3; hence thesis; end; end; definition let R be non empty transitive RelStr; let X be non empty Subset of R; cluster X +id -> transitive; coherence proof X+id = (incl(subrelstr X, R))*((subrelstr X)+id) by Def2; hence thesis; end; cluster X opp+id -> transitive; coherence proof X opp+id = (incl(subrelstr X, R))*((subrelstr X) opp+id) by Def3; hence thesis; end; end; definition let R be non empty reflexive RelStr; let I be directed Subset of R; cluster subrelstr I -> directed; coherence proof let x,y be Element of subrelstr I; A1: [#]subrelstr I = the carrier of subrelstr I by PRE_TOPC:12; A2: the carrier of subrelstr I = I by YELLOW_0:def 15; assume A3: x in [#]subrelstr I & y in [#]subrelstr I; then reconsider a = x, b = y as Element of R by A1,A2; consider c being Element of R such that A4: c in I & a <= c & b <= c by A2,A3,WAYBEL_0:def 1; reconsider z = c as Element of subrelstr I by A2,A4; take z; thus thesis by A1,A3,A4,YELLOW_0:61; end; end; definition let R be non empty reflexive RelStr; let I be directed non empty Subset of R; cluster I+id -> directed; coherence proof I+id = (incl(subrelstr I, R))*((subrelstr I)+id) by Def2; hence thesis; end; end; definition let R be non empty reflexive RelStr; let F be filtered non empty Subset of R; cluster (subrelstr F) opp+id -> directed; coherence proof set I = F, A = (subrelstr I)opp+id; let x,y be Element of (subrelstr I)opp+id; A1: [#]A = the carrier of A by PRE_TOPC:12; A2: the carrier of subrelstr I = I by YELLOW_0:def 15; A3: the carrier of A = the carrier of subrelstr F by WAYBEL_9:def 6; assume x in [#]A & y in [#]A; then reconsider a = x, b = y as Element of R by A1,A2,A3; A4: the RelStr of A = the RelStr of (subrelstr F) opp by WAYBEL_9:11; consider c being Element of R such that A5: c in I & a >= c & b >= c by A2,A3,WAYBEL_0:def 2; reconsider a1 = x, b1 = y, c1 = c as Element of subrelstr F by A2,A3,A5; reconsider z = c as Element of A by A2,A3,A5; take z; A6: a1~ = a1 & b1~ = b1 & c1~ = c1 by LATTICE3:def 6; a1 >= c1 & b1 >= c1 by A5,YELLOW_0:61; then a1~ <= c1~ & b1~ <= c1~ by LATTICE3:9; hence thesis by A1,A4,A6,YELLOW_0:1; end; end; definition let R be non empty reflexive RelStr; let F be filtered non empty Subset of R; cluster F opp+id -> directed; coherence proof F opp+id = (incl(subrelstr F, R))*((subrelstr F) opp+id) by Def3; hence thesis; end; end; begin :: Operations on families of open sets theorem Th8: for T being TopSpace st T is empty holds the topology of T = {{}} proof let T1 be TopSpace; assume T1 is empty; then the carrier of T1 = {} by STRUCT_0:def 1; then the topology of T1 c= {{}} & {} in the topology of T1 by PRE_TOPC:def 1,ZFMISC_1:1; hence thesis by ZFMISC_1:39; end; theorem Th9: for T being trivial non empty TopSpace holds the topology of T = bool the carrier of T & for x being Point of T holds the carrier of T = {x} & the topology of T = {{},{x}} proof let T be trivial non empty TopSpace; thus the topology of T c= bool the carrier of T; consider x being Point of T such that A1: the carrier of T = {x} by TEX_1:def 1; {} in the topology of T & the carrier of T in the topology of T by PRE_TOPC:5,def 1; then A2: {{},the carrier of T} c= the topology of T & bool {x} = {{},{x}} by ZFMISC_1:30,38; hence bool the carrier of T c= the topology of T by A1; let a be Point of T; a = x by REALSET1:def 20; hence the carrier of T = {a} & the topology of T c= {{},{a}} & {{},{a}} c= the topology of T by A1,A2; end; theorem for T being trivial non empty TopSpace holds {the carrier of T} is Basis of T & {} is prebasis of T & {{}} is prebasis of T proof let T be trivial non empty TopSpace; set BB = {the carrier of T}; the carrier of T c= the carrier of T; then A1: the topology of T = bool the carrier of T & the carrier of T in bool the carrier of T by Th9; then BB c= the topology of T by ZFMISC_1:37; then BB is Subset-Family of T by A1,SETFAM_1:def 7; then reconsider BB as Subset-Family of T; consider x being Element of T; A2: the topology of T = {{}, {x}} & the carrier of T = {x} by Th9; A3: {} c= bool the carrier of T & {} c= BB & {} c= the carrier of T by XBOOLE_1:2; then {} is Subset-Family of T by SETFAM_1:def 7; then reconsider C = {} as Subset-Family of T; the topology of T c= UniCl BB proof let a be set; assume a in the topology of T; then A4: a = {x} & union {{x}} = {x} & BB c= BB & BB c= bool the carrier of T or a = {} by A2,TARSKI:def 2,ZFMISC_1:31; {{x}} is Subset of bool the carrier of T by ZFMISC_1:37; then {{x}} is Subset-Family of T by SETFAM_1:def 7; then {{x}} is Subset-Family of T & C is Subset-Family of T; hence thesis by A2,A3,A4,CANTOR_1:def 1,ZFMISC_1:2; end; hence A5: {the carrier of T} is Basis of T by A1,CANTOR_1:def 2; A6: {} c= the topology of T & C c= C & C is finite by XBOOLE_1:2; BB c= FinMeetCl C proof let x be set; assume x in BB; then x = the carrier of T by TARSKI:def 1; then Intersect C = x by CANTOR_1:def 3; hence thesis by CANTOR_1:def 4; end; hence {} is prebasis of T by A5,A6,CANTOR_1:def 5; {} c= the carrier of T by XBOOLE_1:2; then {{}} is Subset of bool the carrier of T by ZFMISC_1:37; then {{}} is Subset-Family of T by SETFAM_1:def 7; then reconsider D = {{}} as Subset-Family of T; A7: D c= the topology of T by A2,ZFMISC_1:12; BB c= FinMeetCl D proof let x be set; assume x in BB; then x = the carrier of T & Intersect C = the carrier of T & C c= D by CANTOR_1:def 3,TARSKI:def 1,XBOOLE_1:2; hence thesis by CANTOR_1:def 4; end; hence {{}} is prebasis of T by A5,A7,CANTOR_1:def 5; end; theorem Th11: for X,Y being set, A being Subset-Family of X st A = {Y} holds FinMeetCl A = {Y,X} & UniCl A = {Y,{}} proof let X,Z be set, A be Subset-Family of X such that A1: A = {Z}; thus FinMeetCl A c= {Z,X} proof let x be set; assume x in FinMeetCl A; then consider Y being Subset-Family of X such that A2: Y c= A & Y is finite & x = Intersect Y by CANTOR_1:def 4; Y = {} or Y = {Z} by A1,A2,ZFMISC_1:39; then x = X or x = meet {Z} by A2,CANTOR_1:def 3; then x = X or x = Z by SETFAM_1:11; hence thesis by TARSKI:def 2; end; reconsider E = {} as Subset of bool X by XBOOLE_1:2; reconsider E as Subset-Family of X by SETFAM_1:def 7; hereby let x be set; assume x in {Z,X}; then x = X or x = Z by TARSKI:def 2; then x = X or x = meet {Z} by SETFAM_1:11; then x = Intersect E & E c= A or x = Intersect A & A c= A by A1,CANTOR_1:def 3,XBOOLE_1:2; hence x in FinMeetCl A by A1,CANTOR_1:def 4; end; hereby let x be set; assume x in UniCl A; then consider Y being Subset-Family of X such that A3: Y c= A & x = union Y by CANTOR_1:def 1; Y = {} or Y = {Z} by A1,A3,ZFMISC_1:39; then x = {} or x = Z by A3,ZFMISC_1:2,31; hence x in {Z,{}} by TARSKI:def 2; end; let x be set; assume x in {Z,{}}; then x = {} or x = Z by TARSKI:def 2; then x = union E & E c= A or x = union A & A c= A by A1,XBOOLE_1:2,ZFMISC_1 :2,31 ; hence thesis by CANTOR_1:def 1; end; theorem for X being set, A,B being Subset-Family of X st A = B \/ {X} or B = A \ {X} holds Intersect A = Intersect B proof let X be set, A,B be Subset-Family of X; assume A1: A = B \/ {X} or B = A \ {X}; hereby let x be set; assume A2: x in Intersect A; now let y be set; assume y in B; then y in A by A1,XBOOLE_0:def 2,def 4; hence x in y by A2,CANTOR_1:10; end; hence x in Intersect B by A2,CANTOR_1:10; end; let x be set; assume A3: x in Intersect B; now let y be set; assume y in A; then y in B & not y in {X} or y in {X} by A1,XBOOLE_0:def 2,def 4; then y in B or y = X by TARSKI:def 1; hence x in y by A3,CANTOR_1:10; end; hence thesis by A3,CANTOR_1:10; end; theorem for X being set, A,B being Subset-Family of X st A = B \/ {X} or B = A \ {X} holds FinMeetCl A = FinMeetCl B proof let X be set, A,B be Subset-Family of X; assume A1: A = B \/ {X} or B = A \ {X}; X in FinMeetCl B by CANTOR_1:8; then {X} c= FinMeetCl B & B c= FinMeetCl B & (A \ {X}) \/ {X} = A \/ {X} by CANTOR_1:4,XBOOLE_1:39,ZFMISC_1:37; then A c= B \/ {X} & B \/ {X} c= FinMeetCl B by A1,XBOOLE_1:7,8 ; then A c= FinMeetCl B by XBOOLE_1:1; then FinMeetCl A c= FinMeetCl FinMeetCl B by CANTOR_1:16; hence FinMeetCl A c= FinMeetCl B by CANTOR_1:13; B c= A by A1,XBOOLE_1:7,36; hence thesis by CANTOR_1:16; end; theorem Th14: for X being set, A being Subset-Family of X st X in A for x being set holds x in FinMeetCl A iff ex Y being finite non empty Subset-Family of X st Y c= A & x = Intersect Y proof let X be set, A be Subset-Family of X; assume A1: X in A; then A2: {X} c= A by ZFMISC_1:37; reconsider Z = {X} as finite non empty Subset of bool X by A1,ZFMISC_1:37; reconsider Z as finite non empty Subset-Family of X by SETFAM_1:def 7; A3: Intersect Z = meet Z by CANTOR_1:def 3 .= X by SETFAM_1:11; let x be set; hereby assume x in FinMeetCl A; then consider Y being Subset-Family of X such that A4: Y c= A & Y is finite & x = Intersect Y by CANTOR_1:def 4; per cases; suppose Y = {}; then x = X by A4,CANTOR_1:def 3; hence ex Y being finite non empty Subset-Family of X st Y c= A & x = Intersect Y by A2,A3; suppose Y <> {}; hence ex Y being finite non empty Subset-Family of X st Y c= A & x = Intersect Y by A4; end; thus thesis by CANTOR_1:def 4; end; theorem Th15: for X being set, A being Subset-Family of X holds UniCl UniCl A = UniCl A proof let X be set, A be Subset-Family of X; hereby let x be set; assume x in UniCl UniCl A; then consider Y being Subset-Family of X such that A1: Y c= UniCl A & x = union Y by CANTOR_1:def 1; set Z = {y where y is Subset of X: y in A & y c= x}; Z c= bool X proof let a be set; assume a in Z; then ex y being Subset of X st a = y & y in A & y c= x; hence thesis; end; then reconsider Z as Subset-Family of X by SETFAM_1:def 7; A2: x = union Z proof hereby let a be set; assume a in x; then consider s being set such that A3: a in s & s in Y by A1,TARSKI:def 4; consider t being Subset-Family of X such that A4: t c= A & s = union t by A1,A3,CANTOR_1:def 1; consider u being set such that A5: a in u & u in t by A3,A4,TARSKI:def 4; reconsider u as Subset of X by A5; u c= s & s c= x by A1,A3,A4,A5,ZFMISC_1:92; then u c= x by XBOOLE_1:1; then u in Z by A4,A5; hence a in union Z by A5,TARSKI:def 4; end; let a be set; assume a in union Z; then consider u being set such that A6: a in u & u in Z by TARSKI:def 4; ex y being Subset of X st u = y & y in A & y c= x by A6; hence thesis by A6; end; Z c= A proof let a be set; assume a in Z; then ex y being Subset of X st a = y & y in A & y c= x; hence thesis; end; hence x in UniCl A by A2,CANTOR_1:def 1; end; thus thesis by CANTOR_1:1; end; theorem Th16: for X being set, A being empty Subset-Family of X holds UniCl A = {{}} proof let X be set, A be empty Subset-Family of X; hereby let x be set; assume x in UniCl A; then consider B being Subset-Family of X such that A1: B c= A & x = union B by CANTOR_1:def 1; B = {} by A1,XBOOLE_1:3; hence x in {{}} by A1,TARSKI:def 1,ZFMISC_1:2; end; consider B being empty Subset-Family of X; let x be set; assume x in {{}}; then x = {} & B c= A & union B = {} by TARSKI:def 1,ZFMISC_1:2; hence thesis by CANTOR_1:def 1; end; theorem Th17: for X being set, A being empty Subset-Family of X holds FinMeetCl A = {X} proof let X be set, A be empty Subset-Family of X; hereby let x be set; assume x in FinMeetCl A; then consider B being Subset-Family of X such that A1: B c= A & B is finite & x = Intersect B by CANTOR_1:def 4; B = {} by A1,XBOOLE_1:3; then x = X by A1,CANTOR_1:def 3; hence x in {X} by TARSKI:def 1; end; consider B being empty Subset-Family of X; let x be set; assume x in {X}; then x = X & B c= A & Intersect B = X by CANTOR_1:def 3,TARSKI:def 1; hence thesis by CANTOR_1:def 4; end; theorem Th18: for X being set, A being Subset-Family of X st A = {{},X} holds UniCl A = A & FinMeetCl A = A proof let X be set, A be Subset-Family of X such that A1: A = {{},X}; hereby let a be set; assume a in UniCl A; then consider y being Subset-Family of X such that A2: y c= A & a = union y by CANTOR_1:def 1; y = {} or y = {{}} or y = {X} or y = {{},X} by A1,A2,ZFMISC_1:42; then a = {} or a = X or a = {} \/ X & {} \/ X = X by A2,ZFMISC_1:2,31,93; hence a in A by A1,TARSKI:def 2; end; thus A c= UniCl A by CANTOR_1:1; hereby let a be set; assume a in FinMeetCl A; then consider y being Subset-Family of X such that A3: y c= A & y is finite & a = Intersect y by CANTOR_1:def 4; y = {} or y = {{}} or y = {X} or y = {{},X} by A1,A3,ZFMISC_1:42; then a = X or a = meet {{}} or a = meet {X} or a = meet {{},X} by A3,CANTOR_1:def 3; then a = X or a = {} or a = {} /\ X & {} /\ X = {} by SETFAM_1:11,12; hence a in A by A1,TARSKI:def 2; end; thus A c= FinMeetCl A by CANTOR_1:4; end; theorem Th19: for X,Y being set, A being Subset-Family of X, B being Subset-Family of Y holds (A c= B implies UniCl A c= UniCl B) & (A = B implies UniCl A = UniCl B) proof let X,Y be set, A be Subset-Family of X, B be Subset-Family of Y; A1: now let X,Y be set; let A be Subset-Family of X, B be Subset-Family of Y such that A2: A c= B; thus UniCl A c= UniCl B proof let x be set; assume x in UniCl A; then consider y being Subset-Family of X such that A3: y c= A & x = union y by CANTOR_1:def 1; A4: y c= B by A2,A3,XBOOLE_1:1; then y is Subset of bool Y by XBOOLE_1:1; then y is Subset-Family of Y by SETFAM_1:def 7; then ex y being Subset-Family of Y st y c= B & x = union y by A3,A4; hence thesis by CANTOR_1:def 1; end; end; hence A c= B implies UniCl A c= UniCl B; assume A = B; hence UniCl A c= UniCl B & UniCl B c= UniCl A by A1; end; theorem Th20: for X,Y being set, A being Subset-Family of X, B being Subset-Family of Y st A = B & X in A & X c= Y holds FinMeetCl B = {Y} \/ FinMeetCl A proof let X,Y be set, A be Subset-Family of X, B be Subset-Family of Y such that A1: A = B & X in A & X c= Y; thus FinMeetCl B c= {Y} \/ FinMeetCl A proof let x be set; assume x in FinMeetCl B; then consider y being Subset-Family of Y such that A2: y c= B & y is finite & x = Intersect y by CANTOR_1:def 4; reconsider z = y as Subset of bool X by A1,A2,XBOOLE_1:1; reconsider z as Subset-Family of X by SETFAM_1:def 7; per cases; suppose y = {}; then x = Y by A2,CANTOR_1:def 3; then x in {Y} by TARSKI:def 1; hence thesis by XBOOLE_0:def 2; suppose y <> {}; then Intersect y = meet y & Intersect z = meet y by CANTOR_1:def 3; then x in FinMeetCl A by A1,A2,CANTOR_1:def 4; hence thesis by XBOOLE_0:def 2; end; let x be set; assume A3: x in {Y} \/ FinMeetCl A; consider E being empty Subset-Family of Y; per cases by A3,XBOOLE_0:def 2; suppose x in {Y}; then x = Y & Intersect E = Y & E c= B by CANTOR_1:def 3,TARSKI:def 1, XBOOLE_1:2; hence thesis by CANTOR_1:def 4; suppose x in FinMeetCl A; then consider y being non empty finite Subset-Family of X such that A4: y c= A & x = Intersect y by A1,Th14; reconsider z = y as Subset of bool Y by A1,A4,XBOOLE_1:1; reconsider z as Subset-Family of Y by SETFAM_1:def 7; x = meet z by A4,CANTOR_1:def 3 .= Intersect z by CANTOR_1:def 3; hence thesis by A1,A4,CANTOR_1:def 4; end; theorem Th21: for X being set, A being Subset-Family of X holds UniCl FinMeetCl UniCl A = UniCl FinMeetCl A proof let X be set, A be Subset-Family of X; per cases; suppose A = {}; then FinMeetCl A = {X} & UniCl A = {{}} by Th16,Th17; then FinMeetCl UniCl A = {{},X} & UniCl FinMeetCl A = {X,{}} by Th11; hence thesis by Th18; suppose A <> {}; then reconsider A as non empty Subset-Family of X; A1: UniCl FinMeetCl UniCl A c= UniCl UniCl FinMeetCl A proof let x be set; assume x in UniCl FinMeetCl UniCl A; then consider Y being Subset-Family of X such that A2: Y c= FinMeetCl UniCl A & x = union Y by CANTOR_1:def 1; Y c= UniCl FinMeetCl A proof let y be set; assume y in Y; then consider Z being Subset-Family of X such that A3: Z c= UniCl A & Z is finite & y = Intersect Z by A2,CANTOR_1:def 4; per cases; suppose Z = {}; then y = X by A3,CANTOR_1:def 3; then y in FinMeetCl A & FinMeetCl A c= UniCl FinMeetCl A by CANTOR_1:1,8; hence thesis; suppose A4: Z <> {}; then A5: y = meet Z by A3,CANTOR_1:def 3; set G = {meet rng f where f is Element of Funcs(Z,A): for z being set st z in Z holds f.z c= z}; A6: G c= FinMeetCl A proof let a be set; assume a in G; then consider f being Element of Funcs(Z,A) such that A7: a = meet rng f & for z being set st z in Z holds f.z c= z; Funcs(Z,A) is FUNCTION_DOMAIN of Z,A by FRAENKEL:11; then f is Function of Z,A by FRAENKEL:def 2; then A8: dom f = Z & rng f c= A by FUNCT_2:def 1,RELSET_1:12; then reconsider B = rng f as Subset of bool X by XBOOLE_1:1; reconsider B as Subset-Family of X by SETFAM_1:def 7; B <> {} by A4,A8,RELAT_1:65; then Intersect B = a & B is finite by A3,A7,A8,CANTOR_1:def 3,FINSET_1:26; hence thesis by A8,CANTOR_1:def 4; end; then reconsider G as Subset of bool X by XBOOLE_1:1; reconsider G as Subset-Family of X by SETFAM_1:def 7; union G = y proof hereby let a be set; assume a in union G; then consider b being set such that A9: a in b & b in G by TARSKI:def 4; consider f being Element of Funcs(Z,A) such that A10: b = meet rng f & for z being set st z in Z holds f.z c= z by A9; Funcs(Z,A) is FUNCTION_DOMAIN of Z,A by FRAENKEL:11; then f is Function of Z,A by FRAENKEL:def 2; then A11: dom f = Z & rng f c= A by FUNCT_2:def 1,RELSET_1:12; then reconsider B = rng f as Subset of bool X by XBOOLE_1:1; reconsider B as Subset-Family of X by SETFAM_1:def 7; b c= y proof let c be set; assume A12: c in b; now let d be set; assume A13: d in Z; then f.d in B by A11,FUNCT_1:def 5; then b c= f.d by A10,SETFAM_1:4; then f.d c= d & c in f.d by A10,A12,A13; hence c in d; end; hence c in y by A4,A5,SETFAM_1:def 1; end; hence a in y by A9; end; let a be set; assume A14: a in y; defpred P[set,set] means a in $2 & $2 c= $1; A15: now let z be set; assume A16: z in Z; then A17: a in z & z in UniCl A by A3,A5,A14,SETFAM_1:def 1; consider C being Subset-Family of X such that A18: C c= A & z = union C by A3,A16,CANTOR_1:def 1; consider w being set such that A19: a in w & w in C by A17,A18,TARSKI:def 4; take w; thus w in A by A18,A19; thus P[z, w] by A18,A19,ZFMISC_1:92; end; consider f being Function such that A20: dom f = Z & rng f c= A and A21: for z being set st z in Z holds P[z, f.z] from NonUniqBoundFuncEx(A15); reconsider f as Element of Funcs(Z,A) by A20,FUNCT_2:def 2; for z being set st z in Z holds f.z c= z by A21; then A22: meet rng f in G; now thus rng f <> {} by A4,A20,RELAT_1:65; let y be set; assume y in rng f; then ex z being set st z in Z & y = f.z by A20,FUNCT_1:def 5; hence a in y by A21; end; then a in meet rng f by SETFAM_1:def 1; hence thesis by A22,TARSKI:def 4; end; hence thesis by A6,CANTOR_1:def 1; end; hence thesis by A2,CANTOR_1:def 1; end; A c= UniCl A by CANTOR_1:1; then FinMeetCl A c= FinMeetCl UniCl A by CANTOR_1:16; then UniCl FinMeetCl A c= UniCl FinMeetCl UniCl A & UniCl UniCl FinMeetCl A = UniCl FinMeetCl A by Th15,CANTOR_1:9; hence thesis by A1,XBOOLE_0:def 10; end; begin :: Bases theorem Th22: for T being TopSpace, K being Subset-Family of T holds the topology of T = UniCl K iff K is Basis of T proof let T be TopSpace, K be Subset-Family of T; thus the topology of T = UniCl K implies K is Basis of T proof assume the topology of T = UniCl K; hence K c= the topology of T & the topology of T c= UniCl K by CANTOR_1:1; end; assume K c= the topology of T; then A1: UniCl K c= UniCl the topology of T by CANTOR_1:9; assume the topology of T c= UniCl K; hence the topology of T c= UniCl K & UniCl K c= the topology of T by A1,CANTOR_1:6; end; theorem Th23: for T being TopSpace, K being Subset-Family of T holds K is prebasis of T iff FinMeetCl K is Basis of T proof let T be TopSpace, BB be Subset-Family of T; A1: now assume T is empty; then the topology of T = {{}} & the carrier of T = {} by Th8,STRUCT_0:def 1; hence the topology of T = bool the carrier of T by ZFMISC_1:1; end; thus BB is prebasis of T implies FinMeetCl BB is Basis of T proof assume A2: BB is prebasis of T; then BB c= the topology of T by CANTOR_1:def 5; then FinMeetCl BB c= FinMeetCl the topology of T by CANTOR_1:16; then A3: FinMeetCl BB c= the topology of T by A1,CANTOR_1:5; consider A being Basis of T such that A4: A c= FinMeetCl BB by A2,CANTOR_1:def 5; the topology of T c= UniCl A & UniCl A c= UniCl FinMeetCl BB by A4,CANTOR_1:9,def 2; then the topology of T c= UniCl FinMeetCl BB by XBOOLE_1:1; hence FinMeetCl BB is Basis of T by A3,CANTOR_1:def 2; end; assume A5: FinMeetCl BB is Basis of T; then BB c= FinMeetCl BB & FinMeetCl BB c= the topology of T by CANTOR_1:4,def 2; then BB c= the topology of T by XBOOLE_1:1; hence BB is prebasis of T by A5,CANTOR_1:def 5; end; theorem Th24: for T being non empty TopSpace, B being Subset-Family of T st UniCl B is prebasis of T holds B is prebasis of T proof let T be non empty TopSpace, B be Subset-Family of T; assume UniCl B is prebasis of T; then FinMeetCl UniCl B is Basis of T by Th23; then UniCl FinMeetCl UniCl B = the topology of T by Th22; then UniCl FinMeetCl B = the topology of T by Th21; then FinMeetCl B is Basis of T by Th22; hence thesis by Th23; end; theorem Th25: for T1, T2 being TopSpace, B being Basis of T1 st the carrier of T1 = the carrier of T2 & B is Basis of T2 holds the topology of T1 = the topology of T2 proof let T1, T2 be TopSpace, B be Basis of T1; assume A1: the carrier of T1 = the carrier of T2 & B is Basis of T2; then reconsider C = B as Basis of T2; thus the topology of T1 = UniCl C by A1,Th22 .= the topology of T2 by Th22; end; theorem Th26: for T1, T2 being TopSpace, P being prebasis of T1 st the carrier of T1 = the carrier of T2 & P is prebasis of T2 holds the topology of T1 = the topology of T2 proof let T1, T2 be TopSpace, P be prebasis of T1; assume A1: the carrier of T1 = the carrier of T2 & P is prebasis of T2; then reconsider C = P as prebasis of T2; FinMeetCl P is Basis of T1 & FinMeetCl C is Basis of T2 by Th23; hence thesis by A1,Th25; end; theorem for T being TopSpace, K being Basis of T holds K is open & K is prebasis of T proof let T be TopSpace, K be Basis of T; K c= the topology of T by CANTOR_1:def 2; hence for P be Subset of T st P in K holds P is open by PRE_TOPC:def 5; thus K c= the topology of T by CANTOR_1:def 2; take K; thus K c= FinMeetCl K by CANTOR_1:4; end; theorem for T being TopSpace, K being prebasis of T holds K is open proof let T be TopSpace, K be prebasis of T; let P be Subset of T; A1: K c= the topology of T by CANTOR_1:def 5; assume P in K; hence P in the topology of T by A1; end; theorem Th29: for T being non empty TopSpace, B being prebasis of T holds B \/ {the carrier of T} is prebasis of T proof let T be non empty TopSpace, B be prebasis of T; set C = B \/ {the carrier of T}; the carrier of T in the topology of T by PRE_TOPC:def 1; then A1: B c= the topology of T & {the carrier of T} c= the topology of T by CANTOR_1:def 5,ZFMISC_1:37; then C c= the topology of T by XBOOLE_1:8; then C is Subset of bool the carrier of T by XBOOLE_1:1; then C is Subset-Family of T by SETFAM_1:def 7; then reconsider C as Subset-Family of T; C is prebasis of T proof thus C c= the topology of T by A1,XBOOLE_1:8; B c= C by XBOOLE_1:7; then FinMeetCl B c= FinMeetCl C & FinMeetCl B is Basis of T by Th23,CANTOR_1:16; hence thesis; end; hence thesis; end; theorem for T being TopSpace, B being Basis of T holds B \/ {the carrier of T} is Basis of T proof let T be TopSpace, B be Basis of T; set C = B \/ {the carrier of T}; the carrier of T in the topology of T by PRE_TOPC:def 1; then A1: B c= the topology of T & {the carrier of T} c= the topology of T by CANTOR_1:def 2,ZFMISC_1:37; then C c= the topology of T by XBOOLE_1:8; then C is Subset of bool the carrier of T by XBOOLE_1:1; then C is Subset-Family of T by SETFAM_1:def 7; then reconsider C as Subset-Family of T; C is Basis of T proof thus C c= the topology of T by A1,XBOOLE_1:8; B c= C by XBOOLE_1:7; then UniCl B c= UniCl C & the topology of T c= UniCl B by CANTOR_1:9,def 2; hence thesis by XBOOLE_1:1; end; hence thesis; end; theorem Th31: for T being TopSpace, B being Basis of T for A being Subset of T holds A is open iff for p being Point of T st p in A ex a being Subset of T st a in B & p in a & a c= A proof let T be TopSpace, K be Basis of T, A be Subset of T; hereby assume A is open; then A1: A = union {G where G is Subset of T: G in K & G c= A} by YELLOW_8: 18; let p be Point of T; assume p in A; then consider Z being set such that A2: p in Z & Z in {G where G is Subset of T: G in K & G c= A} by A1,TARSKI:def 4; ex a being Subset of T st Z = a & a in K & a c= A by A2; hence ex a being Subset of T st a in K & p in a & a c= A by A2; end; assume A3: for p being Point of T st p in A ex a being Subset of T st a in K & p in a & a c= A; set F = {G where G is Subset of T: G in K & G c= A}; F c= bool the carrier of T proof let x be set; assume x in F; then ex G being Subset of T st x = G & G in K & G c= A; hence thesis; end; then reconsider F as Subset-Family of T by SETFAM_1:def 7; reconsider F as Subset-Family of T; A4: F is open proof let x be Subset of T; assume x in F; then ex G being Subset of T st x = G & G in K & G c= A; then x in K & K c= the topology of T by CANTOR_1:def 2; hence x in the topology of T; end; A = union F proof hereby let x be set; assume A5: x in A; then reconsider p = x as Point of T; consider a being Subset of T such that A6: a in K & p in a & a c= A by A3,A5; a in F by A6; hence x in union F by A6,TARSKI:def 4; end; F c= bool A proof let x be set; assume x in F; then ex G being Subset of T st x = G & G in K & G c= A; hence thesis; end; then union F c= union bool A by ZFMISC_1:95; hence thesis by ZFMISC_1:99; end; hence thesis by A4,TOPS_2:26; end; theorem Th32: for T being TopSpace, B being Subset-Family of T st B c= the topology of T & for A being Subset of T st A is open for p being Point of T st p in A ex a being Subset of T st a in B & p in a & a c= A holds B is Basis of T proof let T be TopSpace, B be Subset-Family of T such that A1: B c= the topology of T and A2: for A being Subset of T st A is open for p being Point of T st p in A ex a being Subset of T st a in B & p in a & a c= A; thus B c= the topology of T by A1; let x be set; assume A3: x in the topology of T; then reconsider A = x as Subset of T; set Y = {V where V is Subset of T: V in B & V c= A}; Y c= bool the carrier of T proof let y be set; assume y in Y; then ex V being Subset of T st y = V & V in B & V c= A; hence thesis; end; then reconsider Y as Subset-Family of T by SETFAM_1:def 7; reconsider Y as Subset-Family of T; A4: Y c= B proof let y be set; assume y in Y; then ex V being Subset of T st y = V & V in B & V c= A; hence thesis; end; x = union Y proof hereby let p be set; assume A5: p in x; then p in A; then reconsider q = p as Point of T; A is open by A3,PRE_TOPC:def 5; then consider a being Subset of T such that A6: a in B & q in a & a c= A by A2,A5; a in Y by A6; hence p in union Y by A6,TARSKI:def 4; end; let p be set; assume p in union Y; then consider a being set such that A7: p in a & a in Y by TARSKI:def 4; ex V being Subset of T st a = V & V in B & V c= A by A7; hence thesis by A7; end; hence thesis by A4,CANTOR_1:def 1; end; theorem Th33: for S being TopSpace, T being non empty TopSpace, K being Basis of T for f being map of S,T holds f is continuous iff for A being Subset of T st A in K holds f"A` is closed proof let S be TopSpace, T be non empty TopSpace, BB be Basis of T, f be map of S,T; A1: BB c= the topology of T by CANTOR_1:def 2; hereby assume A2: f is continuous; let A be Subset of T; assume A in BB; then A is open by A1,PRE_TOPC:def 5; then A` is closed by TOPS_1:30; hence f"A` is closed by A2,PRE_TOPC:def 12; end; assume A3:for A being Subset of T st A in BB holds f"A` is closed; let A be Subset of T; assume A is closed; then A` is open by TOPS_1:29; then A4: A` = union {G where G is Subset of T: G in BB & G c= A`} by YELLOW_8: 18; set F = {f"G where G is Subset of T: G in BB & G c= A`}; F c= bool the carrier of S proof let a be set; assume a in F; then ex G being Subset of T st a = f"G & G in BB & G c= A`; hence thesis; end; then reconsider F as Subset-Family of S by SETFAM_1:def 7; reconsider F as Subset-Family of S; F c= the topology of S proof let a be set; assume a in F; then consider G being Subset of T such that A5: a = f"G & G in BB & G c= A`; f"G` is closed & (f"G)` = f"G` by A3,A5,Th2; then f"G is open by TOPS_1:30; hence thesis by A5,PRE_TOPC:def 5; end; then A6: union F in the topology of S by PRE_TOPC:def 1; defpred P[Subset of T] means $1 in BB & $1 c= A`; deffunc F(Subset of T) = $1; f"union {F(G) where G is Subset of T: P[G]} = union {f"F(G) where G is Subset of T: P[G]} from ABC; then f"A` is open by A4,A6,PRE_TOPC:def 5; then (f"A)` is open by Th2; hence f"A is closed by TOPS_1:29; end; theorem for S being TopSpace,T being non empty TopSpace, K being Basis of T for f being map of S,T holds f is continuous iff for A being Subset of T st A in K holds f"A is open proof let S be TopSpace,T be non empty TopSpace, K be Basis of T; let f be map of S,T; hereby assume A1: f is continuous; let A be Subset of T; assume A in K; then f"A` is closed by A1,Th33; then (f"A)` is closed by Th2; hence f"A is open by TOPS_1:30; end; assume A2: for A being Subset of T st A in K holds f"A is open; now let A be Subset of T; assume A in K; then f"A is open by A2; then (f"A)` is closed by TOPS_1:30; hence f"A` is closed by Th2; end; hence thesis by Th33; end; theorem Th35: for S being TopSpace,T being non empty TopSpace, K being prebasis of T for f being map of S,T holds f is continuous iff for A being Subset of T st A in K holds f"A` is closed proof let S be TopSpace,T be non empty TopSpace, BB be prebasis of T, f be map of S,T; A1: BB c= the topology of T by CANTOR_1:def 5; hereby assume A2: f is continuous; let A be Subset of T; assume A in BB; then A is open by A1,PRE_TOPC:def 5; then A` is closed by TOPS_1:30; hence f"A` is closed by A2,PRE_TOPC:def 12; end; assume A3:for A being Subset of T st A in BB holds f"A` is closed; reconsider C = FinMeetCl BB as Basis of T by Th23; now let A be Subset of T; assume A in C; then consider Y being Subset-Family of T such that A4: Y c= BB & Y is finite & A = Intersect Y by CANTOR_1:def 4; reconsider Y as Subset-Family of T; reconsider CY = COMPLEMENT Y as Subset-Family of T; defpred P[set] means $1 in Y; deffunc F(Subset of T) = $1`; A5: f"A` = f"union CY by A4,YELLOW_8:16 .= f"union {F(a) where a is Subset of T: P[a]} by Th3 .= union {f"F(y) where y is Subset of T: P[y]} from ABC; set X = {f"y` where y is Subset of T: y in Y}; X c= bool the carrier of S proof let x be set; assume x in X; then ex y being Subset of T st x = f"y` & y in Y; hence thesis; end; then reconsider X as Subset-Family of S by SETFAM_1:def 7; reconsider X as Subset-Family of S; A6: X is closed proof let a be Subset of S; assume a in X; then ex y being Subset of T st a = f"y` & y in Y; hence a is closed by A3,A4; end; A7: Y is finite by A4; deffunc F(Subset of T) = f"$1`; A8: {F(y) where y is Subset of T: y in Y} is finite from FraenkelFin(A7); X is finite by A8; hence f"A` is closed by A5,A6,TOPS_2:28; end; hence thesis by Th33; end; theorem for S being TopSpace,T being non empty TopSpace, K being prebasis of T for f being map of S,T holds f is continuous iff for A being Subset of T st A in K holds f"A is open proof let S be TopSpace,T be non empty TopSpace, K be prebasis of T; let f be map of S,T; hereby assume A1: f is continuous; let A be Subset of T; assume A in K; then f"A` is closed by A1,Th35; then (f"A)` is closed by Th2; hence f"A is open by TOPS_1:30; end; assume A2: for A being Subset of T st A in K holds f"A is open; now let A be Subset of T; assume A in K; then f"A is open by A2; then (f"A)` is closed by TOPS_1:30; hence f"A` is closed by Th2; end; hence thesis by Th35; end; theorem Th37: for T being non empty TopSpace, x being Point of T, X being Subset of T for K being Basis of T st for A being Subset of T st A in K & x in A holds A meets X holds x in Cl X proof let T be non empty TopSpace, x be Point of T, X be Subset of T; let BB be Basis of T such that A1: for A being Subset of T st A in BB & x in A holds A meets X; now let G be a_neighborhood of x; A2: Int G = union {A where A is Subset of T: A in BB & A c= G} by YELLOW_8:20; x in Int G by CONNSP_2:def 1; then consider Z being set such that A3: x in Z & Z in {A where A is Subset of T: A in BB & A c= G} by A2,TARSKI:def 4; consider A being Subset of T such that A4: Z = A & A in BB & A c= G by A3; A meets X by A1,A3,A4; hence G meets X by A4,XBOOLE_1:63; end; hence x in Cl X by YELLOW_6:6; end; theorem Th38: for T being non empty TopSpace, x being Point of T, X being Subset of T for K being prebasis of T st for Z being finite Subset-Family of T st Z c= K & x in Intersect Z holds Intersect Z meets X holds x in Cl X proof let T be non empty TopSpace, x be Point of T, X be Subset of T; let BB be prebasis of T such that A1: for Z being finite Subset-Family of T st Z c= BB & x in Intersect Z holds Intersect Z meets X; reconsider BB' = FinMeetCl BB as Basis of T by Th23; now let A be Subset of T; assume A in BB'; then consider Y being Subset-Family of T such that A2: Y c= BB & Y is finite & A = Intersect Y by CANTOR_1:def 4; reconsider Y as finite Subset-Family of T by A2; assume x in A; then Intersect Y meets X by A1,A2; hence A meets X by A2; end; hence thesis by Th37; end; theorem for T being non empty TopSpace, K being prebasis of T, x being Point of T for N being net of T st for A being Subset of T st A in K & x in A holds N is_eventually_in A for S being Subset of T st rng netmap(N,T) c= S holds x in Cl S proof let T be non empty TopSpace, BB be prebasis of T, x be Point of T, N be net of T such that A1: for A being Subset of T st A in BB & x in A holds N is_eventually_in A; let S be Subset of T such that A2: rng netmap(N,T) c= S; A3: the carrier of N = [#]N & [#]N is directed by PRE_TOPC:12,WAYBEL_0:def 6; A4: the mapping of N = netmap(N,T) by WAYBEL_0:def 7; now let Z be finite Subset-Family of T; assume A5: Z c= BB & x in Intersect Z; defpred P[set,set] means for i,j being Element of N st $2 = i & i <= j holds N.j in $1; A6: now let a be set; assume A7: a in Z; then reconsider A = a as Subset of T; A in BB & x in A by A5,A7,CANTOR_1:10; then N is_eventually_in A by A1; then consider i being Element of N such that A8: for j being Element of N st i <= j holds N.j in A by WAYBEL_0:def 11; reconsider b = i as set; take b; thus b in the carrier of N & P[a, b] by A8; end; consider f being Function such that A9: dom f = Z & rng f c= the carrier of N & for a being set st a in Z holds P[a, f.a] from NonUniqBoundFuncEx(A6); consider k being Element of N; per cases by A9,RELAT_1:65; suppose Z = {}; then A10: Intersect Z = the carrier of T by CANTOR_1:def 3; N.k = netmap(N,T).k & the carrier of T <> {} by A4,WAYBEL_0:def 8; then N.k in rng netmap(N,T) by FUNCT_2:6; hence Intersect Z meets S by A2,A10,XBOOLE_0:3; suppose rng f <> {}; then reconsider Y = rng f as finite non empty Subset of N by A9,FINSET_1:26; consider i being Element of N such that A11: i in the carrier of N & i is_>=_than Y by A3,WAYBEL_0:1; now let y be set; assume A12: y in Z; then A13: f.y in Y by A9,FUNCT_1:def 5; then reconsider j = f.y as Element of N; j <= i by A11,A13,LATTICE3:def 9; hence N.i in y by A9,A12; end; then A14: N.i in Intersect Z by CANTOR_1:10; N.i = netmap(N,T).i & the carrier of T <> {} by A4,WAYBEL_0:def 8; then N.i in rng netmap(N,T) by FUNCT_2:6; hence Intersect Z meets S by A2,A14,XBOOLE_0:3; end; hence x in Cl S by Th38; end; begin :: Product topology theorem Th40: for T1,T2 being non empty TopSpace for B1 being Basis of T1, B2 being Basis of T2 holds {[:a,b:] where a is Subset of T1, b is Subset of T2: a in B1 & b in B2} is Basis of [:T1,T2:] proof let T1,T2 be non empty TopSpace; let B1 be Basis of T1, B2 be Basis of T2; set BB = {[:a,b:] where a is Subset of T1, b is Subset of T2: a in B1 & b in B2}; set T = [:T1,T2:]; A1: the carrier of T = [:the carrier of T1, the carrier of T2:] by BORSUK_1:def 5; BB c= bool the carrier of T proof let x be set; assume x in BB; then ex a being Subset of T1, b being Subset of T2 st x = [:a,b:] & a in B1 & b in B2; hence thesis; end; then reconsider BB as Subset-Family of T by SETFAM_1:def 7; reconsider BB as Subset-Family of T; A2: B1 c= the topology of T1 & B2 c= the topology of T2 by CANTOR_1:def 2; BB is Basis of T proof hereby let x be set; assume x in BB; then consider a being Subset of T1, b being Subset of T2 such that A3: x = [:a,b:] & a in B1 & b in B2; a is open & b is open by A2,A3,PRE_TOPC:def 5; then [:a,b:] is open by BORSUK_1:46; hence x in the topology of T by A3,PRE_TOPC:def 5; end; let x be set; assume A4: x in the topology of T; then reconsider X = x as Subset of T; X is open by A4,PRE_TOPC:def 5; then A5: X = union Base-Appr X by BORSUK_1:54; set Y = BB /\ Base-Appr X; A6: Y c= BB & Y c= Base-Appr X by XBOOLE_1:17; reconsider Y as Subset-Family of T; union Y = X proof thus union Y c= X by A5,A6,ZFMISC_1:95; let z be set; assume A7: z in X; then reconsider p = z as Point of T; consider z1,z2 being set such that A8: z1 in the carrier of T1 & z2 in the carrier of T2 & p = [z1,z2] by A1,ZFMISC_1:def 2; reconsider z1 as Point of T1 by A8; reconsider z2 as Point of T2 by A8; consider Z being set such that A9: z in Z & Z in Base-Appr X by A5,A7,TARSKI:def 4; A10: Base-Appr X = {[:a,b:] where a is Subset of T1, b is Subset of T2: [:a,b:] c= X & a is open & b is open} by BORSUK_1:def 6; then consider a being Subset of T1, b being Subset of T2 such that A11: Z = [:a,b:] & [:a,b:] c= X & a is open & b is open by A9; A12: z1 in a & z2 in b by A8,A9,A11,ZFMISC_1:106; then consider a' being Subset of T1 such that A13: a' in B1 & z1 in a' & a' c= a by A11,Th31; consider b' being Subset of T2 such that A14: b' in B2 & z2 in b' & b' c= b by A11,A12,Th31; [:a',b':] c= [:a,b:] by A13,A14,ZFMISC_1:119; then [:a',b':] c= X & a' is open & b' is open by A2,A11,A13,A14,PRE_TOPC:def 5,XBOOLE_1:1; then [:a',b':] in Base-Appr X & [:a',b':] in BB by A10,A13,A14; then p in [:a',b':] & [:a',b':] in Y by A8,A13,A14,XBOOLE_0:def 3,ZFMISC_1:106; hence thesis by TARSKI:def 4; end; hence x in UniCl BB by A6,CANTOR_1:def 1; end; hence thesis; end; theorem Th41: for T1,T2 being non empty TopSpace for B1 being prebasis of T1, B2 being prebasis of T2 holds {[:the carrier of T1, b:] where b is Subset of T2: b in B2} \/ {[:a, the carrier of T2:] where a is Subset of T1: a in B1} is prebasis of [:T1,T2:] proof let T1,T2 be non empty TopSpace; set T = [:T1,T2:]; let B1 be prebasis of T1, B2 be prebasis of T2; set C2 = {[:the carrier of T1, b:] where b is Subset of T2: b in B2}; set C1 = {[:a, the carrier of T2:] where a is Subset of T1: a in B1}; reconsider D1 = FinMeetCl B1 as Basis of T1 by Th23; reconsider D2 = FinMeetCl B2 as Basis of T2 by Th23; reconsider D = {[:a,b:] where a is Subset of T1, b is Subset of T2: a in D1 & b in D2} as Basis of T by Th40; the carrier of T1 c= the carrier of T1; then reconsider cT1 = the carrier of T1 as Subset of T1; the carrier of T2 c= the carrier of T2; then reconsider cT2 = the carrier of T2 as Subset of T2; A1: cT1 in the topology of T1 & cT2 in the topology of T2 by PRE_TOPC:def 1; A2: B1 c= the topology of T1 & B2 c= the topology of T2 by CANTOR_1:def 5; C1 c= bool the carrier of T proof let x be set; assume x in C1; then ex a being Subset of T1 st x = [:a, cT2:] & a in B1; hence thesis; end; then reconsider C1 as Subset-Family of T by SETFAM_1:def 7; reconsider C1 as Subset-Family of T; C2 c= bool the carrier of T proof let x be set; assume x in C2; then ex a being Subset of T2 st x = [:cT1, a:] & a in B2; hence thesis; end; then reconsider C2 as Subset-Family of T by SETFAM_1:def 7; reconsider C2 as Subset-Family of T; reconsider C = C2 \/ C1 as Subset-Family of T; C is prebasis of T proof hereby let x be set; assume x in C; then x in C1 or x in C2 by XBOOLE_0:def 2; then (ex a being Subset of T1 st x = [:a, cT2:] & a in B1) or (ex a being Subset of T2 st x = [:cT1, a:] & a in B2); then consider a being Subset of T1, b being Subset of T2 such that A3: x = [:a,b:] & a in the topology of T1 & b in the topology of T2 by A1,A2 ; a is open & b is open by A3,PRE_TOPC:def 5; then [:a,b:] is open by BORSUK_1:46; hence x in the topology of T by A3,PRE_TOPC:def 5; end; take D; let d be set; assume d in D; then consider a being Subset of T1, b being Subset of T2 such that A4: d = [:a,b:] & a in D1 & b in D2; consider aY being Subset-Family of T1 such that A5: aY c= B1 and A6: aY is finite and A7: a = Intersect aY by A4,CANTOR_1:def 4; consider bY being Subset-Family of T2 such that A8: bY c= B2 and A9: bY is finite and A10: b = Intersect bY by A4,CANTOR_1:def 4; deffunc F(Subset of T1) = [:$1, cT2:]; A11: {F(s) where s is Subset of T1: s in aY} is finite from FraenkelFin(A6); deffunc G(Subset of T2) = [:cT1, $1:]; A12: {G(s) where s is Subset of T2: s in bY} is finite from FraenkelFin(A9); set Y1 = {[:s, cT2:] where s is Subset of T1: s in aY}; set Y2 = {[:cT1, s:] where s is Subset of T2: s in bY}; A13: Y1 c= C proof let x be set; assume x in Y1; then consider s being Subset of T1 such that A14: x = [:s, cT2:] & s in aY; s in B1 & s is Subset of T1 by A5,A14; then x in C1 by A14; hence thesis by XBOOLE_0:def 2; end; A15: Y2 c= C proof let x be set; assume x in Y2; then consider s being Subset of T2 such that A16: x = [:cT1, s:] & s in bY; s in B2 & s is Subset of T2 by A8,A16; then x in C2 by A16; hence thesis by XBOOLE_0:def 2; end; set Y = Y1 \/ Y2; A17: Y c= C by A13,A15,XBOOLE_1:8; then Y is Subset of bool the carrier of T by XBOOLE_1:1; then Y is Subset-Family of T by SETFAM_1:def 7; then reconsider Y as Subset-Family of T; A18: Y is finite by A11,A12,FINSET_1:14; Intersect Y = d proof hereby let p be set; assume A19: p in Intersect Y; then consider p1 being Point of T1, p2 being Point of T2 such that A20: p = [p1,p2] by BORSUK_1:50; now let z be set; assume A21: z in aY; then reconsider z' = z as Subset of T1; [:z', cT2:] in Y1 by A21; then [:z', cT2:] in Y by XBOOLE_0:def 2; then p in [:z', cT2:] by A19,CANTOR_1:10; hence p1 in z by A20,ZFMISC_1:106; end; then A22: p1 in a by A7,CANTOR_1:10; now let z be set; assume A23: z in bY; then reconsider z' = z as Subset of T2; [:cT1, z':] in Y2 by A23; then [:cT1, z':] in Y by XBOOLE_0:def 2; then p in [:cT1, z':] by A19,CANTOR_1:10; hence p2 in z by A20,ZFMISC_1:106; end; then p2 in b by A10,CANTOR_1:10; hence p in d by A4,A20,A22,ZFMISC_1:106; end; let p be set; assume p in d; then consider p1,p2 being set such that A24: p1 in a & p2 in b & [p1,p2] = p by A4,ZFMISC_1:def 2; reconsider p1 as Point of T1 by A24; reconsider p2 as Point of T2 by A24; now let z be set; assume A25: z in Y; per cases by A25,XBOOLE_0:def 2; suppose z in Y1; then consider s being Subset of T1 such that A26: z = [:s, cT2:] & s in aY; p1 in s by A7,A24,A26,CANTOR_1:10; hence [p1,p2] in z by A26,ZFMISC_1:106; suppose z in Y2; then consider s being Subset of T2 such that A27: z = [:cT1, s:] & s in bY; p2 in s by A10,A24,A27,CANTOR_1:10; hence [p1,p2] in z by A27,ZFMISC_1:106; end; hence p in Intersect Y by A24,CANTOR_1:10; end; hence d in FinMeetCl C by A17,A18,CANTOR_1:def 4; end; hence thesis; end; theorem for X1,X2 being set, A being Subset-Family of [:X1,X2:] for A1 being non empty Subset-Family of X1 for A2 being non empty Subset-Family of X2 st A = {[:a,b:] where a is Subset of X1, b is Subset of X2: a in A1 & b in A2} holds Intersect A = [:Intersect A1, Intersect A2:] proof let X1,X2 be set, A be Subset-Family of [:X1,X2:]; let A1 be non empty Subset-Family of X1, A2 be non empty Subset-Family of X2 such that A1: A = {[:a,b:] where a is Subset of X1, b is Subset of X2: a in A1 & b in A2}; hereby let x be set; assume A2: x in Intersect A; then consider x1,x2 being set such that A3: x1 in X1 & x2 in X2 & [x1,x2] = x by ZFMISC_1:def 2; consider a1 being Element of A1, a2 being Element of A2; reconsider a1 as Subset of X1; reconsider a2 as Subset of X2; now let a be set; assume a in A1; then [:a,a2:] in A by A1; then x in [:a,a2:] by A2,CANTOR_1:10; hence x1 in a by A3,ZFMISC_1:106; end; then A4: x1 in Intersect A1 by A3,CANTOR_1:10; now let a be set; assume a in A2; then [:a1,a:] in A by A1; then x in [:a1,a:] by A2,CANTOR_1:10; hence x2 in a by A3,ZFMISC_1:106; end; then x2 in Intersect A2 by A3,CANTOR_1:10; hence x in [:Intersect A1, Intersect A2:] by A3,A4,ZFMISC_1:106; end; let x be set; assume A5: x in [:Intersect A1, Intersect A2:]; then consider x1,x2 being set such that A6: x1 in Intersect A1 & x2 in Intersect A2 & [x1,x2] = x by ZFMISC_1:def 2; now let c be set; assume c in A; then consider a being Subset of X1, b being Subset of X2 such that A7: c = [:a,b:] & a in A1 & b in A2 by A1; x1 in a & x2 in b by A6,A7,CANTOR_1:10; hence x in c by A6,A7,ZFMISC_1:106; end; hence x in Intersect A by A5,CANTOR_1:10; end; theorem for T1,T2 being non empty TopSpace for B1 being prebasis of T1, B2 being prebasis of T2 st union B1 = the carrier of T1 & union B2 = the carrier of T2 holds {[:a,b:] where a is Subset of T1, b is Subset of T2: a in B1 & b in B2} is prebasis of [:T1,T2:] proof let T1,T2 be non empty TopSpace; let B1 be prebasis of T1, B2 be prebasis of T2 such that A1: union B1 = the carrier of T1 & union B2 = the carrier of T2; set cT1 = the carrier of T1, cT2 = the carrier of T2; set BB1 = {[:the carrier of T1, b:] where b is Subset of T2: b in B2}, BB2 = {[:a, the carrier of T2:] where a is Subset of T1: a in B1}; set CC = {[:a,b:] where a is Subset of T1, b is Subset of T2: a in B1 & b in B2}; set T = [:T1,T2:]; reconsider BB=BB1 \/ BB2 as prebasis of [:T1,T2:] by Th41; A2: FinMeetCl BB is Basis of T by Th23; CC c= bool the carrier of [:T1,T2:] proof let x be set; assume x in CC; then ex a being Subset of T1, b being Subset of T2 st x = [:a,b:] & a in B1 & b in B2; hence thesis; end; then reconsider CC as Subset-Family of [:T1,T2:] by SETFAM_1:def 7; reconsider CC as Subset-Family of [:T1,T2:]; CC c= the topology of T proof let x be set; assume x in CC; then consider a being Subset of T1, b being Subset of T2 such that A3: x = [:a,b:] & a in B1 & b in B2; B1 c= the topology of T1 & B2 c= the topology of T2 by CANTOR_1:def 5; then a is open & b is open by A3,PRE_TOPC:def 5; then [:a,b:] is open by BORSUK_1:46; hence thesis by A3,PRE_TOPC:def 5; end; then UniCl CC c= UniCl the topology of T by CANTOR_1:9; then A4: UniCl CC c= the topology of T by CANTOR_1:6; BB c= UniCl CC proof let x be set; assume A5: x in BB; per cases by A5,XBOOLE_0:def 2; suppose x in BB1; then consider b being Subset of T2 such that A6: x = [:cT1,b:] & b in B2; set Y = {[:a,b:] where a is Subset of T1: a in B1}; Y c= bool the carrier of T proof let y be set; assume y in Y; then ex a being Subset of T1 st y = [:a,b:] & a in B1; hence thesis; end; then reconsider Y as Subset-Family of T by SETFAM_1:def 7; reconsider Y as Subset-Family of T; A7: Y c= CC proof let y be set; assume y in Y; then ex a being Subset of T1 st y = [:a,b:] & a in B1; hence thesis by A6; end; x = union Y proof hereby let z be set; assume z in x; then consider p1, p2 being set such that A8: p1 in cT1 & p2 in b & [p1,p2] = z by A6,ZFMISC_1:def 2; consider a being set such that A9: p1 in a & a in B1 by A1,A8,TARSKI:def 4; reconsider a as Subset of T1 by A9; [:a,b:] in Y & z in [:a,b:] by A8,A9,ZFMISC_1:def 2; hence z in union Y by TARSKI:def 4; end; let z be set; assume z in union Y; then consider y being set such that A10: z in y & y in Y by TARSKI:def 4; ex a being Subset of T1 st y = [:a,b:] & a in B1 by A10; then y c= x by A6,ZFMISC_1:118; hence thesis by A10; end; hence thesis by A7,CANTOR_1:def 1; suppose x in BB2; then consider a being Subset of T1 such that A11: x = [:a,cT2:] & a in B1; set Y = {[:a,b:] where b is Subset of T2: b in B2}; Y c= bool the carrier of T proof let y be set; assume y in Y; then ex b being Subset of T2 st y = [:a,b:] & b in B2; hence thesis; end; then reconsider Y as Subset-Family of T by SETFAM_1:def 7; reconsider Y as Subset-Family of T; A12: Y c= CC proof let y be set; assume y in Y; then ex b being Subset of T2 st y = [:a,b:] & b in B2; hence thesis by A11; end; x = union Y proof hereby let z be set; assume z in x; then consider p1, p2 being set such that A13: p1 in a & p2 in cT2 & [p1,p2] = z by A11,ZFMISC_1:def 2; consider b being set such that A14: p2 in b & b in B2 by A1,A13,TARSKI:def 4; reconsider b as Subset of T2 by A14; [:a,b:] in Y & z in [:a,b:] by A13,A14,ZFMISC_1:def 2; hence z in union Y by TARSKI:def 4; end; let z be set; assume z in union Y; then consider y being set such that A15: z in y & y in Y by TARSKI:def 4; ex b being Subset of T2 st y = [:a,b:] & b in B2 by A15; then y c= x by A11,ZFMISC_1:118; hence thesis by A15; end; hence thesis by A12,CANTOR_1:def 1; end; then FinMeetCl BB c= FinMeetCl UniCl CC by CANTOR_1:16; then UniCl CC is prebasis of T by A2,A4,CANTOR_1:def 5; hence thesis by Th24; end; begin :: Topological augmentations definition let R be RelStr; mode TopAugmentation of R -> TopRelStr means: Def4: the RelStr of it = the RelStr of R; existence proof consider O being Subset-Family of R; take TopRelStr(#the carrier of R, the InternalRel of R, O#); thus thesis; end; end; definition let R be RelStr; let T be TopAugmentation of R; redefine attr T is TopSpace-like; synonym T is correct; end; definition let R be RelStr; cluster correct discrete strict TopAugmentation of R; existence proof reconsider BB = bool the carrier of R as Subset-Family of R by SETFAM_1:def 7; set T = TopRelStr(#the carrier of R, the InternalRel of R, BB#); the RelStr of R = the RelStr of T; then reconsider T as TopAugmentation of R by Def4; take T; T is discrete TopStruct by TDLAT_3:def 1; hence thesis; end; end; theorem for T being TopRelStr holds T is TopAugmentation of T proof let T be TopRelStr; thus the RelStr of T = the RelStr of T; end; theorem for S being TopRelStr, T being TopAugmentation of S holds S is TopAugmentation of T proof let S be TopRelStr, T be TopAugmentation of S; thus the RelStr of S = the RelStr of T by Def4; end; theorem for R being RelStr, T1 being TopAugmentation of R for T2 being TopAugmentation of T1 holds T2 is TopAugmentation of R proof let R be RelStr, T1 be TopAugmentation of R; let T2 be TopAugmentation of T1; thus the RelStr of T2 = the RelStr of T1 by Def4 .= the RelStr of R by Def4; end; definition let R be non empty RelStr; cluster -> non empty TopAugmentation of R; coherence proof let T be TopAugmentation of R; the RelStr of T = the RelStr of R by Def4; hence the carrier of T is non empty; end; end; definition let R be reflexive RelStr; cluster -> reflexive TopAugmentation of R; coherence proof let T be TopAugmentation of R; the RelStr of T = the RelStr of R by Def4; hence the InternalRel of T is_reflexive_in the carrier of T by ORDERS_1:def 4; end; end; definition let R be transitive RelStr; cluster -> transitive TopAugmentation of R; coherence proof let T be TopAugmentation of R; the RelStr of T = the RelStr of R by Def4; then the InternalRel of T is_transitive_in the carrier of T by ORDERS_1:def 5; hence thesis by ORDERS_1:def 5; end; end; definition let R be antisymmetric RelStr; cluster -> antisymmetric TopAugmentation of R; coherence proof let T be TopAugmentation of R; the RelStr of T = the RelStr of R by Def4; then the InternalRel of T is_antisymmetric_in the carrier of T by ORDERS_1:def 6; hence thesis by ORDERS_1:def 6; end; end; definition let R be complete (non empty RelStr); cluster -> complete TopAugmentation of R; coherence proof let T be TopAugmentation of R; the RelStr of T = the RelStr of R by Def4; hence thesis by YELLOW_0:3; end; end; theorem Th47: for S being up-complete antisymmetric (non empty reflexive RelStr), T being non empty reflexive RelStr st the RelStr of S = the RelStr of T for A being Subset of S, C being Subset of T st A = C & A is inaccessible holds C is inaccessible proof let S be up-complete antisymmetric (non empty reflexive RelStr), T be non empty reflexive RelStr such that A1: the RelStr of S = the RelStr of T; let A be Subset of S, C be Subset of T such that A2: A = C and A3: for D being non empty directed Subset of S st sup D in A holds D meets A; let D be non empty directed Subset of T such that A4: sup D in C; reconsider E = D as non empty directed Subset of S by A1,WAYBEL_0:3; ex_sup_of E,S by WAYBEL_0:75; then sup D = sup E by A1,YELLOW_0:26; hence D meets C by A2,A3,A4; end; theorem Th48: for S being non empty reflexive RelStr, T being TopAugmentation of S st the topology of T = sigma S holds T is correct proof let R be non empty reflexive RelStr; let T be TopAugmentation of R such that A1: the topology of T = sigma R; A2: the RelStr of T = the RelStr of R by Def4; set IT = ConvergenceSpace Scott-Convergence R; the carrier of IT = the carrier of R & sigma R = the topology of IT by WAYBEL11:def 12,YELLOW_6:def 27; then the carrier of T in sigma R & (for a being Subset-Family of T st a c= the topology of T holds union a in the topology of T) & (for a,b being Subset of T st a in the topology of T & b in the topology of T holds a /\ b in the topology of T) by A1,A2,PRE_TOPC:def 1; hence thesis by A1,PRE_TOPC:def 1; end; theorem Th49: for S being complete LATTICE, T being TopAugmentation of S st the topology of T = sigma S holds T is Scott proof let R be complete LATTICE; let T be TopAugmentation of R such that A1: the topology of T = sigma R; A2: the RelStr of T = the RelStr of R by Def4; A3: sigma R = the topology of ConvergenceSpace Scott-Convergence R by WAYBEL11:def 12; T is Scott proof let S be Subset of T; reconsider A = S as Subset of R by A2; thus S is open implies S is inaccessible upper proof assume S in the topology of T; then A is inaccessible upper by A1,A3,WAYBEL11:31; hence thesis by A2,Th47,WAYBEL_0:25; end; assume S is inaccessible upper; then A is inaccessible upper by A2,Th47,WAYBEL_0:25; hence S in the topology of T by A1,A3,WAYBEL11:31; end; hence thesis; end; definition let R be complete LATTICE; cluster Scott strict correct TopAugmentation of R; existence proof set T = TopRelStr(#the carrier of R, the InternalRel of R, sigma R#); the RelStr of T = the RelStr of R; then reconsider T as TopAugmentation of R by Def4; take T; thus thesis by Th48,Th49; end; end; theorem Th50: for S,T being complete Scott (non empty reflexive transitive antisymmetric TopRelStr) st the RelStr of S = the RelStr of T for F being Subset of S, G being Subset of T st F = G holds F is open implies G is open proof let S,T be complete Scott (non empty reflexive transitive antisymmetric TopRelStr) such that A1: the RelStr of S = the RelStr of T; let F be Subset of S, G be Subset of T; assume A2: F = G & F is open; then F is upper inaccessible by WAYBEL11:def 4; then G is upper inaccessible by A1,A2,Th47,WAYBEL_0:25; hence G is open by WAYBEL11:def 4; end; theorem Th51: for S being complete LATTICE, T being Scott TopAugmentation of S holds the topology of T = sigma S proof let S be complete LATTICE; let T be Scott TopAugmentation of S; set R = TopRelStr(#the carrier of S, the InternalRel of S, sigma S#); the RelStr of R = the RelStr of S; then reconsider R as TopAugmentation of S by Def4; reconsider R as correct Scott TopAugmentation of S by Th48,Th49; A1: the RelStr of T = the RelStr of R by Def4; thus the topology of T c= sigma S proof let x be set; assume A2: x in the topology of T; then reconsider A = x as Subset of T; reconsider C = A as Subset of R by A1; A is open by A2,PRE_TOPC:def 5; then C is open by A1,Th50; hence thesis by PRE_TOPC:def 5; end; let x be set; assume A3: x in sigma S; then reconsider A = x as Subset of R; reconsider C = A as Subset of T by A1; A is open by A3,PRE_TOPC:def 5; then C is open by A1,Th50; hence thesis by PRE_TOPC:def 5; end; theorem for S,T being complete LATTICE st the RelStr of S = the RelStr of T holds sigma S = sigma T proof let S,T be complete LATTICE such that A1: the RelStr of S = the RelStr of T; consider A being Scott correct TopAugmentation of S; the RelStr of A = the RelStr of S by Def4; then A is Scott correct TopAugmentation of T by A1,Def4; then the topology of A = sigma T by Th51; hence thesis by Th51; end; definition let R be complete LATTICE; cluster Scott -> correct TopAugmentation of R; coherence proof let T be TopAugmentation of R; assume T is Scott; then the topology of T = sigma R by Th51; hence thesis by Th48; end; end; Lm2: for S being TopStruct ex T being strict TopSpace st the carrier of T = the carrier of S & the topology of S is prebasis of T proof let S be TopStruct; set T = TopStruct(#the carrier of S, UniCl FinMeetCl the topology of S#); A1: {{},{}} = {{}} by ENUMSET1:69; now assume A2: the carrier of S = {}; then the topology of S = {} or the topology of S = {{}} by ZFMISC_1:1,39 ; then FinMeetCl the topology of S = {{}} by A1,A2,Th11,Th17; then UniCl FinMeetCl the topology of S = {{}} by A1,Th11; hence T is discrete TopStruct by A2,TDLAT_3:def 1,ZFMISC_1:1; end; then reconsider T as strict TopSpace by CANTOR_1:17; take T; the topology of S c= FinMeetCl the topology of S & FinMeetCl the topology of S c= the topology of T by CANTOR_1:1,4; then A3: the topology of S c= the topology of T by XBOOLE_1:1; FinMeetCl the topology of S is Basis of T by Th22; hence thesis by A3,CANTOR_1:def 5; end; begin :: Refinements definition let T be TopStruct; mode TopExtension of T -> TopSpace means: Def5: the carrier of T = the carrier of it & the topology of T c= the topology of it; existence proof consider R being strict TopSpace such that A1: the carrier of R = the carrier of T & the topology of T is prebasis of R by Lm2; take R; thus thesis by A1,CANTOR_1:def 5; end; end; theorem Th53: for S being TopStruct ex T being TopExtension of S st T is strict & the topology of S is prebasis of T proof let S be TopStruct; consider T being strict TopSpace such that A1: the carrier of T = the carrier of S & the topology of S is prebasis of T by Lm2; the topology of S c= the topology of T by A1,CANTOR_1:def 5; then reconsider T as TopExtension of S by A1,Def5; take T; thus thesis by A1; end; definition let T be TopStruct; cluster strict discrete TopExtension of T; existence proof reconsider S = bool the carrier of T as Subset-Family of T by SETFAM_1:def 7; reconsider S as Subset-Family of T; set R = TopStruct(#the carrier of T, S#); A1: R is discrete TopStruct by TDLAT_3:def 1; the topology of T c= S; then R is TopExtension of T by A1,Def5; hence thesis by A1; end; end; definition let T1,T2 be TopStruct; mode Refinement of T1,T2 -> TopSpace means: Def6: the carrier of it = (the carrier of T1) \/ (the carrier of T2) & (the topology of T1) \/ (the topology of T2) is prebasis of it; existence proof set c1 = the carrier of T1, c2 = the carrier of T2; set t1 = the topology of T1, t2 = the topology of T2; c1 c= c1 \/ c2 & c2 c= c1 \/ c2 by XBOOLE_1:7; then bool c1 c= bool (c1 \/ c2) & bool c2 c= bool (c1 \/ c2) by ZFMISC_1:79; then t1 c= bool (c1 \/ c2) & t2 c= bool (c1 \/ c2) by XBOOLE_1:1; then reconsider t = t1 \/ t2 as Subset of bool (c1 \/ c2) by XBOOLE_1:8; reconsider t as Subset-Family of c1 \/ c2 by SETFAM_1:def 7; set S = TopStruct(#c1 \/ c2, t#); consider T being TopExtension of S such that A1: T is strict & t is prebasis of T by Th53; reconsider T as strict TopExtension of S by A1; take T; thus thesis by A1,Def5; end; end; definition let T1 be non empty TopStruct, T2 be TopStruct; cluster -> non empty Refinement of T1,T2; coherence proof let T be Refinement of T1,T2; the carrier of T = (the carrier of T2) \/ (the carrier of T1) by Def6; hence the carrier of T is non empty; end; cluster -> non empty Refinement of T2,T1; coherence proof let T be Refinement of T2,T1; the carrier of T = (the carrier of T2) \/ (the carrier of T1) by Def6; hence the carrier of T is non empty; end; end; theorem for T1,T2 being TopStruct, T, T' being Refinement of T1,T2 holds the TopStruct of T = the TopStruct of T' proof let T1, T2 be TopStruct, T,T' be Refinement of T1,T2; the carrier of T = (the carrier of T1) \/ (the carrier of T2) & (the topology of T1) \/ (the topology of T2) is prebasis of T & the carrier of T' = (the carrier of T1) \/ (the carrier of T2) & (the topology of T1) \/ (the topology of T2) is prebasis of T' by Def6; hence thesis by Th26; end; theorem for T1,T2 being TopStruct, T being Refinement of T1,T2 holds T is Refinement of T2,T1 proof let T1, T2 be TopStruct, T be Refinement of T1,T2; the carrier of T = (the carrier of T1) \/ (the carrier of T2) & (the topology of T1) \/ (the topology of T2) is prebasis of T by Def6; hence thesis by Def6; end; theorem for T1,T2 being TopStruct, T being Refinement of T1,T2 for X being Subset-Family of T st X = (the topology of T1) \/ (the topology of T2) holds the topology of T = UniCl FinMeetCl X proof let T1,T2 be TopStruct, T be Refinement of T1,T2; let X be Subset-Family of T; assume X = (the topology of T1) \/ (the topology of T2); then X is prebasis of T by Def6; then FinMeetCl X is Basis of T by Th23; hence thesis by Th22; end; theorem for T1, T2 being TopStruct st the carrier of T1 = the carrier of T2 for T being Refinement of T1, T2 holds T is TopExtension of T1 & T is TopExtension of T2 proof let T1, T2 be TopStruct such that A1: the carrier of T1 = the carrier of T2; let T be Refinement of T1, T2; A2: the carrier of T = (the carrier of T1) \/ the carrier of T2 by Def6 .= the carrier of T1 by A1; (the topology of T1) \/ the topology of T2 is prebasis of T by Def6; then the topology of T1 c= (the topology of T1) \/ the topology of T2 & the topology of T2 c= (the topology of T1) \/ the topology of T2 & (the topology of T1) \/ the topology of T2 c= the topology of T by CANTOR_1:def 5,XBOOLE_1:7; then the topology of T1 c= the topology of T & the topology of T2 c= the topology of T by XBOOLE_1:1; hence thesis by A1,A2,Def5; end; theorem for T1,T2 being non empty TopSpace, T be Refinement of T1, T2 for B1 being prebasis of T1, B2 being prebasis of T2 holds B1 \/ B2 \/ {the carrier of T1, the carrier of T2} is prebasis of T proof let T1,T2 be non empty TopSpace, T be Refinement of T1,T2; let B1 be prebasis of T1, B2 be prebasis of T2; reconsider B = (the topology of T1) \/ (the topology of T2) as prebasis of T by Def6; set cT1 = the carrier of T1, cT2 = the carrier of T2; reconsider C1 = B1 \/ {cT1} as prebasis of T1 by Th29; reconsider C2 = B2 \/ {cT2} as prebasis of T2 by Th29; A1: B1 c= the topology of T1 & C1 c= the topology of T1 & B2 c= the topology of T2 & C2 c= the topology of T2 & cT1 in the topology of T1 & cT2 in the topology of T2 by CANTOR_1:def 5,PRE_TOPC:def 1; then A2: B1 \/ B2 c= B & B c= the topology of T & cT1 in B & cT2 in B by CANTOR_1:def 5,XBOOLE_0:def 2,XBOOLE_1:13; then A3: B1 \/ B2 c= the topology of T & {cT1,cT2} c= the topology of T & {cT1,cT2} c= B by XBOOLE_1:1,ZFMISC_1:38; then B1 \/ B2 \/ {cT1,cT2} c= the topology of T by XBOOLE_1:8; then B1 \/ B2 \/ {cT1, cT2} is Subset of bool the carrier of T by XBOOLE_1:1; then B1 \/ B2 \/ {cT1, cT2} is Subset-Family of T by SETFAM_1: def 7; then reconsider BB = B1 \/ B2 \/ {cT1, cT2} as Subset-Family of T; the topology of T1 c= B & the topology of T2 c= B by XBOOLE_1:7; then C1 c= B & C2 c= B by A1,XBOOLE_1:1; then reconsider D1 = C1, D2 = C2 as Subset of bool the carrier of T by XBOOLE_1:1; reconsider D1, D2 as Subset-Family of T by SETFAM_1:def 7; reconsider D1, D2 as Subset-Family of T; A4: UniCl FinMeetCl BB = UniCl FinMeetCl FinMeetCl BB by CANTOR_1:13 .= UniCl FinMeetCl UniCl FinMeetCl BB by Th21; FinMeetCl B is Basis of T & FinMeetCl C1 is Basis of T1 & FinMeetCl C2 is Basis of T2 by Th23; then A5: UniCl FinMeetCl B = the topology of T & UniCl FinMeetCl C1 = the topology of T1 & UniCl FinMeetCl C2 = the topology of T2 by Th22; B1 c= B1 \/ B2 & B2 c= B1 \/ B2 & {cT1} c= {cT1,cT2} & {cT2} c= {cT1,cT2} by XBOOLE_1:7,ZFMISC_1:12; then D1 c= BB & D2 c= BB & BB c= B by A2,A3,XBOOLE_1:8,13; then A6: FinMeetCl BB c= FinMeetCl B & FinMeetCl D1 c= FinMeetCl BB & FinMeetCl D2 c= FinMeetCl BB by CANTOR_1:16; then A7: UniCl FinMeetCl BB c= the topology of T & UniCl FinMeetCl D1 c= UniCl FinMeetCl BB & UniCl FinMeetCl D2 c= UniCl FinMeetCl BB by A5,CANTOR_1:9; cT1 in {cT1} & cT2 in {cT2} by TARSKI:def 1; then cT1 in C1 & cT2 in C2 by XBOOLE_0:def 2; then FinMeetCl D1 = {the carrier of T} \/ FinMeetCl C1 & FinMeetCl D2 = {the carrier of T} \/ FinMeetCl C2 by Th20; then FinMeetCl C1 c= FinMeetCl D1 & FinMeetCl C2 c= FinMeetCl D2 by XBOOLE_1:7; then FinMeetCl C1 c= FinMeetCl BB & FinMeetCl C2 c= FinMeetCl BB by A6,XBOOLE_1:1; then the topology of T1 c= UniCl FinMeetCl BB & the topology of T2 c= UniCl FinMeetCl BB by A5,Th19; then B c= UniCl FinMeetCl BB by XBOOLE_1:8; then FinMeetCl B c= FinMeetCl UniCl FinMeetCl BB by CANTOR_1:16; then the topology of T c= UniCl FinMeetCl BB by A4,A5,CANTOR_1:9; then the topology of T = UniCl FinMeetCl BB by A7,XBOOLE_0:def 10; then FinMeetCl BB is Basis of T by Th22; hence thesis by Th23; end; theorem Th59: for T1,T2 being non empty TopSpace for B1 being Basis of T1, B2 being Basis of T2 for T being Refinement of T1, T2 holds B1 \/ B2 \/ INTERSECTION(B1,B2) is Basis of T proof let T1,T2 be non empty TopSpace; let B1 be Basis of T1, B2 be Basis of T2; let T be Refinement of T1,T2; set BB = B1 \/ B2 \/ INTERSECTION(B1,B2); reconsider B = (the topology of T1) \/ the topology of T2 as prebasis of T by Def6; A1: FinMeetCl B is Basis of T by Th23; A2: (the carrier of T1) \/ the carrier of T2 = the carrier of T by Def6; A3: B1 c= the topology of T1 & B2 c= the topology of T2 & B c= the topology of T by CANTOR_1:def 2,def 5; the topology of T1 c= B & the topology of T2 c= B by XBOOLE_1:7; then A4: B1 c= B & B2 c= B & B c= FinMeetCl B by A3,CANTOR_1:4,XBOOLE_1:1; then B1 c= FinMeetCl B & B2 c= FinMeetCl B & B1 \/ B2 c= B by A3,XBOOLE_1:1,13; then INTERSECTION(B1,B2) c= FinMeetCl B & B1 \/ B2 c= FinMeetCl B by A4,CANTOR_1:15,XBOOLE_1:1; then A5: BB c= FinMeetCl B & FinMeetCl B c= the topology of T by A1,CANTOR_1:def 2,XBOOLE_1:8; then A6: BB c= the topology of T by XBOOLE_1:1; BB is Subset of bool the carrier of T by A5,XBOOLE_1:1; then BB is Subset-Family of T by SETFAM_1:def 7; then reconsider BB as Subset-Family of T; now let A be Subset of T such that A7: A is open; let p be Point of T; assume p in A; then consider a being Subset of T such that A8: a in FinMeetCl B & p in a & a c= A by A1,A7,Th31; consider Y being Subset-Family of T such that A9: Y c= B & Y is finite & a = Intersect Y by A8,CANTOR_1:def 4; Y /\ the topology of T1 c= the topology of T1 by XBOOLE_1:17; then Y /\ the topology of T1 is Subset of bool the carrier of T1 by XBOOLE_1:1; then Y /\ the topology of T1 is Subset-Family of T1 by SETFAM_1:def 7; then reconsider Y1 = Y /\ the topology of T1 as Subset-Family of T1 ; Y /\ the topology of T2 c= the topology of T2 by XBOOLE_1:17; then Y /\ the topology of T2 is Subset of bool the carrier of T2 by XBOOLE_1:1; then Y /\ the topology of T2 is Subset-Family of T2 by SETFAM_1:def 7; then reconsider Y2 = Y /\ the topology of T2 as Subset-Family of T2 ; A10: Y = B /\ Y by A9,XBOOLE_1:28 .= Y1 \/ Y2 by XBOOLE_1:23; the carrier of T1 c= the carrier of T1; then reconsider cT1 = the carrier of T1 as Subset of T1; the carrier of T2 c= the carrier of T2; then reconsider cT2 = the carrier of T2 as Subset of T2; cT1 in the topology of T1 & cT2 in the topology of T2 by PRE_TOPC:def 1; then A11: cT1 is open & cT2 is open & cT1 in B & cT2 in B by PRE_TOPC:def 5,XBOOLE_0:def 2; thus ex a being Subset of T st a in BB & p in a & a c= A proof per cases by A2,XBOOLE_0:def 2; suppose A12: Y1 \/ Y2 = {} & p in cT1; then consider b1 being Subset of T1 such that A13: b1 in B1 & p in b1 & b1 c= cT1 by A11,Th31; b1 in B1 \/ B2 & b1 in B & a = the carrier of T by A3,A9,A10,A12,A13,CANTOR_1:def 3,XBOOLE_0:def 2; then b1 in BB & b1 is Subset of T & b1 c= A by A8,XBOOLE_0:def 2,XBOOLE_1:1; hence thesis by A13; suppose A14: Y1 \/ Y2 = {} & p in cT2; then consider b2 being Subset of T2 such that A15: b2 in B2 & p in b2 & b2 c= cT2 by A11,Th31; b2 in B1 \/ B2 & b2 in B & a = the carrier of T by A3,A9,A10,A14,A15,CANTOR_1:def 3,XBOOLE_0:def 2; then b2 in BB & b2 is Subset of T & b2 c= A by A8,XBOOLE_0:def 2,XBOOLE_1:1; hence thesis by A15; suppose A16: Y1 = {} & Y2 <> {} & Y <> {}; then A17: a = meet Y2 by A9,A10,CANTOR_1:def 3 .= Intersect Y2 by A16,CANTOR_1:def 3; Y2 c= Y by A10,XBOOLE_1:7; then Y2 is finite & Y2 c= the topology of T2 by A9,FINSET_1:13,XBOOLE_1:17; then a in FinMeetCl the topology of T2 by A17,CANTOR_1:def 4; then a in the topology of T2 & the topology of T2 = UniCl B2 by Th22,CANTOR_1:5; then consider Z being Subset-Family of T2 such that A18: Z c= B2 & a = union Z by CANTOR_1:def 1; consider z being set such that A19: p in z & z in Z by A8,A18,TARSKI:def 4; z in B1 \/ B2 by A18,A19,XBOOLE_0:def 2; then A20: z in BB & z c= a by A18,A19,XBOOLE_0:def 2,ZFMISC_1:92; then z is Subset of T & z c= A by A8,XBOOLE_1:1; hence thesis by A19,A20; suppose A21: Y1 <> {} & Y2 = {} & Y <> {}; then A22: a = meet Y1 by A9,A10,CANTOR_1:def 3 .= Intersect Y1 by A21,CANTOR_1:def 3; Y1 c= Y by A10,XBOOLE_1:7; then Y1 is finite & Y1 c= the topology of T1 by A9,FINSET_1:13,XBOOLE_1:17; then a in FinMeetCl the topology of T1 by A22,CANTOR_1:def 4; then a in the topology of T1 & the topology of T1 = UniCl B1 by Th22,CANTOR_1:5; then consider Z being Subset-Family of T1 such that A23: Z c= B1 & a = union Z by CANTOR_1:def 1; consider z being set such that A24: p in z & z in Z by A8,A23,TARSKI:def 4; z in B1 \/ B2 by A23,A24,XBOOLE_0:def 2; then A25: z in BB & z c= a by A23,A24,XBOOLE_0:def 2,ZFMISC_1:92; then z is Subset of T & z c= A by A8,XBOOLE_1:1; hence thesis by A24,A25; thus thesis; suppose A26: Y1 <> {} & Y2 <> {} & Y <> {}; then A27: a = meet Y by A9,CANTOR_1:def 3 .= (meet Y1)/\meet Y2 by A10,A26,SETFAM_1:10 .= (meet Y1)/\Intersect Y2 by A26,CANTOR_1:def 3 .= (Intersect Y1)/\Intersect Y2 by A26,CANTOR_1:def 3; Y1 c= Y & Y2 c= Y by A10,XBOOLE_1:7; then Y1 is finite & Y2 is finite & Y1 c= the topology of T1 & Y2 c= the topology of T2 by A9,FINSET_1:13,XBOOLE_1:17; then Intersect Y1 in FinMeetCl the topology of T1 & Intersect Y2 in FinMeetCl the topology of T2 by CANTOR_1:def 4; then A28: Intersect Y1 in the topology of T1 & the topology of T1 = UniCl B1 & Intersect Y2 in the topology of T2 & the topology of T2 = UniCl B2 by Th22,CANTOR_1:5; then consider Z1 being Subset-Family of T1 such that A29: Z1 c= B1 & Intersect Y1 = union Z1 by CANTOR_1:def 1; p in Intersect Y1 by A8,A27,XBOOLE_0:def 3; then consider z1 being set such that A30: p in z1 & z1 in Z1 by A29,TARSKI:def 4; consider Z2 being Subset-Family of T2 such that A31: Z2 c= B2 & Intersect Y2 = union Z2 by A28,CANTOR_1:def 1; p in Intersect Y2 by A8,A27,XBOOLE_0:def 3; then consider z2 being set such that A32: p in z2 & z2 in Z2 by A31,TARSKI:def 4; z1 /\ z2 in INTERSECTION(B1,B2) & z1 c= union Z1 & z2 c= union Z2 by A29,A30,A31,A32,SETFAM_1:def 5,ZFMISC_1:92; then A33: z1 /\ z2 in BB & z1 /\ z2 c= a by A27,A29,A31,XBOOLE_0:def 2, XBOOLE_1:27; then z1 /\ z2 is Subset of T & z1 /\ z2 c= A & p in z1 /\ z2 by A8,A30,A32,XBOOLE_0:def 3,XBOOLE_1:1; hence thesis by A33; end; end; hence thesis by A6,Th32; end; theorem Th60: for T1,T2 being non empty TopSpace st the carrier of T1 = the carrier of T2 for T being Refinement of T1, T2 holds INTERSECTION(the topology of T1, the topology of T2) is Basis of T proof let T1,T2 be non empty TopSpace such that A1: the carrier of T1 = the carrier of T2; let T be Refinement of T1, T2; set B1 = the topology of T1, B2 = the topology of T2; UniCl B1 = B1 by CANTOR_1:6; then reconsider B1 as Basis of T1 by Th22; UniCl B2 = B2 by CANTOR_1:6; then reconsider B2 as Basis of T2 by Th22; A2: B1 \/ B2 \/ INTERSECTION(B1,B2) is Basis of T by Th59; A3: the carrier of T1 in B1 & the carrier of T2 in B2 by PRE_TOPC:def 1; A4: B1 c= INTERSECTION(B1,B2) proof let a be set; assume a in B1; then a /\ the carrier of T1 in INTERSECTION(B1,B2) & a c= the carrier of T1 by A1,A3,SETFAM_1:def 5; hence thesis by XBOOLE_1:28; end; B2 c= INTERSECTION(B1,B2) proof let a be set; assume a in B2; then a /\ the carrier of T2 in INTERSECTION(B1,B2) & a c= the carrier of T2 by A1,A3,SETFAM_1:def 5; hence thesis by XBOOLE_1:28; end; then B1 \/ B2 c= INTERSECTION(B1,B2) by A4,XBOOLE_1:8; hence INTERSECTION(the topology of T1, the topology of T2) is Basis of T by A2,XBOOLE_1:12; end; theorem for L being non empty RelStr for T1,T2 being correct TopAugmentation of L for T be Refinement of T1, T2 holds INTERSECTION(the topology of T1, the topology of T2) is Basis of T proof let L be non empty RelStr; let T1,T2 be correct TopAugmentation of L; the RelStr of T1 = the RelStr of L & the RelStr of T2 = the RelStr of L by Def4; hence thesis by Th60; end;