:: The Tichonov Theorem
:: by Bart{\l}omiej Skorulski
::
:: Received May 23, 2000
:: Copyright (c) 2000-2012 Association of Mizar Users


begin

theorem Th1: :: YELLOW17:1
for F being Function
for i, xi being set
for Ai being Subset of (F . i) st (proj (F,i)) " {xi} meets (proj (F,i)) " Ai holds
xi in Ai
proofend;

theorem Th2: :: YELLOW17:2
for F, f being Function
for i, xi being set st xi in F . i & f in product F holds
f +* (i,xi) in product F
proofend;

theorem Th3: :: YELLOW17:3
for F being Function
for i being set st i in dom F holds
( rng (proj (F,i)) c= F . i &amp; ( product F <> {} implies rng (proj (F,i)) = F . i ) )
proofend;

theorem Th4: :: YELLOW17:4
for F being Function
for i being set st i in dom F holds
(proj (F,i)) " (F . i) = product F
proofend;

theorem Th5: :: YELLOW17:5
for F, f being Function
for i, xi being set st xi in F . i &amp; i in dom F &amp; f in product F holds
f +* (i,xi) in (proj (F,i)) " {xi}
proofend;

Lm1:  for F, g being Function
for i1, i2, xi1 being set
for Ai2 being Subset of (F . i2) st i1 <> i2 &amp; g in product F &amp; g +* (i1,xi1) in (proj (F,i2)) " Ai2 holds
g in (proj (F,i2)) " Ai2
proofend;

theorem Th6: :: YELLOW17:6
for F, f being Function
for i1, i2, xi1 being set
for Ai2 being Subset of (F . i2) st xi1 in F . i1 &amp; f in product F &amp; i1 <> i2 holds
( f in (proj (F,i2)) " Ai2 iff f +* (i1,xi1) in (proj (F,i2)) " Ai2 )
proofend;

theorem Th7: :: YELLOW17:7
for F being Function
for i1, i2, xi1 being set
for Ai2 being Subset of (F . i2) st product F <> {} &amp; xi1 in F . i1 &amp; i1 in dom F &amp; i2 in dom F &amp; Ai2 <> F . i2 holds
( (proj (F,i1)) " {xi1} c= (proj (F,i2)) " Ai2 iff ( i1 = i2 &amp; xi1 in Ai2 ) )
proofend;

scheme :: YELLOW17:sch 1
ElProductEx{ F1() ->  non empty set , F2() ->  non-Empty TopStruct-yielding ManySortedSet of F1(), P1[ set , set ] } :
 ex f being Element of (product F2()) st
for i being Element of F1() holds P1[f . i,i]
provided
A1: for i being Element of F1() ex x being Element of (F2() . i) st P1[x,i]
proofend;

theorem Th8: :: YELLOW17:8
for I being non empty set
for J being non-Empty TopStruct-yielding ManySortedSet of I
for i being Element of I
for f being Element of (product J) holds (proj (J,i)) . f = f . i
proofend;

theorem Th9: :: YELLOW17:9
for I being non empty set
for J being non-Empty TopStruct-yielding ManySortedSet of I
for i being Element of I
for xi being Element of (J . i)
for Ai being Subset of (J . i) st (proj (J,i)) " {xi} meets (proj (J,i)) " Ai holds
xi in Ai
proofend;

theorem Th10: :: YELLOW17:10
for I being non empty set
for J being non-Empty TopStruct-yielding ManySortedSet of I
for i being Element of I holds (proj (J,i)) " ([#] (J . i)) = [#] (product J)
proofend;

theorem Th11: :: YELLOW17:11
for I being non empty set
for J being non-Empty TopStruct-yielding ManySortedSet of I
for i being Element of I
for xi being Element of (J . i)
for f being Element of (product J) holds f +* (i,xi) in (proj (J,i)) " {xi}
proofend;

