Metamath Proof Explorer


Theorem smfmullem2

Description: The multiplication of two sigma-measurable functions is measurable: this is the step (i) of the proof of Proposition 121E (d) of Fremlin1 p. 37 . (Contributed by Glauco Siliprandi, 26-Jun-2021)

Ref Expression
Hypotheses smfmullem2.a φA
smfmullem2.k K=q03|uq0q1vq2q3uv<A
smfmullem2.u φU
smfmullem2.v φV
smfmullem2.l φUV<A
smfmullem2.p φP
smfmullem2.r φR
smfmullem2.s φS
smfmullem2.z φZ
smfmullem2.p2 φPUYU
smfmullem2.42 φRUU+Y
smfmullem2.w2 φSVYV
smfmullem2.z2 φZVV+Y
smfmullem2.x X=AUV1+U+V
smfmullem2.y Y=if1X1X
Assertion smfmullem2 φqKUq0q1Vq2q3

Proof

Step Hyp Ref Expression
1 smfmullem2.a φA
2 smfmullem2.k K=q03|uq0q1vq2q3uv<A
3 smfmullem2.u φU
4 smfmullem2.v φV
5 smfmullem2.l φUV<A
6 smfmullem2.p φP
7 smfmullem2.r φR
8 smfmullem2.s φS
9 smfmullem2.z φZ
10 smfmullem2.p2 φPUYU
11 smfmullem2.42 φRUU+Y
12 smfmullem2.w2 φSVYV
13 smfmullem2.z2 φZVV+Y
14 smfmullem2.x X=AUV1+U+V
15 smfmullem2.y Y=if1X1X
16 6 7 8 9 s4cld φ⟨“PRSZ”⟩Word
17 s4len ⟨“PRSZ”⟩=4
18 17 a1i φ⟨“PRSZ”⟩=4
19 16 18 jca φ⟨“PRSZ”⟩Word⟨“PRSZ”⟩=4
20 qex V
21 20 a1i φV
22 4nn0 40
23 22 a1i φ40
24 wrdmap V40⟨“PRSZ”⟩Word⟨“PRSZ”⟩=4⟨“PRSZ”⟩0..^4
25 21 23 24 syl2anc φ⟨“PRSZ”⟩Word⟨“PRSZ”⟩=4⟨“PRSZ”⟩0..^4
26 19 25 mpbid φ⟨“PRSZ”⟩0..^4
27 3z 3
28 fzval3 303=0..^3+1
29 27 28 ax-mp 03=0..^3+1
30 3p1e4 3+1=4
31 30 oveq2i 0..^3+1=0..^4
32 29 31 eqtri 03=0..^4
33 32 eqcomi 0..^4=03
34 33 a1i φ0..^4=03
35 34 oveq2d φ0..^4=03
36 26 35 eleqtrd φ⟨“PRSZ”⟩03
37 simpr φu⟨“PRSZ”⟩0⟨“PRSZ”⟩1u⟨“PRSZ”⟩0⟨“PRSZ”⟩1
38 s4fv0 P⟨“PRSZ”⟩0=P
39 6 38 syl φ⟨“PRSZ”⟩0=P
40 s4fv1 R⟨“PRSZ”⟩1=R
41 7 40 syl φ⟨“PRSZ”⟩1=R
42 39 41 oveq12d φ⟨“PRSZ”⟩0⟨“PRSZ”⟩1=PR
43 42 adantr φu⟨“PRSZ”⟩0⟨“PRSZ”⟩1⟨“PRSZ”⟩0⟨“PRSZ”⟩1=PR
44 37 43 eleqtrd φu⟨“PRSZ”⟩0⟨“PRSZ”⟩1uPR
45 simpr φv⟨“PRSZ”⟩2⟨“PRSZ”⟩3v⟨“PRSZ”⟩2⟨“PRSZ”⟩3
46 s4fv2 S⟨“PRSZ”⟩2=S
47 8 46 syl φ⟨“PRSZ”⟩2=S
48 s4fv3 Z⟨“PRSZ”⟩3=Z
49 9 48 syl φ⟨“PRSZ”⟩3=Z
50 47 49 oveq12d φ⟨“PRSZ”⟩2⟨“PRSZ”⟩3=SZ
51 50 adantr φv⟨“PRSZ”⟩2⟨“PRSZ”⟩3⟨“PRSZ”⟩2⟨“PRSZ”⟩3=SZ
52 45 51 eleqtrd φv⟨“PRSZ”⟩2⟨“PRSZ”⟩3vSZ
53 simpr φvSZvSZ
54 52 53 syldan φv⟨“PRSZ”⟩2⟨“PRSZ”⟩3vSZ
55 54 adantlr φuPRv⟨“PRSZ”⟩2⟨“PRSZ”⟩3vSZ
56 1 ad2antrr φuPRvSZA
57 3 ad2antrr φuPRvSZU
58 4 ad2antrr φuPRvSZV
59 5 ad2antrr φuPRvSZUV<A
60 10 ad2antrr φuPRvSZPUYU
61 11 ad2antrr φuPRvSZRUU+Y
62 12 ad2antrr φuPRvSZSVYV
63 13 ad2antrr φuPRvSZZVV+Y
64 simplr φuPRvSZuPR
65 simpr φuPRvSZvSZ
66 56 57 58 59 14 15 60 61 62 63 64 65 smfmullem1 φuPRvSZuv<A
67 55 66 syldan φuPRv⟨“PRSZ”⟩2⟨“PRSZ”⟩3uv<A
68 67 ralrimiva φuPRv⟨“PRSZ”⟩2⟨“PRSZ”⟩3uv<A
69 44 68 syldan φu⟨“PRSZ”⟩0⟨“PRSZ”⟩1v⟨“PRSZ”⟩2⟨“PRSZ”⟩3uv<A
70 69 ralrimiva φu⟨“PRSZ”⟩0⟨“PRSZ”⟩1v⟨“PRSZ”⟩2⟨“PRSZ”⟩3uv<A
71 36 70 jca φ⟨“PRSZ”⟩03u⟨“PRSZ”⟩0⟨“PRSZ”⟩1v⟨“PRSZ”⟩2⟨“PRSZ”⟩3uv<A
72 fveq1 q=⟨“PRSZ”⟩q0=⟨“PRSZ”⟩0
73 fveq1 q=⟨“PRSZ”⟩q1=⟨“PRSZ”⟩1
74 72 73 oveq12d q=⟨“PRSZ”⟩q0q1=⟨“PRSZ”⟩0⟨“PRSZ”⟩1
75 74 raleqdv q=⟨“PRSZ”⟩uq0q1vq2q3uv<Au⟨“PRSZ”⟩0⟨“PRSZ”⟩1vq2q3uv<A
76 fveq1 q=⟨“PRSZ”⟩q2=⟨“PRSZ”⟩2
77 fveq1 q=⟨“PRSZ”⟩q3=⟨“PRSZ”⟩3
78 76 77 oveq12d q=⟨“PRSZ”⟩q2q3=⟨“PRSZ”⟩2⟨“PRSZ”⟩3
79 78 raleqdv q=⟨“PRSZ”⟩vq2q3uv<Av⟨“PRSZ”⟩2⟨“PRSZ”⟩3uv<A
80 79 ralbidv q=⟨“PRSZ”⟩u⟨“PRSZ”⟩0⟨“PRSZ”⟩1vq2q3uv<Au⟨“PRSZ”⟩0⟨“PRSZ”⟩1v⟨“PRSZ”⟩2⟨“PRSZ”⟩3uv<A
81 75 80 bitrd q=⟨“PRSZ”⟩uq0q1vq2q3uv<Au⟨“PRSZ”⟩0⟨“PRSZ”⟩1v⟨“PRSZ”⟩2⟨“PRSZ”⟩3uv<A
82 81 2 elrab2 ⟨“PRSZ”⟩K⟨“PRSZ”⟩03u⟨“PRSZ”⟩0⟨“PRSZ”⟩1v⟨“PRSZ”⟩2⟨“PRSZ”⟩3uv<A
83 71 82 sylibr φ⟨“PRSZ”⟩K
84 qssre
85 84 6 sselid φP
86 85 rexrd φP*
87 84 7 sselid φR
88 87 rexrd φR*
89 15 a1i φY=if1X1X
90 1rp 1+
91 90 a1i φ1+
92 14 a1i φX=AUV1+U+V
93 3 4 remulcld φUV
94 difrp UVAUV<AAUV+
95 93 1 94 syl2anc φUV<AAUV+
96 5 95 mpbid φAUV+
97 1red φ1
98 3 recnd φU
99 98 abscld φU
100 4 recnd φV
101 100 abscld φV
102 99 101 readdcld φU+V
103 97 102 readdcld φ1+U+V
104 0re 0
105 104 a1i φ0
106 91 rpgt0d φ0<1
107 98 absge0d φ0U
108 100 absge0d φ0V
109 99 101 addge01d φ0VUU+V
110 108 109 mpbid φUU+V
111 105 99 102 107 110 letrd φ0U+V
112 97 102 addge01d φ0U+V11+U+V
113 111 112 mpbid φ11+U+V
114 105 97 103 106 113 ltletrd φ0<1+U+V
115 103 114 elrpd φ1+U+V+
116 96 115 rpdivcld φAUV1+U+V+
117 92 116 eqeltrd φX+
118 91 117 ifcld φif1X1X+
119 89 118 eqeltrd φY+
120 119 rpred φY
121 3 120 resubcld φUY
122 121 rexrd φUY*
123 3 rexrd φU*
124 iooltub UY*U*PUYUP<U
125 122 123 10 124 syl3anc φP<U
126 3 120 readdcld φU+Y
127 126 rexrd φU+Y*
128 ioogtlb U*U+Y*RUU+YU<R
129 123 127 11 128 syl3anc φU<R
130 86 88 3 125 129 eliood φUPR
131 42 eqcomd φPR=⟨“PRSZ”⟩0⟨“PRSZ”⟩1
132 130 131 eleqtrd φU⟨“PRSZ”⟩0⟨“PRSZ”⟩1
133 84 8 sselid φS
134 133 rexrd φS*
135 84 9 sselid φZ
136 135 rexrd φZ*
137 4 120 resubcld φVY
138 137 rexrd φVY*
139 4 rexrd φV*
140 iooltub VY*V*SVYVS<V
141 138 139 12 140 syl3anc φS<V
142 4 120 readdcld φV+Y
143 142 rexrd φV+Y*
144 ioogtlb V*V+Y*ZVV+YV<Z
145 139 143 13 144 syl3anc φV<Z
146 134 136 4 141 145 eliood φVSZ
147 50 eqcomd φSZ=⟨“PRSZ”⟩2⟨“PRSZ”⟩3
148 146 147 eleqtrd φV⟨“PRSZ”⟩2⟨“PRSZ”⟩3
149 132 148 jca φU⟨“PRSZ”⟩0⟨“PRSZ”⟩1V⟨“PRSZ”⟩2⟨“PRSZ”⟩3
150 nfv qU⟨“PRSZ”⟩0⟨“PRSZ”⟩1V⟨“PRSZ”⟩2⟨“PRSZ”⟩3
151 nfcv _q⟨“PRSZ”⟩
152 nfrab1 _qq03|uq0q1vq2q3uv<A
153 2 152 nfcxfr _qK
154 74 eleq2d q=⟨“PRSZ”⟩Uq0q1U⟨“PRSZ”⟩0⟨“PRSZ”⟩1
155 78 eleq2d q=⟨“PRSZ”⟩Vq2q3V⟨“PRSZ”⟩2⟨“PRSZ”⟩3
156 154 155 anbi12d q=⟨“PRSZ”⟩Uq0q1Vq2q3U⟨“PRSZ”⟩0⟨“PRSZ”⟩1V⟨“PRSZ”⟩2⟨“PRSZ”⟩3
157 150 151 153 156 rspcef ⟨“PRSZ”⟩KU⟨“PRSZ”⟩0⟨“PRSZ”⟩1V⟨“PRSZ”⟩2⟨“PRSZ”⟩3qKUq0q1Vq2q3
158 83 149 157 syl2anc φqKUq0q1Vq2q3