Step | Hyp | Ref
| Expression |
1 | | eqid 2738 |
. . 3
⊢
(dist‘𝑊) =
(dist‘𝑊) |
2 | | sitmcl.1 |
. . 3
⊢ (𝜑 → 𝑊 ∈ ∞MetSp) |
3 | | sitmcl.2 |
. . 3
⊢ (𝜑 → 𝑀 ∈ ∪ ran
measures) |
4 | | sitmcl.3 |
. . 3
⊢ (𝜑 → 𝐹 ∈ dom (𝑊sitg𝑀)) |
5 | | sitmcl.4 |
. . 3
⊢ (𝜑 → 𝐺 ∈ dom (𝑊sitg𝑀)) |
6 | 1, 2, 3, 4, 5 | sitmfval 32217 |
. 2
⊢ (𝜑 → (𝐹(𝑊sitm𝑀)𝐺) =
(((ℝ*𝑠 ↾s
(0[,]+∞))sitg𝑀)‘(𝐹 ∘f (dist‘𝑊)𝐺))) |
7 | | xrge0base 31196 |
. . 3
⊢
(0[,]+∞) = (Base‘(ℝ*𝑠
↾s (0[,]+∞))) |
8 | | xrge0topn 31795 |
. . . 4
⊢
(TopOpen‘(ℝ*𝑠
↾s (0[,]+∞))) = ((ordTop‘ ≤ )
↾t (0[,]+∞)) |
9 | 8 | eqcomi 2747 |
. . 3
⊢
((ordTop‘ ≤ ) ↾t (0[,]+∞)) =
(TopOpen‘(ℝ*𝑠 ↾s
(0[,]+∞))) |
10 | | eqid 2738 |
. . 3
⊢
(sigaGen‘((ordTop‘ ≤ ) ↾t
(0[,]+∞))) = (sigaGen‘((ordTop‘ ≤ ) ↾t
(0[,]+∞))) |
11 | | xrge00 31197 |
. . 3
⊢ 0 =
(0g‘(ℝ*𝑠
↾s (0[,]+∞))) |
12 | | ovex 7288 |
. . . 4
⊢
(0[,]+∞) ∈ V |
13 | | eqid 2738 |
. . . . 5
⊢
(ℝ*𝑠 ↾s
(0[,]+∞)) = (ℝ*𝑠 ↾s
(0[,]+∞)) |
14 | | ax-xrsvsca 31185 |
. . . . 5
⊢
·e = ( ·𝑠
‘ℝ*𝑠) |
15 | 13, 14 | ressvsca 16979 |
. . . 4
⊢
((0[,]+∞) ∈ V → ·e = (
·𝑠
‘(ℝ*𝑠 ↾s
(0[,]+∞)))) |
16 | 12, 15 | ax-mp 5 |
. . 3
⊢
·e = ( ·𝑠
‘(ℝ*𝑠 ↾s
(0[,]+∞))) |
17 | | ax-xrssca 31184 |
. . . . . 6
⊢
ℝfld =
(Scalar‘ℝ*𝑠) |
18 | 13, 17 | resssca 16978 |
. . . . 5
⊢
((0[,]+∞) ∈ V → ℝfld =
(Scalar‘(ℝ*𝑠 ↾s
(0[,]+∞)))) |
19 | 12, 18 | ax-mp 5 |
. . . 4
⊢
ℝfld =
(Scalar‘(ℝ*𝑠 ↾s
(0[,]+∞))) |
20 | 19 | fveq2i 6759 |
. . 3
⊢
(ℝHom‘ℝfld) =
(ℝHom‘(Scalar‘(ℝ*𝑠
↾s (0[,]+∞)))) |
21 | | ovexd 7290 |
. . 3
⊢ (𝜑 →
(ℝ*𝑠 ↾s (0[,]+∞))
∈ V) |
22 | | eqid 2738 |
. . . . . . 7
⊢
(Base‘𝑊) =
(Base‘𝑊) |
23 | | eqid 2738 |
. . . . . . 7
⊢
(TopOpen‘𝑊) =
(TopOpen‘𝑊) |
24 | | eqid 2738 |
. . . . . . 7
⊢
(sigaGen‘(TopOpen‘𝑊)) = (sigaGen‘(TopOpen‘𝑊)) |
25 | | eqid 2738 |
. . . . . . 7
⊢
(0g‘𝑊) = (0g‘𝑊) |
26 | | eqid 2738 |
. . . . . . 7
⊢ (
·𝑠 ‘𝑊) = ( ·𝑠
‘𝑊) |
27 | | eqid 2738 |
. . . . . . 7
⊢
(ℝHom‘(Scalar‘𝑊)) = (ℝHom‘(Scalar‘𝑊)) |
28 | 22, 23, 24, 25, 26, 27, 2, 3, 4 | sibff 32203 |
. . . . . 6
⊢ (𝜑 → 𝐹:∪ dom 𝑀⟶∪ (TopOpen‘𝑊)) |
29 | | xmstps 23514 |
. . . . . . . 8
⊢ (𝑊 ∈ ∞MetSp →
𝑊 ∈
TopSp) |
30 | 22, 23 | tpsuni 21993 |
. . . . . . . 8
⊢ (𝑊 ∈ TopSp →
(Base‘𝑊) = ∪ (TopOpen‘𝑊)) |
31 | 2, 29, 30 | 3syl 18 |
. . . . . . 7
⊢ (𝜑 → (Base‘𝑊) = ∪
(TopOpen‘𝑊)) |
32 | | feq3 6567 |
. . . . . . 7
⊢
((Base‘𝑊) =
∪ (TopOpen‘𝑊) → (𝐹:∪ dom 𝑀⟶(Base‘𝑊) ↔ 𝐹:∪ dom 𝑀⟶∪ (TopOpen‘𝑊))) |
33 | 31, 32 | syl 17 |
. . . . . 6
⊢ (𝜑 → (𝐹:∪ dom 𝑀⟶(Base‘𝑊) ↔ 𝐹:∪ dom 𝑀⟶∪ (TopOpen‘𝑊))) |
34 | 28, 33 | mpbird 256 |
. . . . 5
⊢ (𝜑 → 𝐹:∪ dom 𝑀⟶(Base‘𝑊)) |
35 | 22, 23, 24, 25, 26, 27, 2, 3, 5 | sibff 32203 |
. . . . . 6
⊢ (𝜑 → 𝐺:∪ dom 𝑀⟶∪ (TopOpen‘𝑊)) |
36 | | feq3 6567 |
. . . . . . 7
⊢
((Base‘𝑊) =
∪ (TopOpen‘𝑊) → (𝐺:∪ dom 𝑀⟶(Base‘𝑊) ↔ 𝐺:∪ dom 𝑀⟶∪ (TopOpen‘𝑊))) |
37 | 31, 36 | syl 17 |
. . . . . 6
⊢ (𝜑 → (𝐺:∪ dom 𝑀⟶(Base‘𝑊) ↔ 𝐺:∪ dom 𝑀⟶∪ (TopOpen‘𝑊))) |
38 | 35, 37 | mpbird 256 |
. . . . 5
⊢ (𝜑 → 𝐺:∪ dom 𝑀⟶(Base‘𝑊)) |
39 | | dmexg 7724 |
. . . . . 6
⊢ (𝑀 ∈ ∪ ran measures → dom 𝑀 ∈ V) |
40 | | uniexg 7571 |
. . . . . 6
⊢ (dom
𝑀 ∈ V → ∪ dom 𝑀 ∈ V) |
41 | 3, 39, 40 | 3syl 18 |
. . . . 5
⊢ (𝜑 → ∪ dom 𝑀 ∈ V) |
42 | 34, 38, 41 | ofresid 30880 |
. . . 4
⊢ (𝜑 → (𝐹 ∘f (dist‘𝑊)𝐺) = (𝐹 ∘f ((dist‘𝑊) ↾ ((Base‘𝑊) × (Base‘𝑊)))𝐺)) |
43 | 2, 29 | syl 17 |
. . . . 5
⊢ (𝜑 → 𝑊 ∈ TopSp) |
44 | | eqid 2738 |
. . . . . . . 8
⊢
((dist‘𝑊)
↾ ((Base‘𝑊)
× (Base‘𝑊))) =
((dist‘𝑊) ↾
((Base‘𝑊) ×
(Base‘𝑊))) |
45 | 22, 44 | xmsxmet 23517 |
. . . . . . 7
⊢ (𝑊 ∈ ∞MetSp →
((dist‘𝑊) ↾
((Base‘𝑊) ×
(Base‘𝑊))) ∈
(∞Met‘(Base‘𝑊))) |
46 | | xmetpsmet 23409 |
. . . . . . 7
⊢
(((dist‘𝑊)
↾ ((Base‘𝑊)
× (Base‘𝑊)))
∈ (∞Met‘(Base‘𝑊)) → ((dist‘𝑊) ↾ ((Base‘𝑊) × (Base‘𝑊))) ∈ (PsMet‘(Base‘𝑊))) |
47 | 2, 45, 46 | 3syl 18 |
. . . . . 6
⊢ (𝜑 → ((dist‘𝑊) ↾ ((Base‘𝑊) × (Base‘𝑊))) ∈
(PsMet‘(Base‘𝑊))) |
48 | | psmetxrge0 23374 |
. . . . . 6
⊢
(((dist‘𝑊)
↾ ((Base‘𝑊)
× (Base‘𝑊)))
∈ (PsMet‘(Base‘𝑊)) → ((dist‘𝑊) ↾ ((Base‘𝑊) × (Base‘𝑊))):((Base‘𝑊) × (Base‘𝑊))⟶(0[,]+∞)) |
49 | 47, 48 | syl 17 |
. . . . 5
⊢ (𝜑 → ((dist‘𝑊) ↾ ((Base‘𝑊) × (Base‘𝑊))):((Base‘𝑊) × (Base‘𝑊))⟶(0[,]+∞)) |
50 | | xrge0tps 31794 |
. . . . . 6
⊢
(ℝ*𝑠 ↾s
(0[,]+∞)) ∈ TopSp |
51 | 50 | a1i 11 |
. . . . 5
⊢ (𝜑 →
(ℝ*𝑠 ↾s (0[,]+∞))
∈ TopSp) |
52 | 23, 22, 44 | xmstopn 23512 |
. . . . . . . 8
⊢ (𝑊 ∈ ∞MetSp →
(TopOpen‘𝑊) =
(MetOpen‘((dist‘𝑊) ↾ ((Base‘𝑊) × (Base‘𝑊))))) |
53 | 2, 52 | syl 17 |
. . . . . . 7
⊢ (𝜑 → (TopOpen‘𝑊) =
(MetOpen‘((dist‘𝑊) ↾ ((Base‘𝑊) × (Base‘𝑊))))) |
54 | | eqid 2738 |
. . . . . . . . 9
⊢
(MetOpen‘((dist‘𝑊) ↾ ((Base‘𝑊) × (Base‘𝑊)))) = (MetOpen‘((dist‘𝑊) ↾ ((Base‘𝑊) × (Base‘𝑊)))) |
55 | 54 | methaus 23582 |
. . . . . . . 8
⊢
(((dist‘𝑊)
↾ ((Base‘𝑊)
× (Base‘𝑊)))
∈ (∞Met‘(Base‘𝑊)) → (MetOpen‘((dist‘𝑊) ↾ ((Base‘𝑊) × (Base‘𝑊)))) ∈
Haus) |
56 | 2, 45, 55 | 3syl 18 |
. . . . . . 7
⊢ (𝜑 →
(MetOpen‘((dist‘𝑊) ↾ ((Base‘𝑊) × (Base‘𝑊)))) ∈ Haus) |
57 | 53, 56 | eqeltrd 2839 |
. . . . . 6
⊢ (𝜑 → (TopOpen‘𝑊) ∈ Haus) |
58 | | haust1 22411 |
. . . . . 6
⊢
((TopOpen‘𝑊)
∈ Haus → (TopOpen‘𝑊) ∈ Fre) |
59 | 57, 58 | syl 17 |
. . . . 5
⊢ (𝜑 → (TopOpen‘𝑊) ∈ Fre) |
60 | 2, 45 | syl 17 |
. . . . . . 7
⊢ (𝜑 → ((dist‘𝑊) ↾ ((Base‘𝑊) × (Base‘𝑊))) ∈
(∞Met‘(Base‘𝑊))) |
61 | | sitmcl.0 |
. . . . . . . 8
⊢ (𝜑 → 𝑊 ∈ Mnd) |
62 | 22, 25 | mndidcl 18315 |
. . . . . . . 8
⊢ (𝑊 ∈ Mnd →
(0g‘𝑊)
∈ (Base‘𝑊)) |
63 | 61, 62 | syl 17 |
. . . . . . 7
⊢ (𝜑 → (0g‘𝑊) ∈ (Base‘𝑊)) |
64 | | xmet0 23403 |
. . . . . . 7
⊢
((((dist‘𝑊)
↾ ((Base‘𝑊)
× (Base‘𝑊)))
∈ (∞Met‘(Base‘𝑊)) ∧ (0g‘𝑊) ∈ (Base‘𝑊)) →
((0g‘𝑊)((dist‘𝑊) ↾ ((Base‘𝑊) × (Base‘𝑊)))(0g‘𝑊)) = 0) |
65 | 60, 63, 64 | syl2anc 583 |
. . . . . 6
⊢ (𝜑 →
((0g‘𝑊)((dist‘𝑊) ↾ ((Base‘𝑊) × (Base‘𝑊)))(0g‘𝑊)) = 0) |
66 | 65, 11 | eqtrdi 2795 |
. . . . 5
⊢ (𝜑 →
((0g‘𝑊)((dist‘𝑊) ↾ ((Base‘𝑊) × (Base‘𝑊)))(0g‘𝑊)) =
(0g‘(ℝ*𝑠
↾s (0[,]+∞)))) |
67 | 22, 23, 24, 25, 26, 27, 2, 3, 4,
7, 43, 49, 5, 51, 59, 66 | sibfof 32207 |
. . . 4
⊢ (𝜑 → (𝐹 ∘f ((dist‘𝑊) ↾ ((Base‘𝑊) × (Base‘𝑊)))𝐺) ∈ dom
((ℝ*𝑠 ↾s
(0[,]+∞))sitg𝑀)) |
68 | 42, 67 | eqeltrd 2839 |
. . 3
⊢ (𝜑 → (𝐹 ∘f (dist‘𝑊)𝐺) ∈ dom
((ℝ*𝑠 ↾s
(0[,]+∞))sitg𝑀)) |
69 | | rebase 20723 |
. . . . 5
⊢ ℝ =
(Base‘ℝfld) |
70 | 69, 69 | xpeq12i 5608 |
. . . 4
⊢ (ℝ
× ℝ) = ((Base‘ℝfld) ×
(Base‘ℝfld)) |
71 | 70 | reseq2i 5877 |
. . 3
⊢
((dist‘ℝfld) ↾ (ℝ × ℝ)) =
((dist‘ℝfld) ↾ ((Base‘ℝfld)
× (Base‘ℝfld))) |
72 | | xrge0cmn 20552 |
. . . 4
⊢
(ℝ*𝑠 ↾s
(0[,]+∞)) ∈ CMnd |
73 | 72 | a1i 11 |
. . 3
⊢ (𝜑 →
(ℝ*𝑠 ↾s (0[,]+∞))
∈ CMnd) |
74 | | rerrext 31859 |
. . . . 5
⊢
ℝfld ∈ ℝExt |
75 | 19, 74 | eqeltrri 2836 |
. . . 4
⊢
(Scalar‘(ℝ*𝑠
↾s (0[,]+∞))) ∈ ℝExt |
76 | 75 | a1i 11 |
. . 3
⊢ (𝜑 →
(Scalar‘(ℝ*𝑠 ↾s
(0[,]+∞))) ∈ ℝExt ) |
77 | | rrhre 31871 |
. . . . . . . . 9
⊢
(ℝHom‘ℝfld) = ( I ↾
ℝ) |
78 | 77 | imaeq1i 5955 |
. . . . . . . 8
⊢
((ℝHom‘ℝfld) “ (0[,)+∞)) = (( I
↾ ℝ) “ (0[,)+∞)) |
79 | | 0re 10908 |
. . . . . . . . . 10
⊢ 0 ∈
ℝ |
80 | | pnfxr 10960 |
. . . . . . . . . 10
⊢ +∞
∈ ℝ* |
81 | | icossre 13089 |
. . . . . . . . . 10
⊢ ((0
∈ ℝ ∧ +∞ ∈ ℝ*) → (0[,)+∞)
⊆ ℝ) |
82 | 79, 80, 81 | mp2an 688 |
. . . . . . . . 9
⊢
(0[,)+∞) ⊆ ℝ |
83 | | resiima 5973 |
. . . . . . . . 9
⊢
((0[,)+∞) ⊆ ℝ → (( I ↾ ℝ) “
(0[,)+∞)) = (0[,)+∞)) |
84 | 82, 83 | ax-mp 5 |
. . . . . . . 8
⊢ (( I
↾ ℝ) “ (0[,)+∞)) = (0[,)+∞) |
85 | 78, 84 | eqtri 2766 |
. . . . . . 7
⊢
((ℝHom‘ℝfld) “ (0[,)+∞)) =
(0[,)+∞) |
86 | | icossicc 13097 |
. . . . . . 7
⊢
(0[,)+∞) ⊆ (0[,]+∞) |
87 | 85, 86 | eqsstri 3951 |
. . . . . 6
⊢
((ℝHom‘ℝfld) “ (0[,)+∞))
⊆ (0[,]+∞) |
88 | 87 | sseli 3913 |
. . . . 5
⊢ (𝑚 ∈
((ℝHom‘ℝfld) “ (0[,)+∞)) → 𝑚 ∈
(0[,]+∞)) |
89 | 88 | 3ad2ant2 1132 |
. . . 4
⊢ ((𝜑 ∧ 𝑚 ∈
((ℝHom‘ℝfld) “ (0[,)+∞)) ∧ 𝑥 ∈ (0[,]+∞)) →
𝑚 ∈
(0[,]+∞)) |
90 | | simp3 1136 |
. . . 4
⊢ ((𝜑 ∧ 𝑚 ∈
((ℝHom‘ℝfld) “ (0[,)+∞)) ∧ 𝑥 ∈ (0[,]+∞)) →
𝑥 ∈
(0[,]+∞)) |
91 | | ge0xmulcl 13124 |
. . . 4
⊢ ((𝑚 ∈ (0[,]+∞) ∧
𝑥 ∈ (0[,]+∞))
→ (𝑚
·e 𝑥)
∈ (0[,]+∞)) |
92 | 89, 90, 91 | syl2anc 583 |
. . 3
⊢ ((𝜑 ∧ 𝑚 ∈
((ℝHom‘ℝfld) “ (0[,)+∞)) ∧ 𝑥 ∈ (0[,]+∞)) →
(𝑚 ·e
𝑥) ∈
(0[,]+∞)) |
93 | 7, 9, 10, 11, 16, 20, 21, 3, 68, 19, 71, 51, 73, 76, 92 | sitgclg 32209 |
. 2
⊢ (𝜑 →
(((ℝ*𝑠 ↾s
(0[,]+∞))sitg𝑀)‘(𝐹 ∘f (dist‘𝑊)𝐺)) ∈ (0[,]+∞)) |
94 | 6, 93 | eqeltrd 2839 |
1
⊢ (𝜑 → (𝐹(𝑊sitm𝑀)𝐺) ∈ (0[,]+∞)) |