opnvonmbllem2

Description: An open subset of the n-dimensional Real numbers is Lebesgue measurable. This is Proposition 115G (a) of Fremlin1 p. 32. (Contributed by Glauco Siliprandi, 24-Dec-2020)

	Ref	Expression
Hypotheses	opnvonmbllem2.x	$⊢ φ \to X \in Fin$
	opnvonmbllem2.n	$⊢ S = dom voln (X)$
	opnvonmbllem2.g	$⊢ φ \to G \in TopOpen (msup)$
	opnvonmbl.k	$⊢ K = \{h \in ({(ℚ \times ℚ)}^{X}) \| \underset{i \in X}{⨉} ([.) \circ h) (i) \subseteq G\}$
Assertion	opnvonmbllem2	$⊢ φ \to G \in S$

Proof

Step	Hyp	Ref	Expression
1		opnvonmbllem2.x	$⊢ φ \to X \in Fin$
2		opnvonmbllem2.n	$⊢ S = dom voln (X)$
3		opnvonmbllem2.g	$⊢ φ \to G \in TopOpen (msup)$
4		opnvonmbl.k	$⊢ K = \{h \in ({(ℚ \times ℚ)}^{X}) \| \underset{i \in X}{⨉} ([.) \circ h) (i) \subseteq G\}$
5		eqid	$⊢ dist (msup) = dist (msup)$
6	5	rrxmetfi	$⊢ X \in Fin \to dist (msup) \in Met (ℝ^{X})$
7	1 6	syl	$⊢ φ \to dist (msup) \in Met (ℝ^{X})$
8		metxmet	$⊢ dist (msup) \in Met (ℝ^{X}) \to dist (msup) \in ∞Met (ℝ^{X})$
9	7 8	syl	$⊢ φ \to dist (msup) \in ∞Met (ℝ^{X})$
10	9	adantr	$⊢ (φ \land x \in G) \to dist (msup) \in ∞Met (ℝ^{X})$
11		eqid	$⊢ msup = msup$
12	11	rrxval	$⊢ X \in Fin \to msup = toCPreHil (ℝ_{fld} freeLMod X)$
13	1 12	syl	$⊢ φ \to msup = toCPreHil (ℝ_{fld} freeLMod X)$
14	13	fveq2d	$⊢ φ \to TopOpen (msup) = TopOpen (toCPreHil (ℝ_{fld} freeLMod X))$
15		ovex	$⊢ ℝ_{fld} freeLMod X \in V$
16		eqid	$⊢ toCPreHil (ℝ_{fld} freeLMod X) = toCPreHil (ℝ_{fld} freeLMod X)$
17		eqid	$⊢ dist (toCPreHil (ℝ_{fld} freeLMod X)) = dist (toCPreHil (ℝ_{fld} freeLMod X))$
18		eqid	$⊢ TopOpen (toCPreHil (ℝ_{fld} freeLMod X)) = TopOpen (toCPreHil (ℝ_{fld} freeLMod X))$
19	16 17 18	tcphtopn	$⊢ ℝ_{fld} freeLMod X \in V \to TopOpen (toCPreHil (ℝ_{fld} freeLMod X)) = MetOpen (dist (toCPreHil (ℝ_{fld} freeLMod X)))$
20	15 19	ax-mp	$⊢ TopOpen (toCPreHil (ℝ_{fld} freeLMod X)) = MetOpen (dist (toCPreHil (ℝ_{fld} freeLMod X)))$
21	20	a1i	$⊢ φ \to TopOpen (toCPreHil (ℝ_{fld} freeLMod X)) = MetOpen (dist (toCPreHil (ℝ_{fld} freeLMod X)))$
22	13	eqcomd	$⊢ φ \to toCPreHil (ℝ_{fld} freeLMod X) = msup$
23	22	fveq2d	$⊢ φ \to dist (toCPreHil (ℝ_{fld} freeLMod X)) = dist (msup)$
24	23	fveq2d	$⊢ φ \to MetOpen (dist (toCPreHil (ℝ_{fld} freeLMod X))) = MetOpen (dist (msup))$
25	14 21 24	3eqtrd	$⊢ φ \to TopOpen (msup) = MetOpen (dist (msup))$
26	3 25	eleqtrd	$⊢ φ \to G \in MetOpen (dist (msup))$
27	26	adantr	$⊢ (φ \land x \in G) \to G \in MetOpen (dist (msup))$
28		simpr	$⊢ (φ \land x \in G) \to x \in G$
29		eqid	$⊢ MetOpen (dist (msup)) = MetOpen (dist (msup))$
30	29	mopni2	$⊢ (dist (msup) \in ∞Met (ℝ^{X}) \land G \in MetOpen (dist (msup)) \land x \in G) \to \exists e \in ℝ^{+} x ball (dist (msup)) e \subseteq G$
31	10 27 28 30	syl3anc	$⊢ (φ \land x \in G) \to \exists e \in ℝ^{+} x ball (dist (msup)) e \subseteq G$
32	1	ad2antrr	$⊢ ((φ \land x \in G) \land e \in ℝ^{+}) \to X \in Fin$
33		eqid	$⊢ TopOpen (msup) = TopOpen (msup)$
34	33	rrxtoponfi	$⊢ X \in Fin \to TopOpen (msup) \in TopOn (ℝ^{X})$
35	1 34	syl	$⊢ φ \to TopOpen (msup) \in TopOn (ℝ^{X})$
36		toponss	$⊢ (TopOpen (msup) \in TopOn (ℝ^{X}) \land G \in TopOpen (msup)) \to G \subseteq ℝ^{X}$
37	35 3 36	syl2anc	$⊢ φ \to G \subseteq ℝ^{X}$
38	37	adantr	$⊢ (φ \land x \in G) \to G \subseteq ℝ^{X}$
39	38 28	sseldd	$⊢ (φ \land x \in G) \to x \in (ℝ^{X})$
40	39	adantr	$⊢ ((φ \land x \in G) \land e \in ℝ^{+}) \to x \in (ℝ^{X})$
41		simpr	$⊢ ((φ \land x \in G) \land e \in ℝ^{+}) \to e \in ℝ^{+}$
42	32 40 41	hoiqssbl	$⊢ ((φ \land x \in G) \land e \in ℝ^{+}) \to \exists c \in (ℚ^{X}) \exists d \in (ℚ^{X}) (x \in \underset{i \in X}{⨉} [c (i), d (i)) \land \underset{i \in X}{⨉} [c (i), d (i)) \subseteq x ball (dist (msup)) e)$
43	42	3adant3	$⊢ ((φ \land x \in G) \land e \in ℝ^{+} \land x ball (dist (msup)) e \subseteq G) \to \exists c \in (ℚ^{X}) \exists d \in (ℚ^{X}) (x \in \underset{i \in X}{⨉} [c (i), d (i)) \land \underset{i \in X}{⨉} [c (i), d (i)) \subseteq x ball (dist (msup)) e)$
44		nfv	$⊢ Ⅎ i (φ \land x ball (dist (msup)) e \subseteq G)$
45		nfv	$⊢ Ⅎ i (c \in (ℚ^{X}) \land d \in (ℚ^{X}))$
46		nfcv	$⊢ \underline{Ⅎ} i x$
47		nfixp1	$⊢ \underline{Ⅎ} i \underset{i \in X}{⨉} [c (i), d (i))$
48	46 47	nfel	$⊢ Ⅎ i x \in \underset{i \in X}{⨉} [c (i), d (i))$
49		nfcv	$⊢ \underline{Ⅎ} i (x ball (dist (msup)) e)$
50	47 49	nfss	$⊢ Ⅎ i \underset{i \in X}{⨉} [c (i), d (i)) \subseteq x ball (dist (msup)) e$
51	48 50	nfan	$⊢ Ⅎ i (x \in \underset{i \in X}{⨉} [c (i), d (i)) \land \underset{i \in X}{⨉} [c (i), d (i)) \subseteq x ball (dist (msup)) e)$
52	44 45 51	nf3an	$⊢ Ⅎ i ((φ \land x ball (dist (msup)) e \subseteq G) \land (c \in (ℚ^{X}) \land d \in (ℚ^{X})) \land (x \in \underset{i \in X}{⨉} [c (i), d (i)) \land \underset{i \in X}{⨉} [c (i), d (i)) \subseteq x ball (dist (msup)) e))$
53	1	adantr	$⊢ (φ \land x ball (dist (msup)) e \subseteq G) \to X \in Fin$
54	53	3ad2ant1	$⊢ ((φ \land x ball (dist (msup)) e \subseteq G) \land (c \in (ℚ^{X}) \land d \in (ℚ^{X})) \land (x \in \underset{i \in X}{⨉} [c (i), d (i)) \land \underset{i \in X}{⨉} [c (i), d (i)) \subseteq x ball (dist (msup)) e)) \to X \in Fin$
55		elmapi	$⊢ c \in (ℚ^{X}) \to c : X ⟶ ℚ$
56	55	adantr	$⊢ (c \in (ℚ^{X}) \land d \in (ℚ^{X})) \to c : X ⟶ ℚ$
57	56	3ad2ant2	$⊢ ((φ \land x ball (dist (msup)) e \subseteq G) \land (c \in (ℚ^{X}) \land d \in (ℚ^{X})) \land (x \in \underset{i \in X}{⨉} [c (i), d (i)) \land \underset{i \in X}{⨉} [c (i), d (i)) \subseteq x ball (dist (msup)) e)) \to c : X ⟶ ℚ$
58		elmapi	$⊢ d \in (ℚ^{X}) \to d : X ⟶ ℚ$
59	58	adantl	$⊢ (c \in (ℚ^{X}) \land d \in (ℚ^{X})) \to d : X ⟶ ℚ$
60	59	3ad2ant2	$⊢ ((φ \land x ball (dist (msup)) e \subseteq G) \land (c \in (ℚ^{X}) \land d \in (ℚ^{X})) \land (x \in \underset{i \in X}{⨉} [c (i), d (i)) \land \underset{i \in X}{⨉} [c (i), d (i)) \subseteq x ball (dist (msup)) e)) \to d : X ⟶ ℚ$
61		simp3r	$⊢ ((φ \land x ball (dist (msup)) e \subseteq G) \land (c \in (ℚ^{X}) \land d \in (ℚ^{X})) \land (x \in \underset{i \in X}{⨉} [c (i), d (i)) \land \underset{i \in X}{⨉} [c (i), d (i)) \subseteq x ball (dist (msup)) e)) \to \underset{i \in X}{⨉} [c (i), d (i)) \subseteq x ball (dist (msup)) e$
62		simp1r	$⊢ ((φ \land x ball (dist (msup)) e \subseteq G) \land (c \in (ℚ^{X}) \land d \in (ℚ^{X})) \land (x \in \underset{i \in X}{⨉} [c (i), d (i)) \land \underset{i \in X}{⨉} [c (i), d (i)) \subseteq x ball (dist (msup)) e)) \to x ball (dist (msup)) e \subseteq G$
63		simp3l	$⊢ ((φ \land x ball (dist (msup)) e \subseteq G) \land (c \in (ℚ^{X}) \land d \in (ℚ^{X})) \land (x \in \underset{i \in X}{⨉} [c (i), d (i)) \land \underset{i \in X}{⨉} [c (i), d (i)) \subseteq x ball (dist (msup)) e)) \to x \in \underset{i \in X}{⨉} [c (i), d (i))$
64		eqid	$⊢ (i \in X ⟼ ⟨c (i), d (i)⟩) = (i \in X ⟼ ⟨c (i), d (i)⟩)$
65	52 54 57 60 61 62 63 4 64	opnvonmbllem1	$⊢ ((φ \land x ball (dist (msup)) e \subseteq G) \land (c \in (ℚ^{X}) \land d \in (ℚ^{X})) \land (x \in \underset{i \in X}{⨉} [c (i), d (i)) \land \underset{i \in X}{⨉} [c (i), d (i)) \subseteq x ball (dist (msup)) e)) \to \exists h \in K x \in \underset{i \in X}{⨉} ([.) \circ h) (i)$
66	65	3exp	$⊢ (φ \land x ball (dist (msup)) e \subseteq G) \to ((c \in (ℚ^{X}) \land d \in (ℚ^{X})) \to ((x \in \underset{i \in X}{⨉} [c (i), d (i)) \land \underset{i \in X}{⨉} [c (i), d (i)) \subseteq x ball (dist (msup)) e) \to \exists h \in K x \in \underset{i \in X}{⨉} ([.) \circ h) (i)))$
67	66	adantlr	$⊢ ((φ \land x \in G) \land x ball (dist (msup)) e \subseteq G) \to ((c \in (ℚ^{X}) \land d \in (ℚ^{X})) \to ((x \in \underset{i \in X}{⨉} [c (i), d (i)) \land \underset{i \in X}{⨉} [c (i), d (i)) \subseteq x ball (dist (msup)) e) \to \exists h \in K x \in \underset{i \in X}{⨉} ([.) \circ h) (i)))$
68	67	3adant2	$⊢ ((φ \land x \in G) \land e \in ℝ^{+} \land x ball (dist (msup)) e \subseteq G) \to ((c \in (ℚ^{X}) \land d \in (ℚ^{X})) \to ((x \in \underset{i \in X}{⨉} [c (i), d (i)) \land \underset{i \in X}{⨉} [c (i), d (i)) \subseteq x ball (dist (msup)) e) \to \exists h \in K x \in \underset{i \in X}{⨉} ([.) \circ h) (i)))$
69	68	rexlimdvv	$⊢ ((φ \land x \in G) \land e \in ℝ^{+} \land x ball (dist (msup)) e \subseteq G) \to (\exists c \in (ℚ^{X}) \exists d \in (ℚ^{X}) (x \in \underset{i \in X}{⨉} [c (i), d (i)) \land \underset{i \in X}{⨉} [c (i), d (i)) \subseteq x ball (dist (msup)) e) \to \exists h \in K x \in \underset{i \in X}{⨉} ([.) \circ h) (i))$
70	43 69	mpd	$⊢ ((φ \land x \in G) \land e \in ℝ^{+} \land x ball (dist (msup)) e \subseteq G) \to \exists h \in K x \in \underset{i \in X}{⨉} ([.) \circ h) (i)$
71	70	3exp	$⊢ (φ \land x \in G) \to (e \in ℝ^{+} \to (x ball (dist (msup)) e \subseteq G \to \exists h \in K x \in \underset{i \in X}{⨉} ([.) \circ h) (i)))$
72	71	rexlimdv	$⊢ (φ \land x \in G) \to (\exists e \in ℝ^{+} x ball (dist (msup)) e \subseteq G \to \exists h \in K x \in \underset{i \in X}{⨉} ([.) \circ h) (i))$
73	31 72	mpd	$⊢ (φ \land x \in G) \to \exists h \in K x \in \underset{i \in X}{⨉} ([.) \circ h) (i)$
74		eliun	$⊢ x \in ⋃_{h \in K} \underset{i \in X}{⨉} ([.) \circ h) (i) \leftrightarrow \exists h \in K x \in \underset{i \in X}{⨉} ([.) \circ h) (i)$
75	73 74	sylibr	$⊢ (φ \land x \in G) \to x \in ⋃_{h \in K} \underset{i \in X}{⨉} ([.) \circ h) (i)$
76	75	ralrimiva	$⊢ φ \to \forall x \in G x \in ⋃_{h \in K} \underset{i \in X}{⨉} ([.) \circ h) (i)$
77		dfss3	$⊢ G \subseteq ⋃_{h \in K} \underset{i \in X}{⨉} ([.) \circ h) (i) \leftrightarrow \forall x \in G x \in ⋃_{h \in K} \underset{i \in X}{⨉} ([.) \circ h) (i)$
78	76 77	sylibr	$⊢ φ \to G \subseteq ⋃_{h \in K} \underset{i \in X}{⨉} ([.) \circ h) (i)$
79	4	eleq2i	$⊢ h \in K \leftrightarrow h \in \{h \in ({(ℚ \times ℚ)}^{X}) \| \underset{i \in X}{⨉} ([.) \circ h) (i) \subseteq G\}$
80	79	biimpi	$⊢ h \in K \to h \in \{h \in ({(ℚ \times ℚ)}^{X}) \| \underset{i \in X}{⨉} ([.) \circ h) (i) \subseteq G\}$
81	80	adantl	$⊢ (φ \land h \in K) \to h \in \{h \in ({(ℚ \times ℚ)}^{X}) \| \underset{i \in X}{⨉} ([.) \circ h) (i) \subseteq G\}$
82		rabid	$⊢ h \in \{h \in ({(ℚ \times ℚ)}^{X}) \| \underset{i \in X}{⨉} ([.) \circ h) (i) \subseteq G\} \leftrightarrow (h \in ({(ℚ \times ℚ)}^{X}) \land \underset{i \in X}{⨉} ([.) \circ h) (i) \subseteq G)$
83	81 82	sylib	$⊢ (φ \land h \in K) \to (h \in ({(ℚ \times ℚ)}^{X}) \land \underset{i \in X}{⨉} ([.) \circ h) (i) \subseteq G)$
84	83	simprd	$⊢ (φ \land h \in K) \to \underset{i \in X}{⨉} ([.) \circ h) (i) \subseteq G$
85	84	ralrimiva	$⊢ φ \to \forall h \in K \underset{i \in X}{⨉} ([.) \circ h) (i) \subseteq G$
86		iunss	$⊢ ⋃_{h \in K} \underset{i \in X}{⨉} ([.) \circ h) (i) \subseteq G \leftrightarrow \forall h \in K \underset{i \in X}{⨉} ([.) \circ h) (i) \subseteq G$
87	85 86	sylibr	$⊢ φ \to ⋃_{h \in K} \underset{i \in X}{⨉} ([.) \circ h) (i) \subseteq G$
88	78 87	eqssd	$⊢ φ \to G = ⋃_{h \in K} \underset{i \in X}{⨉} ([.) \circ h) (i)$
89	1 2	dmovnsal	$⊢ φ \to S \in SAlg$
90		ssrab2	$⊢ \{h \in ({(ℚ \times ℚ)}^{X}) \| \underset{i \in X}{⨉} ([.) \circ h) (i) \subseteq G\} \subseteq {(ℚ \times ℚ)}^{X}$
91	4 90	eqsstri	$⊢ K \subseteq {(ℚ \times ℚ)}^{X}$
92	91	a1i	$⊢ φ \to K \subseteq {(ℚ \times ℚ)}^{X}$
93		qct	$⊢ ℚ ≼ ω$
94	93	a1i	$⊢ φ \to ℚ ≼ ω$
95		xpct	$⊢ (ℚ ≼ ω \land ℚ ≼ ω) \to (ℚ \times ℚ) ≼ ω$
96	94 94 95	syl2anc	$⊢ φ \to (ℚ \times ℚ) ≼ ω$
97	96 1	mpct	$⊢ φ \to ({(ℚ \times ℚ)}^{X}) ≼ ω$
98		ssct	$⊢ (K \subseteq {(ℚ \times ℚ)}^{X} \land ({(ℚ \times ℚ)}^{X}) ≼ ω) \to K ≼ ω$
99	92 97 98	syl2anc	$⊢ φ \to K ≼ ω$
100		reex	$⊢ ℝ \in V$
101	100 100	xpex	$⊢ ℝ^{2} \in V$
102		qssre	$⊢ ℚ \subseteq ℝ$
103		xpss12	$⊢ (ℚ \subseteq ℝ \land ℚ \subseteq ℝ) \to ℚ \times ℚ \subseteq ℝ^{2}$
104	102 102 103	mp2an	$⊢ ℚ \times ℚ \subseteq ℝ^{2}$
105		mapss	$⊢ (ℝ^{2} \in V \land ℚ \times ℚ \subseteq ℝ^{2}) \to {(ℚ \times ℚ)}^{X} \subseteq {ℝ^{2}}^{X}$
106	101 104 105	mp2an	$⊢ {(ℚ \times ℚ)}^{X} \subseteq {ℝ^{2}}^{X}$
107	91	sseli	$⊢ h \in K \to h \in ({(ℚ \times ℚ)}^{X})$
108	106 107	sselid	$⊢ h \in K \to h \in ({ℝ^{2}}^{X})$
109		elmapi	$⊢ h \in ({ℝ^{2}}^{X}) \to h : X ⟶ ℝ^{2}$
110	108 109	syl	$⊢ h \in K \to h : X ⟶ ℝ^{2}$
111	110	adantl	$⊢ (φ \land h \in K) \to h : X ⟶ ℝ^{2}$
112		2fveq3	$⊢ k = i \to 1^{st} (h (k)) = 1^{st} (h (i))$
113	112	cbvmptv	$⊢ (k \in X ⟼ 1^{st} (h (k))) = (i \in X ⟼ 1^{st} (h (i)))$
114		2fveq3	$⊢ k = i \to 2^{nd} (h (k)) = 2^{nd} (h (i))$
115	114	cbvmptv	$⊢ (k \in X ⟼ 2^{nd} (h (k))) = (i \in X ⟼ 2^{nd} (h (i)))$
116	111 113 115	hoicoto2	$⊢ (φ \land h \in K) \to \underset{i \in X}{⨉} ([.) \circ h) (i) = \underset{i \in X}{⨉} [(k \in X ⟼ 1^{st} (h (k))) (i), (k \in X ⟼ 2^{nd} (h (k))) (i))$
117	1	adantr	$⊢ (φ \land h \in K) \to X \in Fin$
118	111	ffvelcdmda	$⊢ ((φ \land h \in K) \land k \in X) \to h (k) \in ℝ^{2}$
119		xp1st	$⊢ h (k) \in ℝ^{2} \to 1^{st} (h (k)) \in ℝ$
120	118 119	syl	$⊢ ((φ \land h \in K) \land k \in X) \to 1^{st} (h (k)) \in ℝ$
121	120	fmpttd	$⊢ (φ \land h \in K) \to (k \in X ⟼ 1^{st} (h (k))) : X ⟶ ℝ$
122		xp2nd	$⊢ h (k) \in ℝ^{2} \to 2^{nd} (h (k)) \in ℝ$
123	118 122	syl	$⊢ ((φ \land h \in K) \land k \in X) \to 2^{nd} (h (k)) \in ℝ$
124	123	fmpttd	$⊢ (φ \land h \in K) \to (k \in X ⟼ 2^{nd} (h (k))) : X ⟶ ℝ$
125	117 2 121 124	hoimbl	$⊢ (φ \land h \in K) \to \underset{i \in X}{⨉} [(k \in X ⟼ 1^{st} (h (k))) (i), (k \in X ⟼ 2^{nd} (h (k))) (i)) \in S$
126	116 125	eqeltrd	$⊢ (φ \land h \in K) \to \underset{i \in X}{⨉} ([.) \circ h) (i) \in S$
127	89 99 126	saliuncl	$⊢ φ \to ⋃_{h \in K} \underset{i \in X}{⨉} ([.) \circ h) (i) \in S$
128	88 127	eqeltrd	$⊢ φ \to G \in S$

Metamath Proof Explorer

Theorem opnvonmbllem2

Proof