Theorem kur14lem6 35413

Description: Lemma for kur14 35418. If 𝑘 is the complementation operator and 𝑘 is the closure operator, this expresses the identity 𝑘𝑐𝑘𝐴 = 𝑘𝑐𝑘𝑐𝑘𝑐𝑘𝐴 for any subset 𝐴 of the topological space. This is the key result that lets us cut down long enough sequences of 𝑐𝑘𝑐𝑘... that arise when applying closure and complement repeatedly to 𝐴, and explains why we end up with a number as large as 14, yet no larger. (Contributed by Mario Carneiro, 11-Feb-2015.)

Hypotheses

Ref	Expression
kur14lem.j	⊢ 𝐽 ∈ Top
kur14lem.x	⊢ 𝑋 = ∪ 𝐽
kur14lem.k	⊢ 𝐾 = (cls‘𝐽)
kur14lem.i	⊢ 𝐼 = (int‘𝐽)
kur14lem.a	⊢ 𝐴 ⊆ 𝑋
kur14lem.b	⊢ 𝐵 = (𝑋 ∖ (𝐾‘𝐴))

Assertion

Ref	Expression
kur14lem6	⊢ (𝐾‘(𝐼‘(𝐾‘𝐵))) = (𝐾‘𝐵)

Proof of Theorem kur14lem6

