MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  ptcld Structured version   Visualization version   GIF version

Theorem ptcld 23578
Description: A closed box in the product topology. (Contributed by Stefan O'Rear, 22-Feb-2015.)
Hypotheses
Ref Expression
ptcld.a (𝜑𝐴𝑉)
ptcld.f (𝜑𝐹:𝐴⟶Top)
ptcld.c ((𝜑𝑘𝐴) → 𝐶 ∈ (Clsd‘(𝐹𝑘)))
Assertion
Ref Expression
ptcld (𝜑X𝑘𝐴 𝐶 ∈ (Clsd‘(∏t𝐹)))
Distinct variable groups:   𝜑,𝑘   𝐴,𝑘   𝑘,𝐹   𝑘,𝑉
Allowed substitution hint:   𝐶(𝑘)

Proof of Theorem ptcld
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 ptcld.c . . . . 5 ((𝜑𝑘𝐴) → 𝐶 ∈ (Clsd‘(𝐹𝑘)))
2 eqid 2736 . . . . . 6 (𝐹𝑘) = (𝐹𝑘)
32cldss 22994 . . . . 5 (𝐶 ∈ (Clsd‘(𝐹𝑘)) → 𝐶 (𝐹𝑘))
41, 3syl 17 . . . 4 ((𝜑𝑘𝐴) → 𝐶 (𝐹𝑘))
54ralrimiva 3129 . . 3 (𝜑 → ∀𝑘𝐴 𝐶 (𝐹𝑘))
6 boxriin 8888 . . 3 (∀𝑘𝐴 𝐶 (𝐹𝑘) → X𝑘𝐴 𝐶 = (X𝑘𝐴 (𝐹𝑘) ∩ 𝑥𝐴 X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘))))
75, 6syl 17 . 2 (𝜑X𝑘𝐴 𝐶 = (X𝑘𝐴 (𝐹𝑘) ∩ 𝑥𝐴 X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘))))
8 ptcld.a . . . . 5 (𝜑𝐴𝑉)
9 ptcld.f . . . . 5 (𝜑𝐹:𝐴⟶Top)
10 eqid 2736 . . . . . 6 (∏t𝐹) = (∏t𝐹)
1110ptuni 23559 . . . . 5 ((𝐴𝑉𝐹:𝐴⟶Top) → X𝑘𝐴 (𝐹𝑘) = (∏t𝐹))
128, 9, 11syl2anc 585 . . . 4 (𝜑X𝑘𝐴 (𝐹𝑘) = (∏t𝐹))
1312ineq1d 4159 . . 3 (𝜑 → (X𝑘𝐴 (𝐹𝑘) ∩ 𝑥𝐴 X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘))) = ( (∏t𝐹) ∩ 𝑥𝐴 X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘))))
14 pttop 23547 . . . . 5 ((𝐴𝑉𝐹:𝐴⟶Top) → (∏t𝐹) ∈ Top)
158, 9, 14syl2anc 585 . . . 4 (𝜑 → (∏t𝐹) ∈ Top)
16 sseq1 3947 . . . . . . . . . . 11 (𝐶 = if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) → (𝐶 (𝐹𝑘) ↔ if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) ⊆ (𝐹𝑘)))
17 sseq1 3947 . . . . . . . . . . 11 ( (𝐹𝑘) = if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) → ( (𝐹𝑘) ⊆ (𝐹𝑘) ↔ if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) ⊆ (𝐹𝑘)))
18 simpl 482 . . . . . . . . . . 11 ((𝐶 (𝐹𝑘) ∧ 𝑘 = 𝑥) → 𝐶 (𝐹𝑘))
19 ssidd 3945 . . . . . . . . . . 11 ((𝐶 (𝐹𝑘) ∧ ¬ 𝑘 = 𝑥) → (𝐹𝑘) ⊆ (𝐹𝑘))
2016, 17, 18, 19ifbothda 4505 . . . . . . . . . 10 (𝐶 (𝐹𝑘) → if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) ⊆ (𝐹𝑘))
2120ralimi 3074 . . . . . . . . 9 (∀𝑘𝐴 𝐶 (𝐹𝑘) → ∀𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) ⊆ (𝐹𝑘))
22 ss2ixp 8858 . . . . . . . . 9 (∀𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) ⊆ (𝐹𝑘) → X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) ⊆ X𝑘𝐴 (𝐹𝑘))
235, 21, 223syl 18 . . . . . . . 8 (𝜑X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) ⊆ X𝑘𝐴 (𝐹𝑘))
2423adantr 480 . . . . . . 7 ((𝜑𝑥𝐴) → X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) ⊆ X𝑘𝐴 (𝐹𝑘))
2512adantr 480 . . . . . . 7 ((𝜑𝑥𝐴) → X𝑘𝐴 (𝐹𝑘) = (∏t𝐹))
2624, 25sseqtrd 3958 . . . . . 6 ((𝜑𝑥𝐴) → X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) ⊆ (∏t𝐹))
2712eqcomd 2742 . . . . . . . . . 10 (𝜑 (∏t𝐹) = X𝑘𝐴 (𝐹𝑘))
2827difeq1d 4065 . . . . . . . . 9 (𝜑 → ( (∏t𝐹) ∖ X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘))) = (X𝑘𝐴 (𝐹𝑘) ∖ X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘))))
2928adantr 480 . . . . . . . 8 ((𝜑𝑥𝐴) → ( (∏t𝐹) ∖ X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘))) = (X𝑘𝐴 (𝐹𝑘) ∖ X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘))))
30 simpr 484 . . . . . . . . 9 ((𝜑𝑥𝐴) → 𝑥𝐴)
315adantr 480 . . . . . . . . 9 ((𝜑𝑥𝐴) → ∀𝑘𝐴 𝐶 (𝐹𝑘))
32 boxcutc 8889 . . . . . . . . 9 ((𝑥𝐴 ∧ ∀𝑘𝐴 𝐶 (𝐹𝑘)) → (X𝑘𝐴 (𝐹𝑘) ∖ X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘))) = X𝑘𝐴 if(𝑘 = 𝑥, ( (𝐹𝑘) ∖ 𝐶), (𝐹𝑘)))
3330, 31, 32syl2anc 585 . . . . . . . 8 ((𝜑𝑥𝐴) → (X𝑘𝐴 (𝐹𝑘) ∖ X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘))) = X𝑘𝐴 if(𝑘 = 𝑥, ( (𝐹𝑘) ∖ 𝐶), (𝐹𝑘)))
34 ixpeq2 8859 . . . . . . . . . 10 (∀𝑘𝐴 if(𝑘 = 𝑥, ( (𝐹𝑘) ∖ 𝐶), (𝐹𝑘)) = if(𝑘 = 𝑥, ( (𝐹𝑥) ∖ 𝑥 / 𝑘𝐶), (𝐹𝑘)) → X𝑘𝐴 if(𝑘 = 𝑥, ( (𝐹𝑘) ∖ 𝐶), (𝐹𝑘)) = X𝑘𝐴 if(𝑘 = 𝑥, ( (𝐹𝑥) ∖ 𝑥 / 𝑘𝐶), (𝐹𝑘)))
35 fveq2 6840 . . . . . . . . . . . . . 14 (𝑘 = 𝑥 → (𝐹𝑘) = (𝐹𝑥))
3635unieqd 4863 . . . . . . . . . . . . 13 (𝑘 = 𝑥 (𝐹𝑘) = (𝐹𝑥))
37 csbeq1a 3851 . . . . . . . . . . . . 13 (𝑘 = 𝑥𝐶 = 𝑥 / 𝑘𝐶)
3836, 37difeq12d 4067 . . . . . . . . . . . 12 (𝑘 = 𝑥 → ( (𝐹𝑘) ∖ 𝐶) = ( (𝐹𝑥) ∖ 𝑥 / 𝑘𝐶))
3938adantl 481 . . . . . . . . . . 11 ((𝑘𝐴𝑘 = 𝑥) → ( (𝐹𝑘) ∖ 𝐶) = ( (𝐹𝑥) ∖ 𝑥 / 𝑘𝐶))
4039ifeq1da 4498 . . . . . . . . . 10 (𝑘𝐴 → if(𝑘 = 𝑥, ( (𝐹𝑘) ∖ 𝐶), (𝐹𝑘)) = if(𝑘 = 𝑥, ( (𝐹𝑥) ∖ 𝑥 / 𝑘𝐶), (𝐹𝑘)))
4134, 40mprg 3057 . . . . . . . . 9 X𝑘𝐴 if(𝑘 = 𝑥, ( (𝐹𝑘) ∖ 𝐶), (𝐹𝑘)) = X𝑘𝐴 if(𝑘 = 𝑥, ( (𝐹𝑥) ∖ 𝑥 / 𝑘𝐶), (𝐹𝑘))
4241a1i 11 . . . . . . . 8 ((𝜑𝑥𝐴) → X𝑘𝐴 if(𝑘 = 𝑥, ( (𝐹𝑘) ∖ 𝐶), (𝐹𝑘)) = X𝑘𝐴 if(𝑘 = 𝑥, ( (𝐹𝑥) ∖ 𝑥 / 𝑘𝐶), (𝐹𝑘)))
4329, 33, 423eqtrd 2775 . . . . . . 7 ((𝜑𝑥𝐴) → ( (∏t𝐹) ∖ X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘))) = X𝑘𝐴 if(𝑘 = 𝑥, ( (𝐹𝑥) ∖ 𝑥 / 𝑘𝐶), (𝐹𝑘)))
448adantr 480 . . . . . . . 8 ((𝜑𝑥𝐴) → 𝐴𝑉)
459adantr 480 . . . . . . . 8 ((𝜑𝑥𝐴) → 𝐹:𝐴⟶Top)
461ralrimiva 3129 . . . . . . . . . . 11 (𝜑 → ∀𝑘𝐴 𝐶 ∈ (Clsd‘(𝐹𝑘)))
47 nfv 1916 . . . . . . . . . . . 12 𝑥 𝐶 ∈ (Clsd‘(𝐹𝑘))
48 nfcsb1v 3861 . . . . . . . . . . . . 13 𝑘𝑥 / 𝑘𝐶
4948nfel1 2915 . . . . . . . . . . . 12 𝑘𝑥 / 𝑘𝐶 ∈ (Clsd‘(𝐹𝑥))
50 2fveq3 6845 . . . . . . . . . . . . 13 (𝑘 = 𝑥 → (Clsd‘(𝐹𝑘)) = (Clsd‘(𝐹𝑥)))
5137, 50eleq12d 2830 . . . . . . . . . . . 12 (𝑘 = 𝑥 → (𝐶 ∈ (Clsd‘(𝐹𝑘)) ↔ 𝑥 / 𝑘𝐶 ∈ (Clsd‘(𝐹𝑥))))
5247, 49, 51cbvralw 3279 . . . . . . . . . . 11 (∀𝑘𝐴 𝐶 ∈ (Clsd‘(𝐹𝑘)) ↔ ∀𝑥𝐴 𝑥 / 𝑘𝐶 ∈ (Clsd‘(𝐹𝑥)))
5346, 52sylib 218 . . . . . . . . . 10 (𝜑 → ∀𝑥𝐴 𝑥 / 𝑘𝐶 ∈ (Clsd‘(𝐹𝑥)))
5453r19.21bi 3229 . . . . . . . . 9 ((𝜑𝑥𝐴) → 𝑥 / 𝑘𝐶 ∈ (Clsd‘(𝐹𝑥)))
55 eqid 2736 . . . . . . . . . 10 (𝐹𝑥) = (𝐹𝑥)
5655cldopn 22996 . . . . . . . . 9 (𝑥 / 𝑘𝐶 ∈ (Clsd‘(𝐹𝑥)) → ( (𝐹𝑥) ∖ 𝑥 / 𝑘𝐶) ∈ (𝐹𝑥))
5754, 56syl 17 . . . . . . . 8 ((𝜑𝑥𝐴) → ( (𝐹𝑥) ∖ 𝑥 / 𝑘𝐶) ∈ (𝐹𝑥))
5844, 45, 57ptopn2 23549 . . . . . . 7 ((𝜑𝑥𝐴) → X𝑘𝐴 if(𝑘 = 𝑥, ( (𝐹𝑥) ∖ 𝑥 / 𝑘𝐶), (𝐹𝑘)) ∈ (∏t𝐹))
5943, 58eqeltrd 2836 . . . . . 6 ((𝜑𝑥𝐴) → ( (∏t𝐹) ∖ X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘))) ∈ (∏t𝐹))
60 eqid 2736 . . . . . . . . 9 (∏t𝐹) = (∏t𝐹)
6160iscld 22992 . . . . . . . 8 ((∏t𝐹) ∈ Top → (X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) ∈ (Clsd‘(∏t𝐹)) ↔ (X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) ⊆ (∏t𝐹) ∧ ( (∏t𝐹) ∖ X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘))) ∈ (∏t𝐹))))
6215, 61syl 17 . . . . . . 7 (𝜑 → (X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) ∈ (Clsd‘(∏t𝐹)) ↔ (X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) ⊆ (∏t𝐹) ∧ ( (∏t𝐹) ∖ X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘))) ∈ (∏t𝐹))))
6362adantr 480 . . . . . 6 ((𝜑𝑥𝐴) → (X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) ∈ (Clsd‘(∏t𝐹)) ↔ (X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) ⊆ (∏t𝐹) ∧ ( (∏t𝐹) ∖ X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘))) ∈ (∏t𝐹))))
6426, 59, 63mpbir2and 714 . . . . 5 ((𝜑𝑥𝐴) → X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) ∈ (Clsd‘(∏t𝐹)))
6564ralrimiva 3129 . . . 4 (𝜑 → ∀𝑥𝐴 X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) ∈ (Clsd‘(∏t𝐹)))
6660riincld 23009 . . . 4 (((∏t𝐹) ∈ Top ∧ ∀𝑥𝐴 X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘)) ∈ (Clsd‘(∏t𝐹))) → ( (∏t𝐹) ∩ 𝑥𝐴 X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘))) ∈ (Clsd‘(∏t𝐹)))
6715, 65, 66syl2anc 585 . . 3 (𝜑 → ( (∏t𝐹) ∩ 𝑥𝐴 X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘))) ∈ (Clsd‘(∏t𝐹)))
6813, 67eqeltrd 2836 . 2 (𝜑 → (X𝑘𝐴 (𝐹𝑘) ∩ 𝑥𝐴 X𝑘𝐴 if(𝑘 = 𝑥, 𝐶, (𝐹𝑘))) ∈ (Clsd‘(∏t𝐹)))
697, 68eqeltrd 2836 1 (𝜑X𝑘𝐴 𝐶 ∈ (Clsd‘(∏t𝐹)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395   = wceq 1542  wcel 2114  wral 3051  csb 3837  cdif 3886  cin 3888  wss 3889  ifcif 4466   cuni 4850   ciin 4934  wf 6494  cfv 6498  Xcixp 8845  tcpt 17401  Topctop 22858  Clsdccld 22981
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2708  ax-rep 5212  ax-sep 5231  ax-nul 5241  ax-pow 5307  ax-pr 5375  ax-un 7689
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-ral 3052  df-rex 3062  df-reu 3343  df-rab 3390  df-v 3431  df-sbc 3729  df-csb 3838  df-dif 3892  df-un 3894  df-in 3896  df-ss 3906  df-pss 3909  df-nul 4274  df-if 4467  df-pw 4543  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4851  df-int 4890  df-iun 4935  df-iin 4936  df-br 5086  df-opab 5148  df-mpt 5167  df-tr 5193  df-id 5526  df-eprel 5531  df-po 5539  df-so 5540  df-fr 5584  df-we 5586  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-ord 6326  df-on 6327  df-lim 6328  df-suc 6329  df-iota 6454  df-fun 6500  df-fn 6501  df-f 6502  df-f1 6503  df-fo 6504  df-f1o 6505  df-fv 6506  df-om 7818  df-1o 8405  df-2o 8406  df-ixp 8846  df-en 8894  df-fin 8897  df-fi 9324  df-topgen 17406  df-pt 17407  df-top 22859  df-bases 22911  df-cld 22984
This theorem is referenced by:  ptcldmpt  23579
  Copyright terms: Public domain W3C validator