Metamath Proof Explorer


Theorem smfrec

Description: The reciprocal of a sigma-measurable functions is sigma-measurable. First part of Proposition 121E (e) of Fremlin1 p. 38 . (Contributed by Glauco Siliprandi, 26-Jun-2021)

Ref Expression
Hypotheses smfrec.x xφ
smfrec.s φSSAlg
smfrec.a φAV
smfrec.b φxAB
smfrec.m φxABSMblFnS
smfrec.e C=xA|B0
Assertion smfrec φxC1BSMblFnS

Proof

Step Hyp Ref Expression
1 smfrec.x xφ
2 smfrec.s φSSAlg
3 smfrec.a φAV
4 smfrec.b φxAB
5 smfrec.m φxABSMblFnS
6 smfrec.e C=xA|B0
7 nfv aφ
8 ssrab2 xA|B0A
9 6 8 eqsstri CA
10 eqid xAB=xAB
11 1 10 4 dmmptdf φdomxAB=A
12 11 eqcomd φA=domxAB
13 eqid domxAB=domxAB
14 2 5 13 smfdmss φdomxABS
15 12 14 eqsstrd φAS
16 9 15 sstrid φCS
17 1red φxC1
18 9 sseli xCxA
19 18 adantl φxCxA
20 19 4 syldan φxCB
21 6 eleq2i xCxxA|B0
22 21 biimpi xCxxA|B0
23 rabidim2 xxA|B0B0
24 22 23 syl xCB0
25 24 adantl φxCB0
26 17 20 25 redivcld φxC1B
27 nfv xa
28 1 27 nfan xφa
29 nfv x0<a
30 28 29 nfan xφa0<a
31 20 ad4ant14 φa0<axCB
32 24 adantl φa0<axCB0
33 simpl a0<aa
34 simpr a0<a0<a
35 33 34 elrpd a0<aa+
36 35 adantll φa0<aa+
37 30 31 32 36 pimrecltpos φa0<axC|1B<a=xC|1a<BxC|B<0
38 6 3 rabexd φCV
39 eqid S𝑡C=S𝑡C
40 2 38 39 subsalsal φS𝑡CSAlg
41 40 ad2antrr φa0<aS𝑡CSAlg
42 2 adantr φaSSAlg
43 42 adantr φa0<aSSAlg
44 9 a1i φCA
45 2 5 44 sssmfmpt φxCBSMblFnS
46 45 adantr φaxCBSMblFnS
47 46 adantr φa0<axCBSMblFnS
48 35 rprecred a0<a1a
49 48 adantll φa0<a1a
50 30 43 31 47 49 smfpimgtmpt φa0<axC|1a<BS𝑡C
51 0red φ0
52 1 2 20 45 51 smfpimltmpt φxC|B<0S𝑡C
53 52 ad2antrr φa0<axC|B<0S𝑡C
54 41 50 53 saluncld φa0<axC|1a<BxC|B<0S𝑡C
55 37 54 eqeltrd φa0<axC|1B<aS𝑡C
56 nfv xa=0
57 1 56 nfan xφa=0
58 breq2 a=01B<a1B<0
59 58 ad2antlr φa=0xC1B<a1B<0
60 20 25 reclt0 φxCB<01B<0
61 60 bicomd φxC1B<0B<0
62 61 adantlr φa=0xC1B<0B<0
63 59 62 bitrd φa=0xC1B<aB<0
64 57 63 rabbida φa=0xC|1B<a=xC|B<0
65 52 adantr φa=0xC|B<0S𝑡C
66 64 65 eqeltrd φa=0xC|1B<aS𝑡C
67 66 ad4ant14 φa¬0<aa=0xC|1B<aS𝑡C
68 simpll φa¬0<a¬a=0φa
69 simpll a¬0<a¬a=0a
70 0red a¬0<a¬a=00
71 neqne ¬a=0a0
72 71 adantl a¬0<a¬a=0a0
73 simplr a¬0<a¬a=0¬0<a
74 69 70 72 73 lttri5d a¬0<a¬a=0a<0
75 74 adantlll φa¬0<a¬a=0a<0
76 nfv xa<0
77 28 76 nfan xφaa<0
78 4 adantlr φaxAB
79 18 78 sylan2 φaxCB
80 79 adantlr φaa<0xCB
81 24 adantl φaa<0xCB0
82 simpr φaa
83 82 adantr φaa<0a
84 simpr φaa<0a<0
85 77 80 81 83 84 pimrecltneg φaa<0xC|1B<a=xC|B1a0
86 42 adantr φaa<0SSAlg
87 38 ad2antrr φaa<0CV
88 46 adantr φaa<0xCBSMblFnS
89 1red aa<01
90 simpl aa<0a
91 lt0ne0 aa<0a0
92 89 90 91 redivcld aa<01a
93 92 adantll φaa<01a
94 93 rexrd φaa<01a*
95 51 ad2antrr φaa<00
96 95 rexrd φaa<00*
97 77 86 87 80 88 94 96 smfpimioompt φaa<0xC|B1a0S𝑡C
98 85 97 eqeltrd φaa<0xC|1B<aS𝑡C
99 68 75 98 syl2anc φa¬0<a¬a=0xC|1B<aS𝑡C
100 67 99 pm2.61dan φa¬0<axC|1B<aS𝑡C
101 55 100 pm2.61dan φaxC|1B<aS𝑡C
102 1 7 2 16 26 101 issmfdmpt φxC1BSMblFnS