Step	Hyp	Ref	Expression
1		kur14lem.j	. . . . 5 ⊢ 𝐽 ∈ Top
2		kur14lem.x	. . . . . 6 ⊢ 𝑋 = ∪ 𝐽
3		kur14lem.k	. . . . . 6 ⊢ 𝐾 = (cls‘𝐽)
4		kur14lem.i	. . . . . 6 ⊢ 𝐼 = (int‘𝐽)
5		kur14lem.b	. . . . . . 7 ⊢ 𝐵 = (𝑋 ∖ (𝐾‘𝐴))
6		difss 4077	. . . . . . 7 ⊢ (𝑋 ∖ (𝐾‘𝐴)) ⊆ 𝑋
7	5, 6	eqsstri 3969	. . . . . 6 ⊢ 𝐵 ⊆ 𝑋
8	1, 2, 3, 4, 7	kur14lem3 35410	. . . . 5 ⊢ (𝐾‘𝐵) ⊆ 𝑋
9	4	fveq1i 6837	. . . . . 6 ⊢ (𝐼‘(𝐾‘𝐵)) = ((int‘𝐽)‘(𝐾‘𝐵))
10	2	ntrss2 23036	. . . . . . 7 ⊢ ((𝐽 ∈ Top ∧ (𝐾‘𝐵) ⊆ 𝑋) → ((int‘𝐽)‘(𝐾‘𝐵)) ⊆ (𝐾‘𝐵))
11	1, 8, 10	mp2an 693	. . . . . 6 ⊢ ((int‘𝐽)‘(𝐾‘𝐵)) ⊆ (𝐾‘𝐵)
12	9, 11	eqsstri 3969	. . . . 5 ⊢ (𝐼‘(𝐾‘𝐵)) ⊆ (𝐾‘𝐵)
13	2	clsss 23033	. . . . 5 ⊢ ((𝐽 ∈ Top ∧ (𝐾‘𝐵) ⊆ 𝑋 ∧ (𝐼‘(𝐾‘𝐵)) ⊆ (𝐾‘𝐵)) → ((cls‘𝐽)‘(𝐼‘(𝐾‘𝐵))) ⊆ ((cls‘𝐽)‘(𝐾‘𝐵)))
14	1, 8, 12, 13	mp3an 1464	. . . 4 ⊢ ((cls‘𝐽)‘(𝐼‘(𝐾‘𝐵))) ⊆ ((cls‘𝐽)‘(𝐾‘𝐵))
15	3	fveq1i 6837	. . . 4 ⊢ (𝐾‘(𝐼‘(𝐾‘𝐵))) = ((cls‘𝐽)‘(𝐼‘(𝐾‘𝐵)))
16	3	fveq1i 6837	. . . 4 ⊢ (𝐾‘(𝐾‘𝐵)) = ((cls‘𝐽)‘(𝐾‘𝐵))
17	14, 15, 16	3sstr4i 3974	. . 3 ⊢ (𝐾‘(𝐼‘(𝐾‘𝐵))) ⊆ (𝐾‘(𝐾‘𝐵))
18	1, 2, 3, 4, 7	kur14lem5 35412	. . 3 ⊢ (𝐾‘(𝐾‘𝐵)) = (𝐾‘𝐵)
19	17, 18	sseqtri 3971	. 2 ⊢ (𝐾‘(𝐼‘(𝐾‘𝐵))) ⊆ (𝐾‘𝐵)
20	1, 2, 3, 4, 8	kur14lem2 35409	. . . . 5 ⊢ (𝐼‘(𝐾‘𝐵)) = (𝑋 ∖ (𝐾‘(𝑋 ∖ (𝐾‘𝐵))))
21		difss 4077	. . . . 5 ⊢ (𝑋 ∖ (𝐾‘(𝑋 ∖ (𝐾‘𝐵)))) ⊆ 𝑋
22	20, 21	eqsstri 3969	. . . 4 ⊢ (𝐼‘(𝐾‘𝐵)) ⊆ 𝑋
23		kur14lem.a	. . . . . . . . 9 ⊢ 𝐴 ⊆ 𝑋
24	1, 2, 3, 4, 23	kur14lem3 35410	. . . . . . . 8 ⊢ (𝐾‘𝐴) ⊆ 𝑋
25	5	fveq2i 6839	. . . . . . . . . . 11 ⊢ (𝐾‘𝐵) = (𝐾‘(𝑋 ∖ (𝐾‘𝐴)))
26	25	difeq2i 4064	. . . . . . . . . 10 ⊢ (𝑋 ∖ (𝐾‘𝐵)) = (𝑋 ∖ (𝐾‘(𝑋 ∖ (𝐾‘𝐴))))
27	1, 2, 3, 4, 24	kur14lem2 35409	. . . . . . . . . 10 ⊢ (𝐼‘(𝐾‘𝐴)) = (𝑋 ∖ (𝐾‘(𝑋 ∖ (𝐾‘𝐴))))
28	4	fveq1i 6837	. . . . . . . . . 10 ⊢ (𝐼‘(𝐾‘𝐴)) = ((int‘𝐽)‘(𝐾‘𝐴))
29	26, 27, 28	3eqtr2i 2766	. . . . . . . . 9 ⊢ (𝑋 ∖ (𝐾‘𝐵)) = ((int‘𝐽)‘(𝐾‘𝐴))
30	2	ntrss2 23036	. . . . . . . . . 10 ⊢ ((𝐽 ∈ Top ∧ (𝐾‘𝐴) ⊆ 𝑋) → ((int‘𝐽)‘(𝐾‘𝐴)) ⊆ (𝐾‘𝐴))
31	1, 24, 30	mp2an 693	. . . . . . . . 9 ⊢ ((int‘𝐽)‘(𝐾‘𝐴)) ⊆ (𝐾‘𝐴)
32	29, 31	eqsstri 3969	. . . . . . . 8 ⊢ (𝑋 ∖ (𝐾‘𝐵)) ⊆ (𝐾‘𝐴)
33	2	clsss 23033	. . . . . . . 8 ⊢ ((𝐽 ∈ Top ∧ (𝐾‘𝐴) ⊆ 𝑋 ∧ (𝑋 ∖ (𝐾‘𝐵)) ⊆ (𝐾‘𝐴)) → ((cls‘𝐽)‘(𝑋 ∖ (𝐾‘𝐵))) ⊆ ((cls‘𝐽)‘(𝐾‘𝐴)))
34	1, 24, 32, 33	mp3an 1464	. . . . . . 7 ⊢ ((cls‘𝐽)‘(𝑋 ∖ (𝐾‘𝐵))) ⊆ ((cls‘𝐽)‘(𝐾‘𝐴))
35	3	fveq1i 6837	. . . . . . 7 ⊢ (𝐾‘(𝑋 ∖ (𝐾‘𝐵))) = ((cls‘𝐽)‘(𝑋 ∖ (𝐾‘𝐵)))
36	1, 2, 3, 4, 23	kur14lem5 35412	. . . . . . . 8 ⊢ (𝐾‘(𝐾‘𝐴)) = (𝐾‘𝐴)
37	3	fveq1i 6837	. . . . . . . 8 ⊢ (𝐾‘(𝐾‘𝐴)) = ((cls‘𝐽)‘(𝐾‘𝐴))
38	36, 37	eqtr3i 2762	. . . . . . 7 ⊢ (𝐾‘𝐴) = ((cls‘𝐽)‘(𝐾‘𝐴))
39	34, 35, 38	3sstr4i 3974	. . . . . 6 ⊢ (𝐾‘(𝑋 ∖ (𝐾‘𝐵))) ⊆ (𝐾‘𝐴)
40		sscon 4084	. . . . . 6 ⊢ ((𝐾‘(𝑋 ∖ (𝐾‘𝐵))) ⊆ (𝐾‘𝐴) → (𝑋 ∖ (𝐾‘𝐴)) ⊆ (𝑋 ∖ (𝐾‘(𝑋 ∖ (𝐾‘𝐵)))))
41	39, 40	ax-mp 5	. . . . 5 ⊢ (𝑋 ∖ (𝐾‘𝐴)) ⊆ (𝑋 ∖ (𝐾‘(𝑋 ∖ (𝐾‘𝐵))))
42	41, 5, 20	3sstr4i 3974	. . . 4 ⊢ 𝐵 ⊆ (𝐼‘(𝐾‘𝐵))
43	2	clsss 23033	. . . 4 ⊢ ((𝐽 ∈ Top ∧ (𝐼‘(𝐾‘𝐵)) ⊆ 𝑋 ∧ 𝐵 ⊆ (𝐼‘(𝐾‘𝐵))) → ((cls‘𝐽)‘𝐵) ⊆ ((cls‘𝐽)‘(𝐼‘(𝐾‘𝐵))))
44	1, 22, 42, 43	mp3an 1464	. . 3 ⊢ ((cls‘𝐽)‘𝐵) ⊆ ((cls‘𝐽)‘(𝐼‘(𝐾‘𝐵)))
45	3	fveq1i 6837	. . 3 ⊢ (𝐾‘𝐵) = ((cls‘𝐽)‘𝐵)
46	44, 45, 15	3sstr4i 3974	. 2 ⊢ (𝐾‘𝐵) ⊆ (𝐾‘(𝐼‘(𝐾‘𝐵)))
47	19, 46	eqssi 3939	1 ⊢ (𝐾‘(𝐼‘(𝐾‘𝐵))) = (𝐾‘𝐵)

Syntax hints:   = wceq 1542   ∈ wcel 2114   ∖ cdif 3887   ⊆ wss 3890  ∪ cuni 4851  ‘cfv 6494  Topctop 22872  intcnt 22996  clsccl 22997

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 2709  ax-rep 5213  ax-sep 5232  ax-nul 5242  ax-pow 5304  ax-pr 5372  ax-un 7684

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-int 4891  df-iun 4936  df-iin 4937  df-br 5087  df-opab 5149  df-mpt 5168  df-id 5521  df-xp 5632  df-rel 5633  df-cnv 5634  df-co 5635  df-dm 5636  df-rn 5637  df-res 5638  df-ima 5639  df-iota 6450  df-fun 6496  df-fn 6497  df-f 6498  df-f1 6499  df-fo 6500  df-f1o 6501  df-fv 6502  df-top 22873  df-cld 22998  df-ntr 22999  df-cls 23000

This theorem is referenced by:  kur14lem7  35414