Metamath Proof Explorer


Theorem iinhoiicclem

Description: A n-dimensional closed interval expressed as the indexed intersection of half-open intervals. One side of the double inclusion. (Contributed by Glauco Siliprandi, 8-Apr-2021)

Ref Expression
Hypotheses iinhoiicclem.k ⊢ Ⅎ k φ
iinhoiicclem.a ⊢ φ ∧ k ∈ X → A ∈ ℝ
iinhoiicclem.b ⊢ φ ∧ k ∈ X → B ∈ ℝ
iinhoiicclem.f ⊢ φ → F ∈ ⋂ n ∈ ℕ ⨉ k ∈ X A B + 1 n
Assertion iinhoiicclem ⊢ φ → F ∈ ⨉ k ∈ X A B

Proof

Step Hyp Ref Expression
1 iinhoiicclem.k ⊢ Ⅎ k φ
2 iinhoiicclem.a ⊢ φ ∧ k ∈ X → A ∈ ℝ
3 iinhoiicclem.b ⊢ φ ∧ k ∈ X → B ∈ ℝ
4 iinhoiicclem.f ⊢ φ → F ∈ ⋂ n ∈ ℕ ⨉ k ∈ X A B + 1 n
5 4 elexd ⊢ φ → F ∈ V
6 1nn ⊢ 1 ∈ ℕ
7 6 a1i ⊢ φ → 1 ∈ ℕ
8 peano2re ⊢ B ∈ ℝ → B + 1 ∈ ℝ
9 3 8 syl ⊢ φ ∧ k ∈ X → B + 1 ∈ ℝ
10 9 rexrd ⊢ φ ∧ k ∈ X → B + 1 ∈ ℝ *
11 icossre ⊢ A ∈ ℝ ∧ B + 1 ∈ ℝ * → A B + 1 ⊆ ℝ
12 2 10 11 syl2anc ⊢ φ ∧ k ∈ X → A B + 1 ⊆ ℝ
13 1 12 ixpssixp ⊢ φ → ⨉ k ∈ X A B + 1 ⊆ ⨉ k ∈ X ℝ
14 oveq2 ⊢ n = 1 → 1 n = 1 1
15 1div1e1 ⊢ 1 1 = 1
16 15 a1i ⊢ n = 1 → 1 1 = 1
17 14 16 eqtrd ⊢ n = 1 → 1 n = 1
18 17 oveq2d ⊢ n = 1 → B + 1 n = B + 1
19 18 oveq2d ⊢ n = 1 → A B + 1 n = A B + 1
20 19 ixpeq2dv ⊢ n = 1 → ⨉ k ∈ X A B + 1 n = ⨉ k ∈ X A B + 1
21 20 sseq1d ⊢ n = 1 → ⨉ k ∈ X A B + 1 n ⊆ ⨉ k ∈ X ℝ ↔ ⨉ k ∈ X A B + 1 ⊆ ⨉ k ∈ X ℝ
22 21 rspcev ⊢ 1 ∈ ℕ ∧ ⨉ k ∈ X A B + 1 ⊆ ⨉ k ∈ X ℝ → ∃ n ∈ ℕ ⨉ k ∈ X A B + 1 n ⊆ ⨉ k ∈ X ℝ
23 7 13 22 syl2anc ⊢ φ → ∃ n ∈ ℕ ⨉ k ∈ X A B + 1 n ⊆ ⨉ k ∈ X ℝ
24 iinss ⊢ ∃ n ∈ ℕ ⨉ k ∈ X A B + 1 n ⊆ ⨉ k ∈ X ℝ → ⋂ n ∈ ℕ ⨉ k ∈ X A B + 1 n ⊆ ⨉ k ∈ X ℝ
25 23 24 syl ⊢ φ → ⋂ n ∈ ℕ ⨉ k ∈ X A B + 1 n ⊆ ⨉ k ∈ X ℝ
26 25 4 sseldd ⊢ φ → F ∈ ⨉ k ∈ X ℝ
27 elixpconstg ⊢ F ∈ ⋂ n ∈ ℕ ⨉ k ∈ X A B + 1 n → F ∈ ⨉ k ∈ X ℝ ↔ F : X ⟶ ℝ
28 4 27 syl ⊢ φ → F ∈ ⨉ k ∈ X ℝ ↔ F : X ⟶ ℝ
29 26 28 mpbid ⊢ φ → F : X ⟶ ℝ
30 29 ffnd ⊢ φ → F Fn X
31 29 ffvelcdmda ⊢ φ ∧ k ∈ X → F ⁡ k ∈ ℝ
32 2 rexrd ⊢ φ ∧ k ∈ X → A ∈ ℝ *
33 ssid ⊢ ⨉ k ∈ X A B + 1 ⊆ ⨉ k ∈ X A B + 1
34 33 a1i ⊢ φ → ⨉ k ∈ X A B + 1 ⊆ ⨉ k ∈ X A B + 1
35 20 sseq1d ⊢ n = 1 → ⨉ k ∈ X A B + 1 n ⊆ ⨉ k ∈ X A B + 1 ↔ ⨉ k ∈ X A B + 1 ⊆ ⨉ k ∈ X A B + 1
36 35 rspcev ⊢ 1 ∈ ℕ ∧ ⨉ k ∈ X A B + 1 ⊆ ⨉ k ∈ X A B + 1 → ∃ n ∈ ℕ ⨉ k ∈ X A B + 1 n ⊆ ⨉ k ∈ X A B + 1
37 7 34 36 syl2anc ⊢ φ → ∃ n ∈ ℕ ⨉ k ∈ X A B + 1 n ⊆ ⨉ k ∈ X A B + 1
38 iinss ⊢ ∃ n ∈ ℕ ⨉ k ∈ X A B + 1 n ⊆ ⨉ k ∈ X A B + 1 → ⋂ n ∈ ℕ ⨉ k ∈ X A B + 1 n ⊆ ⨉ k ∈ X A B + 1
39 37 38 syl ⊢ φ → ⋂ n ∈ ℕ ⨉ k ∈ X A B + 1 n ⊆ ⨉ k ∈ X A B + 1
40 39 4 sseldd ⊢ φ → F ∈ ⨉ k ∈ X A B + 1
41 40 adantr ⊢ φ ∧ k ∈ X → F ∈ ⨉ k ∈ X A B + 1
42 simpr ⊢ φ ∧ k ∈ X → k ∈ X
43 fvixp2 ⊢ F ∈ ⨉ k ∈ X A B + 1 ∧ k ∈ X → F ⁡ k ∈ A B + 1
44 41 42 43 syl2anc ⊢ φ ∧ k ∈ X → F ⁡ k ∈ A B + 1
45 icogelb ⊢ A ∈ ℝ * ∧ B + 1 ∈ ℝ * ∧ F ⁡ k ∈ A B + 1 → A ≤ F ⁡ k
46 32 10 44 45 syl3anc ⊢ φ ∧ k ∈ X → A ≤ F ⁡ k
47 31 adantr ⊢ φ ∧ k ∈ X ∧ n ∈ ℕ → F ⁡ k ∈ ℝ
48 3 adantr ⊢ φ ∧ k ∈ X ∧ n ∈ ℕ → B ∈ ℝ
49 nnrecre ⊢ n ∈ ℕ → 1 n ∈ ℝ
50 49 adantl ⊢ φ ∧ k ∈ X ∧ n ∈ ℕ → 1 n ∈ ℝ
51 48 50 readdcld ⊢ φ ∧ k ∈ X ∧ n ∈ ℕ → B + 1 n ∈ ℝ
52 32 adantr ⊢ φ ∧ k ∈ X ∧ n ∈ ℕ → A ∈ ℝ *
53 ressxr ⊢ ℝ ⊆ ℝ *
54 53 51 sselid ⊢ φ ∧ k ∈ X ∧ n ∈ ℕ → B + 1 n ∈ ℝ *
55 eliin ⊢ F ∈ V → F ∈ ⋂ n ∈ ℕ ⨉ k ∈ X A B + 1 n ↔ ∀ n ∈ ℕ F ∈ ⨉ k ∈ X A B + 1 n
56 5 55 syl ⊢ φ → F ∈ ⋂ n ∈ ℕ ⨉ k ∈ X A B + 1 n ↔ ∀ n ∈ ℕ F ∈ ⨉ k ∈ X A B + 1 n
57 4 56 mpbid ⊢ φ → ∀ n ∈ ℕ F ∈ ⨉ k ∈ X A B + 1 n
58 57 r19.21bi ⊢ φ ∧ n ∈ ℕ → F ∈ ⨉ k ∈ X A B + 1 n
59 elixp2 ⊢ F ∈ ⨉ k ∈ X A B + 1 n ↔ F ∈ V ∧ F Fn X ∧ ∀ k ∈ X F ⁡ k ∈ A B + 1 n
60 58 59 sylib ⊢ φ ∧ n ∈ ℕ → F ∈ V ∧ F Fn X ∧ ∀ k ∈ X F ⁡ k ∈ A B + 1 n
61 60 simp3d ⊢ φ ∧ n ∈ ℕ → ∀ k ∈ X F ⁡ k ∈ A B + 1 n
62 61 r19.21bi ⊢ φ ∧ n ∈ ℕ ∧ k ∈ X → F ⁡ k ∈ A B + 1 n
63 62 an32s ⊢ φ ∧ k ∈ X ∧ n ∈ ℕ → F ⁡ k ∈ A B + 1 n
64 icoltub ⊢ A ∈ ℝ * ∧ B + 1 n ∈ ℝ * ∧ F ⁡ k ∈ A B + 1 n → F ⁡ k < B + 1 n
65 52 54 63 64 syl3anc ⊢ φ ∧ k ∈ X ∧ n ∈ ℕ → F ⁡ k < B + 1 n
66 47 51 65 ltled ⊢ φ ∧ k ∈ X ∧ n ∈ ℕ → F ⁡ k ≤ B + 1 n
67 66 ralrimiva ⊢ φ ∧ k ∈ X → ∀ n ∈ ℕ F ⁡ k ≤ B + 1 n
68 nfv ⊢ Ⅎ n φ ∧ k ∈ X
69 53 31 sselid ⊢ φ ∧ k ∈ X → F ⁡ k ∈ ℝ *
70 68 69 3 xrralrecnnle ⊢ φ ∧ k ∈ X → F ⁡ k ≤ B ↔ ∀ n ∈ ℕ F ⁡ k ≤ B + 1 n
71 67 70 mpbird ⊢ φ ∧ k ∈ X → F ⁡ k ≤ B
72 2 3 31 46 71 eliccd ⊢ φ ∧ k ∈ X → F ⁡ k ∈ A B
73 72 ex ⊢ φ → k ∈ X → F ⁡ k ∈ A B
74 1 73 ralrimi ⊢ φ → ∀ k ∈ X F ⁡ k ∈ A B
75 5 30 74 3jca ⊢ φ → F ∈ V ∧ F Fn X ∧ ∀ k ∈ X F ⁡ k ∈ A B
76 elixp2 ⊢ F ∈ ⨉ k ∈ X A B ↔ F ∈ V ∧ F Fn X ∧ ∀ k ∈ X F ⁡ k ∈ A B
77 75 76 sylibr ⊢ φ → F ∈ ⨉ k ∈ X A B