MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  iblss2 Structured version   Visualization version   GIF version

Theorem iblss2 25713
Description: Change the domain of an integrability predicate. (Contributed by Mario Carneiro, 13-Aug-2014.) (Revised by Mario Carneiro, 23-Aug-2014.)
Hypotheses
Ref Expression
iblss2.1 (𝜑𝐴𝐵)
iblss2.2 (𝜑𝐵 ∈ dom vol)
iblss2.3 ((𝜑𝑥𝐴) → 𝐶𝑉)
iblss2.4 ((𝜑𝑥 ∈ (𝐵𝐴)) → 𝐶 = 0)
iblss2.5 (𝜑 → (𝑥𝐴𝐶) ∈ 𝐿1)
Assertion
Ref Expression
iblss2 (𝜑 → (𝑥𝐵𝐶) ∈ 𝐿1)
Distinct variable groups:   𝑥,𝐴   𝑥,𝐵   𝜑,𝑥   𝑥,𝑉
Allowed substitution hint:   𝐶(𝑥)

Proof of Theorem iblss2
Dummy variable 𝑘 is distinct from all other variables.
StepHypRef Expression
1 iblss2.1 . . 3 (𝜑𝐴𝐵)
2 iblss2.2 . . 3 (𝜑𝐵 ∈ dom vol)
3 iblss2.3 . . 3 ((𝜑𝑥𝐴) → 𝐶𝑉)
4 iblss2.4 . . 3 ((𝜑𝑥 ∈ (𝐵𝐴)) → 𝐶 = 0)
5 iblss2.5 . . . 4 (𝜑 → (𝑥𝐴𝐶) ∈ 𝐿1)
6 iblmbf 25674 . . . 4 ((𝑥𝐴𝐶) ∈ 𝐿1 → (𝑥𝐴𝐶) ∈ MblFn)
75, 6syl 17 . . 3 (𝜑 → (𝑥𝐴𝐶) ∈ MblFn)
81, 2, 3, 4, 7mbfss 25553 . 2 (𝜑 → (𝑥𝐵𝐶) ∈ MblFn)
91adantr 480 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (0...3)) → 𝐴𝐵)
109sselda 3948 . . . . . . . . . 10 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → 𝑥𝐵)
1110iftrued 4498 . . . . . . . . 9 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(𝑥𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0))
12 iftrue 4496 . . . . . . . . . 10 (𝑥𝐴 → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0))
1312adantl 481 . . . . . . . . 9 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0))
1411, 13eqtr4d 2768 . . . . . . . 8 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(𝑥𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0))
15 ifid 4531 . . . . . . . . 9 if(𝑥𝐵, 0, 0) = 0
16 simplll 774 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → 𝜑)
17 simpr 484 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → 𝑥𝐵)
18 simplr 768 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → ¬ 𝑥𝐴)
1917, 18eldifd 3927 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → 𝑥 ∈ (𝐵𝐴))
2016, 19, 4syl2anc 584 . . . . . . . . . . . . . . . 16 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → 𝐶 = 0)
2120oveq1d 7404 . . . . . . . . . . . . . . 15 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → (𝐶 / (i↑𝑘)) = (0 / (i↑𝑘)))
22 simpllr 775 . . . . . . . . . . . . . . . 16 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → 𝑘 ∈ (0...3))
23 elfzelz 13491 . . . . . . . . . . . . . . . 16 (𝑘 ∈ (0...3) → 𝑘 ∈ ℤ)
24 ax-icn 11133 . . . . . . . . . . . . . . . . 17 i ∈ ℂ
25 ine0 11619 . . . . . . . . . . . . . . . . 17 i ≠ 0
26 expclz 14055 . . . . . . . . . . . . . . . . . 18 ((i ∈ ℂ ∧ i ≠ 0 ∧ 𝑘 ∈ ℤ) → (i↑𝑘) ∈ ℂ)
27 expne0i 14065 . . . . . . . . . . . . . . . . . 18 ((i ∈ ℂ ∧ i ≠ 0 ∧ 𝑘 ∈ ℤ) → (i↑𝑘) ≠ 0)
2826, 27div0d 11963 . . . . . . . . . . . . . . . . 17 ((i ∈ ℂ ∧ i ≠ 0 ∧ 𝑘 ∈ ℤ) → (0 / (i↑𝑘)) = 0)
2924, 25, 28mp3an12 1453 . . . . . . . . . . . . . . . 16 (𝑘 ∈ ℤ → (0 / (i↑𝑘)) = 0)
3022, 23, 293syl 18 . . . . . . . . . . . . . . 15 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → (0 / (i↑𝑘)) = 0)
3121, 30eqtrd 2765 . . . . . . . . . . . . . 14 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → (𝐶 / (i↑𝑘)) = 0)
3231fveq2d 6864 . . . . . . . . . . . . 13 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → (ℜ‘(𝐶 / (i↑𝑘))) = (ℜ‘0))
33 re0 15124 . . . . . . . . . . . . 13 (ℜ‘0) = 0
3432, 33eqtrdi 2781 . . . . . . . . . . . 12 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → (ℜ‘(𝐶 / (i↑𝑘))) = 0)
3534ifeq1d 4510 . . . . . . . . . . 11 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), 0, 0))
36 ifid 4531 . . . . . . . . . . 11 if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), 0, 0) = 0
3735, 36eqtrdi 2781 . . . . . . . . . 10 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = 0)
3837ifeq1da 4522 . . . . . . . . 9 (((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) → if(𝑥𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = if(𝑥𝐵, 0, 0))
39 iffalse 4499 . . . . . . . . . 10 𝑥𝐴 → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = 0)
4039adantl 481 . . . . . . . . 9 (((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = 0)
4115, 38, 403eqtr4a 2791 . . . . . . . 8 (((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) → if(𝑥𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0))
4214, 41pm2.61dan 812 . . . . . . 7 ((𝜑𝑘 ∈ (0...3)) → if(𝑥𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0))
43 ifan 4544 . . . . . . 7 if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = if(𝑥𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0)
44 ifan 4544 . . . . . . 7 if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0)
4542, 43, 443eqtr4g 2790 . . . . . 6 ((𝜑𝑘 ∈ (0...3)) → if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))
4645mpteq2dv 5203 . . . . 5 ((𝜑𝑘 ∈ (0...3)) → (𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)))
4746fveq2d 6864 . . . 4 ((𝜑𝑘 ∈ (0...3)) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) = (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))))
48 eqidd 2731 . . . . . 6 (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)))
49 eqidd 2731 . . . . . 6 ((𝜑𝑥𝐴) → (ℜ‘(𝐶 / (i↑𝑘))) = (ℜ‘(𝐶 / (i↑𝑘))))
5048, 49, 5, 3iblitg 25675 . . . . 5 ((𝜑𝑘 ∈ ℤ) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)
5123, 50sylan2 593 . . . 4 ((𝜑𝑘 ∈ (0...3)) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)
5247, 51eqeltrd 2829 . . 3 ((𝜑𝑘 ∈ (0...3)) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)
5352ralrimiva 3126 . 2 (𝜑 → ∀𝑘 ∈ (0...3)(∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)
54 eqidd 2731 . . 3 (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)))
55 eqidd 2731 . . 3 ((𝜑𝑥𝐵) → (ℜ‘(𝐶 / (i↑𝑘))) = (ℜ‘(𝐶 / (i↑𝑘))))
56 elun 4118 . . . . . 6 (𝑥 ∈ (𝐴 ∪ (𝐵𝐴)) ↔ (𝑥𝐴𝑥 ∈ (𝐵𝐴)))
57 undif2 4442 . . . . . . . 8 (𝐴 ∪ (𝐵𝐴)) = (𝐴𝐵)
58 ssequn1 4151 . . . . . . . . 9 (𝐴𝐵 ↔ (𝐴𝐵) = 𝐵)
591, 58sylib 218 . . . . . . . 8 (𝜑 → (𝐴𝐵) = 𝐵)
6057, 59eqtrid 2777 . . . . . . 7 (𝜑 → (𝐴 ∪ (𝐵𝐴)) = 𝐵)
6160eleq2d 2815 . . . . . 6 (𝜑 → (𝑥 ∈ (𝐴 ∪ (𝐵𝐴)) ↔ 𝑥𝐵))
6256, 61bitr3id 285 . . . . 5 (𝜑 → ((𝑥𝐴𝑥 ∈ (𝐵𝐴)) ↔ 𝑥𝐵))
6362biimpar 477 . . . 4 ((𝜑𝑥𝐵) → (𝑥𝐴𝑥 ∈ (𝐵𝐴)))
647, 3mbfmptcl 25543 . . . . 5 ((𝜑𝑥𝐴) → 𝐶 ∈ ℂ)
65 0cn 11172 . . . . . 6 0 ∈ ℂ
664, 65eqeltrdi 2837 . . . . 5 ((𝜑𝑥 ∈ (𝐵𝐴)) → 𝐶 ∈ ℂ)
6764, 66jaodan 959 . . . 4 ((𝜑 ∧ (𝑥𝐴𝑥 ∈ (𝐵𝐴))) → 𝐶 ∈ ℂ)
6863, 67syldan 591 . . 3 ((𝜑𝑥𝐵) → 𝐶 ∈ ℂ)
6954, 55, 68isibl2 25673 . 2 (𝜑 → ((𝑥𝐵𝐶) ∈ 𝐿1 ↔ ((𝑥𝐵𝐶) ∈ MblFn ∧ ∀𝑘 ∈ (0...3)(∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)))
708, 53, 69mpbir2and 713 1 (𝜑 → (𝑥𝐵𝐶) ∈ 𝐿1)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395  wo 847  w3a 1086   = wceq 1540  wcel 2109  wne 2926  wral 3045  cdif 3913  cun 3914  wss 3916  ifcif 4490   class class class wbr 5109  cmpt 5190  dom cdm 5640  cfv 6513  (class class class)co 7389  cc 11072  cr 11073  0cc0 11074  ici 11076  cle 11215   / cdiv 11841  3c3 12243  cz 12535  ...cfz 13474  cexp 14032  cre 15069  volcvol 25370  MblFncmbf 25521  2citg2 25523  𝐿1cibl 25524
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-rep 5236  ax-sep 5253  ax-nul 5263  ax-pow 5322  ax-pr 5389  ax-un 7713  ax-inf2 9600  ax-cnex 11130  ax-resscn 11131  ax-1cn 11132  ax-icn 11133  ax-addcl 11134  ax-addrcl 11135  ax-mulcl 11136  ax-mulrcl 11137  ax-mulcom 11138  ax-addass 11139  ax-mulass 11140  ax-distr 11141  ax-i2m1 11142  ax-1ne0 11143  ax-1rid 11144  ax-rnegex 11145  ax-rrecex 11146  ax-cnre 11147  ax-pre-lttri 11148  ax-pre-lttrn 11149  ax-pre-ltadd 11150  ax-pre-mulgt0 11151  ax-pre-sup 11152
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-nel 3031  df-ral 3046  df-rex 3055  df-rmo 3356  df-reu 3357  df-rab 3409  df-v 3452  df-sbc 3756  df-csb 3865  df-dif 3919  df-un 3921  df-in 3923  df-ss 3933  df-pss 3936  df-nul 4299  df-if 4491  df-pw 4567  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4874  df-int 4913  df-iun 4959  df-br 5110  df-opab 5172  df-mpt 5191  df-tr 5217  df-id 5535  df-eprel 5540  df-po 5548  df-so 5549  df-fr 5593  df-se 5594  df-we 5595  df-xp 5646  df-rel 5647  df-cnv 5648  df-co 5649  df-dm 5650  df-rn 5651  df-res 5652  df-ima 5653  df-pred 6276  df-ord 6337  df-on 6338  df-lim 6339  df-suc 6340  df-iota 6466  df-fun 6515  df-fn 6516  df-f 6517  df-f1 6518  df-fo 6519  df-f1o 6520  df-fv 6521  df-isom 6522  df-riota 7346  df-ov 7392  df-oprab 7393  df-mpo 7394  df-of 7655  df-om 7845  df-1st 7970  df-2nd 7971  df-frecs 8262  df-wrecs 8293  df-recs 8342  df-rdg 8380  df-1o 8436  df-2o 8437  df-er 8673  df-map 8803  df-pm 8804  df-en 8921  df-dom 8922  df-sdom 8923  df-fin 8924  df-sup 9399  df-inf 9400  df-oi 9469  df-dju 9860  df-card 9898  df-pnf 11216  df-mnf 11217  df-xr 11218  df-ltxr 11219  df-le 11220  df-sub 11413  df-neg 11414  df-div 11842  df-nn 12188  df-2 12250  df-3 12251  df-4 12252  df-n0 12449  df-z 12536  df-uz 12800  df-q 12914  df-rp 12958  df-xadd 13079  df-ioo 13316  df-ico 13318  df-icc 13319  df-fz 13475  df-fzo 13622  df-fl 13760  df-mod 13838  df-seq 13973  df-exp 14033  df-hash 14302  df-cj 15071  df-re 15072  df-im 15073  df-sqrt 15207  df-abs 15208  df-clim 15460  df-sum 15659  df-xmet 21263  df-met 21264  df-ovol 25371  df-vol 25372  df-mbf 25526  df-ibl 25529
This theorem is referenced by:  itgss3  25722  itgless  25724  ftc1anclem5  37686  ftc1anclem6  37687  areacirc  37702  arearect  43197  areaquad  43198
  Copyright terms: Public domain W3C validator