theorem Th12: :: YELLOW17:12
for I being non empty set
for J being non-Empty TopStruct-yielding ManySortedSet of I
for i1, i2 being Element of I
for xi1 being Element of (J . i1)
for Ai2 being Subset of (J . i2) st Ai2 <> [#] (J . i2) holds
( (proj (J,i1)) " {xi1} c= (proj (J,i2)) " Ai2 iff ( i1 = i2 &amp; xi1 in Ai2 ) )
proofend;

theorem Th13: :: YELLOW17:13
for I being non empty set
for J being non-Empty TopStruct-yielding ManySortedSet of I
for i1, i2 being Element of I
for xi1 being Element of (J . i1)
for Ai2 being Subset of (J . i2)
for f being Element of (product J) st i1 <> i2 holds
( f in (proj (J,i2)) " Ai2 iff f +* (i1,xi1) in (proj (J,i2)) " Ai2 )
proofend;

begin

theorem Th14: :: YELLOW17:14
for T being non empty TopStruct holds
( T is compact iff for F being Subset-Family of T st F is open &amp; [#] T c= union F holds
ex G being Subset-Family of T st
( G c= F &amp; [#] T c= union G &amp; G is finite ) )
proofend;

theorem Th15: :: YELLOW17:15
for T being non empty TopSpace
for B being prebasis of T holds
( T is compact iff for F being Subset of B st [#] T c= union F holds
ex G being finite Subset of F st [#] T c= union G )
proofend;

begin

theorem Th16: :: YELLOW17:16
for I being non empty set
for J being non-Empty TopStruct-yielding ManySortedSet of I
for A being set st A in product_prebasis J holds
ex i being Element of I ex Ai being Subset of (J . i) st
( Ai is open &amp; (proj (J,i)) " Ai = A )
proofend;

theorem Th17: :: YELLOW17:17
for I being non empty set
for J being non-Empty TopStruct-yielding ManySortedSet of I
for i being Element of I
for xi being Element of (J . i)
for A being set st A in product_prebasis J &amp; (proj (J,i)) " {xi} c= A &amp; not A = [#] (product J) holds
ex Ai being Subset of (J . i) st
( Ai <> [#] (J . i) &amp; xi in Ai &amp; Ai is open &amp; A = (proj (J,i)) " Ai )
proofend;

theorem Th18: :: YELLOW17:18
for I being non empty set
for J being non-Empty TopStruct-yielding ManySortedSet of I
for i being Element of I
for Fi being non empty Subset-Family of (J . i) st [#] (J . i) c= union Fi holds
[#] (product J) c= union  {  ((proj (J,i)) " Ai) where Ai is Element of Fi : verum  }
proofend;

theorem Th19: :: YELLOW17:19
for I being non empty set
for J being non-Empty TopStruct-yielding ManySortedSet of I
for i being Element of I
for xi being Element of (J . i)
for G being Subset of (product_prebasis J) st (proj (J,i)) " {xi} c= union G &amp; ( for A being set st A in product_prebasis J &amp; A in G holds
not (proj (J,i)) " {xi} c= A ) holds
[#] (product J) c= union G
proofend;

theorem Th20: :: YELLOW17:20
for I being non empty set
for J being non-Empty TopStruct-yielding ManySortedSet of I
for i being Element of I
for F being Subset of (product_prebasis J) st ( for G being finite Subset of F holds not [#] (product J) c= union G ) holds
for xi being Element of (J . i)
for G being finite Subset of F st (proj (J,i)) " {xi} c= union G holds
ex A being set st
( A in product_prebasis J &amp; A in G &amp; (proj (J,i)) " {xi} c= A )
proofend;

theorem Th21: :: YELLOW17:21
for I being non empty set
for J being non-Empty TopStruct-yielding ManySortedSet of I
for i being Element of I
for F being Subset of (product_prebasis J) st ( for G being finite Subset of F holds not [#] (product J) c= union G ) holds
for xi being Element of (J . i)
for G being finite Subset of F st (proj (J,i)) " {xi} c= union G holds
ex Ai being Subset of (J . i) st
( Ai <> [#] (J . i) &amp; xi in Ai &amp; (proj (J,i)) " Ai in G &amp; Ai is open )
proofend;

theorem Th22: :: YELLOW17:22
for I being non empty set
for J being non-Empty TopStruct-yielding ManySortedSet of I
for i being Element of I
for F being Subset of (product_prebasis J) st ( for i being Element of I holds J . i is compact ) &amp; ( for G being finite Subset of F holds not [#] (product J) c= union G ) holds
ex xi being Element of (J . i) st
for G being finite Subset of F holds not (proj (J,i)) " {xi} c= union G
proofend;

:: [WP: ] Tichonov_Theorem
theorem :: YELLOW17:23
for I being non empty set
for J being non-Empty TopStruct-yielding ManySortedSet of I st ( for i being Element of I holds J . i is compact ) holds
product J is compact
proofend;