Metamath Proof Explorer


Theorem ntrclsk3

Description: The intersection of interiors of a every pair is a subset of the interior of the intersection of the pair if an only if the closure of the union of every pair is a subset of the union of closures of the pair. (Contributed by RP, 19-Jun-2021)

Ref Expression
Hypotheses ntrcls.o 𝑂 = ( 𝑖 ∈ V ↦ ( 𝑘 ∈ ( 𝒫 𝑖m 𝒫 𝑖 ) ↦ ( 𝑗 ∈ 𝒫 𝑖 ↦ ( 𝑖 ∖ ( 𝑘 ‘ ( 𝑖𝑗 ) ) ) ) ) )
ntrcls.d 𝐷 = ( 𝑂𝐵 )
ntrcls.r ( 𝜑𝐼 𝐷 𝐾 )
Assertion ntrclsk3 ( 𝜑 → ( ∀ 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ( ( 𝐼𝑠 ) ∩ ( 𝐼𝑡 ) ) ⊆ ( 𝐼 ‘ ( 𝑠𝑡 ) ) ↔ ∀ 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ( 𝐾 ‘ ( 𝑠𝑡 ) ) ⊆ ( ( 𝐾𝑠 ) ∪ ( 𝐾𝑡 ) ) ) )

Proof

Step Hyp Ref Expression
1 ntrcls.o 𝑂 = ( 𝑖 ∈ V ↦ ( 𝑘 ∈ ( 𝒫 𝑖m 𝒫 𝑖 ) ↦ ( 𝑗 ∈ 𝒫 𝑖 ↦ ( 𝑖 ∖ ( 𝑘 ‘ ( 𝑖𝑗 ) ) ) ) ) )
2 ntrcls.d 𝐷 = ( 𝑂𝐵 )
3 ntrcls.r ( 𝜑𝐼 𝐷 𝐾 )
4 fveq2 ( 𝑠 = 𝑎 → ( 𝐼𝑠 ) = ( 𝐼𝑎 ) )
5 4 ineq1d ( 𝑠 = 𝑎 → ( ( 𝐼𝑠 ) ∩ ( 𝐼𝑡 ) ) = ( ( 𝐼𝑎 ) ∩ ( 𝐼𝑡 ) ) )
6 ineq1 ( 𝑠 = 𝑎 → ( 𝑠𝑡 ) = ( 𝑎𝑡 ) )
7 6 fveq2d ( 𝑠 = 𝑎 → ( 𝐼 ‘ ( 𝑠𝑡 ) ) = ( 𝐼 ‘ ( 𝑎𝑡 ) ) )
8 5 7 sseq12d ( 𝑠 = 𝑎 → ( ( ( 𝐼𝑠 ) ∩ ( 𝐼𝑡 ) ) ⊆ ( 𝐼 ‘ ( 𝑠𝑡 ) ) ↔ ( ( 𝐼𝑎 ) ∩ ( 𝐼𝑡 ) ) ⊆ ( 𝐼 ‘ ( 𝑎𝑡 ) ) ) )
9 fveq2 ( 𝑡 = 𝑏 → ( 𝐼𝑡 ) = ( 𝐼𝑏 ) )
10 9 ineq2d ( 𝑡 = 𝑏 → ( ( 𝐼𝑎 ) ∩ ( 𝐼𝑡 ) ) = ( ( 𝐼𝑎 ) ∩ ( 𝐼𝑏 ) ) )
11 ineq2 ( 𝑡 = 𝑏 → ( 𝑎𝑡 ) = ( 𝑎𝑏 ) )
12 11 fveq2d ( 𝑡 = 𝑏 → ( 𝐼 ‘ ( 𝑎𝑡 ) ) = ( 𝐼 ‘ ( 𝑎𝑏 ) ) )
13 10 12 sseq12d ( 𝑡 = 𝑏 → ( ( ( 𝐼𝑎 ) ∩ ( 𝐼𝑡 ) ) ⊆ ( 𝐼 ‘ ( 𝑎𝑡 ) ) ↔ ( ( 𝐼𝑎 ) ∩ ( 𝐼𝑏 ) ) ⊆ ( 𝐼 ‘ ( 𝑎𝑏 ) ) ) )
14 8 13 cbvral2vw ( ∀ 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ( ( 𝐼𝑠 ) ∩ ( 𝐼𝑡 ) ) ⊆ ( 𝐼 ‘ ( 𝑠𝑡 ) ) ↔ ∀ 𝑎 ∈ 𝒫 𝐵𝑏 ∈ 𝒫 𝐵 ( ( 𝐼𝑎 ) ∩ ( 𝐼𝑏 ) ) ⊆ ( 𝐼 ‘ ( 𝑎𝑏 ) ) )
15 2 3 ntrclsbex ( 𝜑𝐵 ∈ V )
16 difssd ( 𝜑 → ( 𝐵𝑠 ) ⊆ 𝐵 )
17 15 16 sselpwd ( 𝜑 → ( 𝐵𝑠 ) ∈ 𝒫 𝐵 )
18 17 adantr ( ( 𝜑𝑠 ∈ 𝒫 𝐵 ) → ( 𝐵𝑠 ) ∈ 𝒫 𝐵 )
19 elpwi ( 𝑎 ∈ 𝒫 𝐵𝑎𝐵 )
20 simpl ( ( 𝐵 ∈ V ∧ 𝑎𝐵 ) → 𝐵 ∈ V )
21 difssd ( ( 𝐵 ∈ V ∧ 𝑎𝐵 ) → ( 𝐵𝑎 ) ⊆ 𝐵 )
22 20 21 sselpwd ( ( 𝐵 ∈ V ∧ 𝑎𝐵 ) → ( 𝐵𝑎 ) ∈ 𝒫 𝐵 )
23 simpr ( ( ( 𝐵 ∈ V ∧ 𝑎𝐵 ) ∧ 𝑠 = ( 𝐵𝑎 ) ) → 𝑠 = ( 𝐵𝑎 ) )
24 23 difeq2d ( ( ( 𝐵 ∈ V ∧ 𝑎𝐵 ) ∧ 𝑠 = ( 𝐵𝑎 ) ) → ( 𝐵𝑠 ) = ( 𝐵 ∖ ( 𝐵𝑎 ) ) )
25 24 eqeq2d ( ( ( 𝐵 ∈ V ∧ 𝑎𝐵 ) ∧ 𝑠 = ( 𝐵𝑎 ) ) → ( 𝑎 = ( 𝐵𝑠 ) ↔ 𝑎 = ( 𝐵 ∖ ( 𝐵𝑎 ) ) ) )
26 eqcom ( 𝑎 = ( 𝐵 ∖ ( 𝐵𝑎 ) ) ↔ ( 𝐵 ∖ ( 𝐵𝑎 ) ) = 𝑎 )
27 25 26 bitrdi ( ( ( 𝐵 ∈ V ∧ 𝑎𝐵 ) ∧ 𝑠 = ( 𝐵𝑎 ) ) → ( 𝑎 = ( 𝐵𝑠 ) ↔ ( 𝐵 ∖ ( 𝐵𝑎 ) ) = 𝑎 ) )
28 dfss4 ( 𝑎𝐵 ↔ ( 𝐵 ∖ ( 𝐵𝑎 ) ) = 𝑎 )
29 28 bilani ( ( 𝐵 ∈ V ∧ 𝑎𝐵 ) → ( 𝐵 ∖ ( 𝐵𝑎 ) ) = 𝑎 )
30 22 27 29 rspcedvd ( ( 𝐵 ∈ V ∧ 𝑎𝐵 ) → ∃ 𝑠 ∈ 𝒫 𝐵 𝑎 = ( 𝐵𝑠 ) )
31 15 19 30 syl2an ( ( 𝜑𝑎 ∈ 𝒫 𝐵 ) → ∃ 𝑠 ∈ 𝒫 𝐵 𝑎 = ( 𝐵𝑠 ) )
32 simpl1 ( ( ( 𝜑𝑠 ∈ 𝒫 𝐵𝑎 = ( 𝐵𝑠 ) ) ∧ 𝑡 ∈ 𝒫 𝐵 ) → 𝜑 )
33 difssd ( 𝜑 → ( 𝐵𝑡 ) ⊆ 𝐵 )
34 15 33 sselpwd ( 𝜑 → ( 𝐵𝑡 ) ∈ 𝒫 𝐵 )
35 32 34 syl ( ( ( 𝜑𝑠 ∈ 𝒫 𝐵𝑎 = ( 𝐵𝑠 ) ) ∧ 𝑡 ∈ 𝒫 𝐵 ) → ( 𝐵𝑡 ) ∈ 𝒫 𝐵 )
36 elpwi ( 𝑏 ∈ 𝒫 𝐵𝑏𝐵 )
37 simpl ( ( 𝐵 ∈ V ∧ 𝑏𝐵 ) → 𝐵 ∈ V )
38 difssd ( ( 𝐵 ∈ V ∧ 𝑏𝐵 ) → ( 𝐵𝑏 ) ⊆ 𝐵 )
39 37 38 sselpwd ( ( 𝐵 ∈ V ∧ 𝑏𝐵 ) → ( 𝐵𝑏 ) ∈ 𝒫 𝐵 )
40 simpr ( ( ( 𝐵 ∈ V ∧ 𝑏𝐵 ) ∧ 𝑡 = ( 𝐵𝑏 ) ) → 𝑡 = ( 𝐵𝑏 ) )
41 40 difeq2d ( ( ( 𝐵 ∈ V ∧ 𝑏𝐵 ) ∧ 𝑡 = ( 𝐵𝑏 ) ) → ( 𝐵𝑡 ) = ( 𝐵 ∖ ( 𝐵𝑏 ) ) )
42 41 eqeq2d ( ( ( 𝐵 ∈ V ∧ 𝑏𝐵 ) ∧ 𝑡 = ( 𝐵𝑏 ) ) → ( 𝑏 = ( 𝐵𝑡 ) ↔ 𝑏 = ( 𝐵 ∖ ( 𝐵𝑏 ) ) ) )
43 eqcom ( 𝑏 = ( 𝐵 ∖ ( 𝐵𝑏 ) ) ↔ ( 𝐵 ∖ ( 𝐵𝑏 ) ) = 𝑏 )
44 42 43 bitrdi ( ( ( 𝐵 ∈ V ∧ 𝑏𝐵 ) ∧ 𝑡 = ( 𝐵𝑏 ) ) → ( 𝑏 = ( 𝐵𝑡 ) ↔ ( 𝐵 ∖ ( 𝐵𝑏 ) ) = 𝑏 ) )
45 dfss4 ( 𝑏𝐵 ↔ ( 𝐵 ∖ ( 𝐵𝑏 ) ) = 𝑏 )
46 45 bilani ( ( 𝐵 ∈ V ∧ 𝑏𝐵 ) → ( 𝐵 ∖ ( 𝐵𝑏 ) ) = 𝑏 )
47 39 44 46 rspcedvd ( ( 𝐵 ∈ V ∧ 𝑏𝐵 ) → ∃ 𝑡 ∈ 𝒫 𝐵 𝑏 = ( 𝐵𝑡 ) )
48 15 36 47 syl2an ( ( 𝜑𝑏 ∈ 𝒫 𝐵 ) → ∃ 𝑡 ∈ 𝒫 𝐵 𝑏 = ( 𝐵𝑡 ) )
49 48 3ad2antl1 ( ( ( 𝜑𝑠 ∈ 𝒫 𝐵𝑎 = ( 𝐵𝑠 ) ) ∧ 𝑏 ∈ 𝒫 𝐵 ) → ∃ 𝑡 ∈ 𝒫 𝐵 𝑏 = ( 𝐵𝑡 ) )
50 simp13 ( ( ( 𝜑𝑠 ∈ 𝒫 𝐵𝑎 = ( 𝐵𝑠 ) ) ∧ 𝑡 ∈ 𝒫 𝐵𝑏 = ( 𝐵𝑡 ) ) → 𝑎 = ( 𝐵𝑠 ) )
51 fveq2 ( 𝑎 = ( 𝐵𝑠 ) → ( 𝐼𝑎 ) = ( 𝐼 ‘ ( 𝐵𝑠 ) ) )
52 51 ineq1d ( 𝑎 = ( 𝐵𝑠 ) → ( ( 𝐼𝑎 ) ∩ ( 𝐼𝑏 ) ) = ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼𝑏 ) ) )
53 ineq1 ( 𝑎 = ( 𝐵𝑠 ) → ( 𝑎𝑏 ) = ( ( 𝐵𝑠 ) ∩ 𝑏 ) )
54 53 fveq2d ( 𝑎 = ( 𝐵𝑠 ) → ( 𝐼 ‘ ( 𝑎𝑏 ) ) = ( 𝐼 ‘ ( ( 𝐵𝑠 ) ∩ 𝑏 ) ) )
55 52 54 sseq12d ( 𝑎 = ( 𝐵𝑠 ) → ( ( ( 𝐼𝑎 ) ∩ ( 𝐼𝑏 ) ) ⊆ ( 𝐼 ‘ ( 𝑎𝑏 ) ) ↔ ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼𝑏 ) ) ⊆ ( 𝐼 ‘ ( ( 𝐵𝑠 ) ∩ 𝑏 ) ) ) )
56 50 55 syl ( ( ( 𝜑𝑠 ∈ 𝒫 𝐵𝑎 = ( 𝐵𝑠 ) ) ∧ 𝑡 ∈ 𝒫 𝐵𝑏 = ( 𝐵𝑡 ) ) → ( ( ( 𝐼𝑎 ) ∩ ( 𝐼𝑏 ) ) ⊆ ( 𝐼 ‘ ( 𝑎𝑏 ) ) ↔ ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼𝑏 ) ) ⊆ ( 𝐼 ‘ ( ( 𝐵𝑠 ) ∩ 𝑏 ) ) ) )
57 fveq2 ( 𝑏 = ( 𝐵𝑡 ) → ( 𝐼𝑏 ) = ( 𝐼 ‘ ( 𝐵𝑡 ) ) )
58 57 ineq2d ( 𝑏 = ( 𝐵𝑡 ) → ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼𝑏 ) ) = ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) )
59 ineq2 ( 𝑏 = ( 𝐵𝑡 ) → ( ( 𝐵𝑠 ) ∩ 𝑏 ) = ( ( 𝐵𝑠 ) ∩ ( 𝐵𝑡 ) ) )
60 difundi ( 𝐵 ∖ ( 𝑠𝑡 ) ) = ( ( 𝐵𝑠 ) ∩ ( 𝐵𝑡 ) )
61 59 60 eqtr4di ( 𝑏 = ( 𝐵𝑡 ) → ( ( 𝐵𝑠 ) ∩ 𝑏 ) = ( 𝐵 ∖ ( 𝑠𝑡 ) ) )
62 61 fveq2d ( 𝑏 = ( 𝐵𝑡 ) → ( 𝐼 ‘ ( ( 𝐵𝑠 ) ∩ 𝑏 ) ) = ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) )
63 58 62 sseq12d ( 𝑏 = ( 𝐵𝑡 ) → ( ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼𝑏 ) ) ⊆ ( 𝐼 ‘ ( ( 𝐵𝑠 ) ∩ 𝑏 ) ) ↔ ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) ⊆ ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) ) )
64 63 3ad2ant3 ( ( ( 𝜑𝑠 ∈ 𝒫 𝐵𝑎 = ( 𝐵𝑠 ) ) ∧ 𝑡 ∈ 𝒫 𝐵𝑏 = ( 𝐵𝑡 ) ) → ( ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼𝑏 ) ) ⊆ ( 𝐼 ‘ ( ( 𝐵𝑠 ) ∩ 𝑏 ) ) ↔ ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) ⊆ ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) ) )
65 simp11 ( ( ( 𝜑𝑠 ∈ 𝒫 𝐵𝑎 = ( 𝐵𝑠 ) ) ∧ 𝑡 ∈ 𝒫 𝐵𝑏 = ( 𝐵𝑡 ) ) → 𝜑 )
66 1 2 3 ntrclsiex ( 𝜑𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) )
67 66 15 jca ( 𝜑 → ( 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ∧ 𝐵 ∈ V ) )
68 elmapi ( 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) → 𝐼 : 𝒫 𝐵 ⟶ 𝒫 𝐵 )
69 68 adantr ( ( 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ∧ 𝐵 ∈ V ) → 𝐼 : 𝒫 𝐵 ⟶ 𝒫 𝐵 )
70 simpr ( ( 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ∧ 𝐵 ∈ V ) → 𝐵 ∈ V )
71 difssd ( ( 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ∧ 𝐵 ∈ V ) → ( 𝐵𝑠 ) ⊆ 𝐵 )
72 70 71 sselpwd ( ( 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ∧ 𝐵 ∈ V ) → ( 𝐵𝑠 ) ∈ 𝒫 𝐵 )
73 69 72 ffvelcdmd ( ( 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ∧ 𝐵 ∈ V ) → ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∈ 𝒫 𝐵 )
74 73 elpwid ( ( 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ∧ 𝐵 ∈ V ) → ( 𝐼 ‘ ( 𝐵𝑠 ) ) ⊆ 𝐵 )
75 orc ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ⊆ 𝐵 → ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ⊆ 𝐵 ∨ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ⊆ 𝐵 ) )
76 inss ( ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ⊆ 𝐵 ∨ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ⊆ 𝐵 ) → ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) ⊆ 𝐵 )
77 74 75 76 3syl ( ( 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ∧ 𝐵 ∈ V ) → ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) ⊆ 𝐵 )
78 difssd ( ( 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ∧ 𝐵 ∈ V ) → ( 𝐵 ∖ ( 𝑠𝑡 ) ) ⊆ 𝐵 )
79 70 78 sselpwd ( ( 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ∧ 𝐵 ∈ V ) → ( 𝐵 ∖ ( 𝑠𝑡 ) ) ∈ 𝒫 𝐵 )
80 69 79 ffvelcdmd ( ( 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ∧ 𝐵 ∈ V ) → ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) ∈ 𝒫 𝐵 )
81 80 elpwid ( ( 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ∧ 𝐵 ∈ V ) → ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) ⊆ 𝐵 )
82 77 81 jca ( ( 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ∧ 𝐵 ∈ V ) → ( ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) ⊆ 𝐵 ∧ ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) ⊆ 𝐵 ) )
83 sscon34b ( ( ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) ⊆ 𝐵 ∧ ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) ⊆ 𝐵 ) → ( ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) ⊆ ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) ↔ ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) ) ⊆ ( 𝐵 ∖ ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) ) ) )
84 65 67 82 83 4syl ( ( ( 𝜑𝑠 ∈ 𝒫 𝐵𝑎 = ( 𝐵𝑠 ) ) ∧ 𝑡 ∈ 𝒫 𝐵𝑏 = ( 𝐵𝑡 ) ) → ( ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) ⊆ ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) ↔ ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) ) ⊆ ( 𝐵 ∖ ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) ) ) )
85 difindi ( 𝐵 ∖ ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) ) = ( ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵𝑠 ) ) ) ∪ ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) )
86 85 sseq2i ( ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) ) ⊆ ( 𝐵 ∖ ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) ) ↔ ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) ) ⊆ ( ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵𝑠 ) ) ) ∪ ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) ) )
87 86 a1i ( ( ( 𝜑𝑠 ∈ 𝒫 𝐵𝑎 = ( 𝐵𝑠 ) ) ∧ 𝑡 ∈ 𝒫 𝐵𝑏 = ( 𝐵𝑡 ) ) → ( ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) ) ⊆ ( 𝐵 ∖ ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) ) ↔ ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) ) ⊆ ( ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵𝑠 ) ) ) ∪ ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) ) ) )
88 65 15 syl ( ( ( 𝜑𝑠 ∈ 𝒫 𝐵𝑎 = ( 𝐵𝑠 ) ) ∧ 𝑡 ∈ 𝒫 𝐵𝑏 = ( 𝐵𝑡 ) ) → 𝐵 ∈ V )
89 65 66 syl ( ( ( 𝜑𝑠 ∈ 𝒫 𝐵𝑎 = ( 𝐵𝑠 ) ) ∧ 𝑡 ∈ 𝒫 𝐵𝑏 = ( 𝐵𝑡 ) ) → 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) )
90 simp12 ( ( ( 𝜑𝑠 ∈ 𝒫 𝐵𝑎 = ( 𝐵𝑠 ) ) ∧ 𝑡 ∈ 𝒫 𝐵𝑏 = ( 𝐵𝑡 ) ) → 𝑠 ∈ 𝒫 𝐵 )
91 rp-simp2 ( ( ( 𝜑𝑠 ∈ 𝒫 𝐵𝑎 = ( 𝐵𝑠 ) ) ∧ 𝑡 ∈ 𝒫 𝐵𝑏 = ( 𝐵𝑡 ) ) → 𝑡 ∈ 𝒫 𝐵 )
92 simpl2 ( ( ( 𝜑𝐵 ∈ V ∧ 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ) ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → 𝐵 ∈ V )
93 simpl3 ( ( ( 𝜑𝐵 ∈ V ∧ 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ) ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) )
94 eqid ( 𝐷𝐼 ) = ( 𝐷𝐼 )
95 simpl ( ( 𝐵 ∈ V ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → 𝐵 ∈ V )
96 simprl ( ( 𝐵 ∈ V ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → 𝑠 ∈ 𝒫 𝐵 )
97 96 elpwid ( ( 𝐵 ∈ V ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → 𝑠𝐵 )
98 simprr ( ( 𝐵 ∈ V ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → 𝑡 ∈ 𝒫 𝐵 )
99 98 elpwid ( ( 𝐵 ∈ V ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → 𝑡𝐵 )
100 97 99 unssd ( ( 𝐵 ∈ V ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → ( 𝑠𝑡 ) ⊆ 𝐵 )
101 95 100 sselpwd ( ( 𝐵 ∈ V ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → ( 𝑠𝑡 ) ∈ 𝒫 𝐵 )
102 101 3ad2antl2 ( ( ( 𝜑𝐵 ∈ V ∧ 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ) ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → ( 𝑠𝑡 ) ∈ 𝒫 𝐵 )
103 eqid ( ( 𝐷𝐼 ) ‘ ( 𝑠𝑡 ) ) = ( ( 𝐷𝐼 ) ‘ ( 𝑠𝑡 ) )
104 1 2 92 93 94 102 103 dssmapfv3d ( ( ( 𝜑𝐵 ∈ V ∧ 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ) ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → ( ( 𝐷𝐼 ) ‘ ( 𝑠𝑡 ) ) = ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) ) )
105 simpl1 ( ( ( 𝜑𝐵 ∈ V ∧ 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ) ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → 𝜑 )
106 1 2 3 ntrclsfv1 ( 𝜑 → ( 𝐷𝐼 ) = 𝐾 )
107 106 fveq1d ( 𝜑 → ( ( 𝐷𝐼 ) ‘ ( 𝑠𝑡 ) ) = ( 𝐾 ‘ ( 𝑠𝑡 ) ) )
108 105 107 syl ( ( ( 𝜑𝐵 ∈ V ∧ 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ) ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → ( ( 𝐷𝐼 ) ‘ ( 𝑠𝑡 ) ) = ( 𝐾 ‘ ( 𝑠𝑡 ) ) )
109 104 108 eqtr3d ( ( ( 𝜑𝐵 ∈ V ∧ 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ) ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) ) = ( 𝐾 ‘ ( 𝑠𝑡 ) ) )
110 simprl ( ( ( 𝜑𝐵 ∈ V ∧ 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ) ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → 𝑠 ∈ 𝒫 𝐵 )
111 eqid ( ( 𝐷𝐼 ) ‘ 𝑠 ) = ( ( 𝐷𝐼 ) ‘ 𝑠 )
112 1 2 92 93 94 110 111 dssmapfv3d ( ( ( 𝜑𝐵 ∈ V ∧ 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ) ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → ( ( 𝐷𝐼 ) ‘ 𝑠 ) = ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵𝑠 ) ) ) )
113 106 fveq1d ( 𝜑 → ( ( 𝐷𝐼 ) ‘ 𝑠 ) = ( 𝐾𝑠 ) )
114 105 113 syl ( ( ( 𝜑𝐵 ∈ V ∧ 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ) ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → ( ( 𝐷𝐼 ) ‘ 𝑠 ) = ( 𝐾𝑠 ) )
115 112 114 eqtr3d ( ( ( 𝜑𝐵 ∈ V ∧ 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ) ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵𝑠 ) ) ) = ( 𝐾𝑠 ) )
116 simprr ( ( ( 𝜑𝐵 ∈ V ∧ 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ) ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → 𝑡 ∈ 𝒫 𝐵 )
117 eqid ( ( 𝐷𝐼 ) ‘ 𝑡 ) = ( ( 𝐷𝐼 ) ‘ 𝑡 )
118 1 2 92 93 94 116 117 dssmapfv3d ( ( ( 𝜑𝐵 ∈ V ∧ 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ) ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → ( ( 𝐷𝐼 ) ‘ 𝑡 ) = ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) )
119 106 fveq1d ( 𝜑 → ( ( 𝐷𝐼 ) ‘ 𝑡 ) = ( 𝐾𝑡 ) )
120 105 119 syl ( ( ( 𝜑𝐵 ∈ V ∧ 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ) ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → ( ( 𝐷𝐼 ) ‘ 𝑡 ) = ( 𝐾𝑡 ) )
121 118 120 eqtr3d ( ( ( 𝜑𝐵 ∈ V ∧ 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ) ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) = ( 𝐾𝑡 ) )
122 115 121 uneq12d ( ( ( 𝜑𝐵 ∈ V ∧ 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ) ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → ( ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵𝑠 ) ) ) ∪ ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) ) = ( ( 𝐾𝑠 ) ∪ ( 𝐾𝑡 ) ) )
123 109 122 sseq12d ( ( ( 𝜑𝐵 ∈ V ∧ 𝐼 ∈ ( 𝒫 𝐵m 𝒫 𝐵 ) ) ∧ ( 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ) ) → ( ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) ) ⊆ ( ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵𝑠 ) ) ) ∪ ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) ) ↔ ( 𝐾 ‘ ( 𝑠𝑡 ) ) ⊆ ( ( 𝐾𝑠 ) ∪ ( 𝐾𝑡 ) ) ) )
124 65 88 89 90 91 123 syl32anc ( ( ( 𝜑𝑠 ∈ 𝒫 𝐵𝑎 = ( 𝐵𝑠 ) ) ∧ 𝑡 ∈ 𝒫 𝐵𝑏 = ( 𝐵𝑡 ) ) → ( ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) ) ⊆ ( ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵𝑠 ) ) ) ∪ ( 𝐵 ∖ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) ) ↔ ( 𝐾 ‘ ( 𝑠𝑡 ) ) ⊆ ( ( 𝐾𝑠 ) ∪ ( 𝐾𝑡 ) ) ) )
125 84 87 124 3bitrd ( ( ( 𝜑𝑠 ∈ 𝒫 𝐵𝑎 = ( 𝐵𝑠 ) ) ∧ 𝑡 ∈ 𝒫 𝐵𝑏 = ( 𝐵𝑡 ) ) → ( ( ( 𝐼 ‘ ( 𝐵𝑠 ) ) ∩ ( 𝐼 ‘ ( 𝐵𝑡 ) ) ) ⊆ ( 𝐼 ‘ ( 𝐵 ∖ ( 𝑠𝑡 ) ) ) ↔ ( 𝐾 ‘ ( 𝑠𝑡 ) ) ⊆ ( ( 𝐾𝑠 ) ∪ ( 𝐾𝑡 ) ) ) )
126 56 64 125 3bitrd ( ( ( 𝜑𝑠 ∈ 𝒫 𝐵𝑎 = ( 𝐵𝑠 ) ) ∧ 𝑡 ∈ 𝒫 𝐵𝑏 = ( 𝐵𝑡 ) ) → ( ( ( 𝐼𝑎 ) ∩ ( 𝐼𝑏 ) ) ⊆ ( 𝐼 ‘ ( 𝑎𝑏 ) ) ↔ ( 𝐾 ‘ ( 𝑠𝑡 ) ) ⊆ ( ( 𝐾𝑠 ) ∪ ( 𝐾𝑡 ) ) ) )
127 35 49 126 ralxfrd2 ( ( 𝜑𝑠 ∈ 𝒫 𝐵𝑎 = ( 𝐵𝑠 ) ) → ( ∀ 𝑏 ∈ 𝒫 𝐵 ( ( 𝐼𝑎 ) ∩ ( 𝐼𝑏 ) ) ⊆ ( 𝐼 ‘ ( 𝑎𝑏 ) ) ↔ ∀ 𝑡 ∈ 𝒫 𝐵 ( 𝐾 ‘ ( 𝑠𝑡 ) ) ⊆ ( ( 𝐾𝑠 ) ∪ ( 𝐾𝑡 ) ) ) )
128 18 31 127 ralxfrd2 ( 𝜑 → ( ∀ 𝑎 ∈ 𝒫 𝐵𝑏 ∈ 𝒫 𝐵 ( ( 𝐼𝑎 ) ∩ ( 𝐼𝑏 ) ) ⊆ ( 𝐼 ‘ ( 𝑎𝑏 ) ) ↔ ∀ 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ( 𝐾 ‘ ( 𝑠𝑡 ) ) ⊆ ( ( 𝐾𝑠 ) ∪ ( 𝐾𝑡 ) ) ) )
129 14 128 bitrid ( 𝜑 → ( ∀ 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ( ( 𝐼𝑠 ) ∩ ( 𝐼𝑡 ) ) ⊆ ( 𝐼 ‘ ( 𝑠𝑡 ) ) ↔ ∀ 𝑠 ∈ 𝒫 𝐵𝑡 ∈ 𝒫 𝐵 ( 𝐾 ‘ ( 𝑠𝑡 ) ) ⊆ ( ( 𝐾𝑠 ) ∪ ( 𝐾𝑡 ) ) ) )