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

Theorem iblss2 24389
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 24351 . . . 4 ((𝑥𝐴𝐶) ∈ 𝐿1 → (𝑥𝐴𝐶) ∈ MblFn)
75, 6syl 17 . . 3 (𝜑 → (𝑥𝐴𝐶) ∈ MblFn)
81, 2, 3, 4, 7mbfss 24230 . 2 (𝜑 → (𝑥𝐵𝐶) ∈ MblFn)
91adantr 483 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (0...3)) → 𝐴𝐵)
109sselda 3955 . . . . . . . . . 10 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → 𝑥𝐵)
1110iftrued 4461 . . . . . . . . 9 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(𝑥𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0))
12 iftrue 4459 . . . . . . . . . 10 (𝑥𝐴 → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0))
1312adantl 484 . . . . . . . . 9 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0))
1411, 13eqtr4d 2859 . . . . . . . 8 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(𝑥𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0))
15 ifid 4492 . . . . . . . . 9 if(𝑥𝐵, 0, 0) = 0
16 simplll 773 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → 𝜑)
17 simpr 487 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → 𝑥𝐵)
18 simplr 767 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → ¬ 𝑥𝐴)
1917, 18eldifd 3935 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → 𝑥 ∈ (𝐵𝐴))
2016, 19, 4syl2anc 586 . . . . . . . . . . . . . . . 16 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → 𝐶 = 0)
2120oveq1d 7157 . . . . . . . . . . . . . . 15 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → (𝐶 / (i↑𝑘)) = (0 / (i↑𝑘)))
22 simpllr 774 . . . . . . . . . . . . . . . 16 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → 𝑘 ∈ (0...3))
23 elfzelz 12898 . . . . . . . . . . . . . . . 16 (𝑘 ∈ (0...3) → 𝑘 ∈ ℤ)
24 ax-icn 10582 . . . . . . . . . . . . . . . . 17 i ∈ ℂ
25 ine0 11061 . . . . . . . . . . . . . . . . 17 i ≠ 0
26 expclz 13444 . . . . . . . . . . . . . . . . . 18 ((i ∈ ℂ ∧ i ≠ 0 ∧ 𝑘 ∈ ℤ) → (i↑𝑘) ∈ ℂ)
27 expne0i 13451 . . . . . . . . . . . . . . . . . 18 ((i ∈ ℂ ∧ i ≠ 0 ∧ 𝑘 ∈ ℤ) → (i↑𝑘) ≠ 0)
2826, 27div0d 11401 . . . . . . . . . . . . . . . . 17 ((i ∈ ℂ ∧ i ≠ 0 ∧ 𝑘 ∈ ℤ) → (0 / (i↑𝑘)) = 0)
2924, 25, 28mp3an12 1447 . . . . . . . . . . . . . . . 16 (𝑘 ∈ ℤ → (0 / (i↑𝑘)) = 0)
3022, 23, 293syl 18 . . . . . . . . . . . . . . 15 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → (0 / (i↑𝑘)) = 0)
3121, 30eqtrd 2856 . . . . . . . . . . . . . 14 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → (𝐶 / (i↑𝑘)) = 0)
3231fveq2d 6660 . . . . . . . . . . . . 13 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → (ℜ‘(𝐶 / (i↑𝑘))) = (ℜ‘0))
33 re0 14496 . . . . . . . . . . . . 13 (ℜ‘0) = 0
3432, 33syl6eq 2872 . . . . . . . . . . . 12 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → (ℜ‘(𝐶 / (i↑𝑘))) = 0)
3534ifeq1d 4471 . . . . . . . . . . 11 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), 0, 0))
36 ifid 4492 . . . . . . . . . . 11 if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), 0, 0) = 0
3735, 36syl6eq 2872 . . . . . . . . . 10 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = 0)
3837ifeq1da 4483 . . . . . . . . 9 (((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) → if(𝑥𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = if(𝑥𝐵, 0, 0))
39 iffalse 4462 . . . . . . . . . 10 𝑥𝐴 → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = 0)
4039adantl 484 . . . . . . . . 9 (((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = 0)
4115, 38, 403eqtr4a 2882 . . . . . . . 8 (((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) → if(𝑥𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0))
4214, 41pm2.61dan 811 . . . . . . 7 ((𝜑𝑘 ∈ (0...3)) → if(𝑥𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0))
43 ifan 4504 . . . . . . 7 if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = if(𝑥𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0)
44 ifan 4504 . . . . . . 7 if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0)
4542, 43, 443eqtr4g 2881 . . . . . 6 ((𝜑𝑘 ∈ (0...3)) → if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))
4645mpteq2dv 5148 . . . . 5 ((𝜑𝑘 ∈ (0...3)) → (𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)))
4746fveq2d 6660 . . . 4 ((𝜑𝑘 ∈ (0...3)) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) = (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))))
48 eqidd 2822 . . . . . 6 (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)))
49 eqidd 2822 . . . . . 6 ((𝜑𝑥𝐴) → (ℜ‘(𝐶 / (i↑𝑘))) = (ℜ‘(𝐶 / (i↑𝑘))))
5048, 49, 5, 3iblitg 24352 . . . . 5 ((𝜑𝑘 ∈ ℤ) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)
5123, 50sylan2 594 . . . 4 ((𝜑𝑘 ∈ (0...3)) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)
5247, 51eqeltrd 2913 . . 3 ((𝜑𝑘 ∈ (0...3)) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)
5352ralrimiva 3182 . 2 (𝜑 → ∀𝑘 ∈ (0...3)(∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)
54 eqidd 2822 . . 3 (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)))
55 eqidd 2822 . . 3 ((𝜑𝑥𝐵) → (ℜ‘(𝐶 / (i↑𝑘))) = (ℜ‘(𝐶 / (i↑𝑘))))
56 elun 4113 . . . . . 6 (𝑥 ∈ (𝐴 ∪ (𝐵𝐴)) ↔ (𝑥𝐴𝑥 ∈ (𝐵𝐴)))
57 undif2 4411 . . . . . . . 8 (𝐴 ∪ (𝐵𝐴)) = (𝐴𝐵)
58 ssequn1 4144 . . . . . . . . 9 (𝐴𝐵 ↔ (𝐴𝐵) = 𝐵)
591, 58sylib 220 . . . . . . . 8 (𝜑 → (𝐴𝐵) = 𝐵)
6057, 59syl5eq 2868 . . . . . . 7 (𝜑 → (𝐴 ∪ (𝐵𝐴)) = 𝐵)
6160eleq2d 2898 . . . . . 6 (𝜑 → (𝑥 ∈ (𝐴 ∪ (𝐵𝐴)) ↔ 𝑥𝐵))
6256, 61syl5bbr 287 . . . . 5 (𝜑 → ((𝑥𝐴𝑥 ∈ (𝐵𝐴)) ↔ 𝑥𝐵))
6362biimpar 480 . . . 4 ((𝜑𝑥𝐵) → (𝑥𝐴𝑥 ∈ (𝐵𝐴)))
647, 3mbfmptcl 24220 . . . . 5 ((𝜑𝑥𝐴) → 𝐶 ∈ ℂ)
65 0cn 10619 . . . . . 6 0 ∈ ℂ
664, 65eqeltrdi 2921 . . . . 5 ((𝜑𝑥 ∈ (𝐵𝐴)) → 𝐶 ∈ ℂ)
6764, 66jaodan 954 . . . 4 ((𝜑 ∧ (𝑥𝐴𝑥 ∈ (𝐵𝐴))) → 𝐶 ∈ ℂ)
6863, 67syldan 593 . . 3 ((𝜑𝑥𝐵) → 𝐶 ∈ ℂ)
6954, 55, 68isibl2 24350 . 2 (𝜑 → ((𝑥𝐵𝐶) ∈ 𝐿1 ↔ ((𝑥𝐵𝐶) ∈ MblFn ∧ ∀𝑘 ∈ (0...3)(∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)))
708, 53, 69mpbir2and 711 1 (𝜑 → (𝑥𝐵𝐶) ∈ 𝐿1)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 398  wo 843  w3a 1083   = wceq 1537  wcel 2114  wne 3016  wral 3138  cdif 3921  cun 3922  wss 3924  ifcif 4453   class class class wbr 5052  cmpt 5132  dom cdm 5541  cfv 6341  (class class class)co 7142  cc 10521  cr 10522  0cc0 10523  ici 10525  cle 10662   / cdiv 11283  3c3 11680  cz 11968  ...cfz 12882  cexp 13419  cre 14441  volcvol 24047  MblFncmbf 24198  2citg2 24200  𝐿1cibl 24201
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793  ax-rep 5176  ax-sep 5189  ax-nul 5196  ax-pow 5252  ax-pr 5316  ax-un 7447  ax-inf2 9090  ax-cnex 10579  ax-resscn 10580  ax-1cn 10581  ax-icn 10582  ax-addcl 10583  ax-addrcl 10584  ax-mulcl 10585  ax-mulrcl 10586  ax-mulcom 10587  ax-addass 10588  ax-mulass 10589  ax-distr 10590  ax-i2m1 10591  ax-1ne0 10592  ax-1rid 10593  ax-rnegex 10594  ax-rrecex 10595  ax-cnre 10596  ax-pre-lttri 10597  ax-pre-lttrn 10598  ax-pre-ltadd 10599  ax-pre-mulgt0 10600  ax-pre-sup 10601
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-fal 1550  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-nel 3124  df-ral 3143  df-rex 3144  df-reu 3145  df-rmo 3146  df-rab 3147  df-v 3488  df-sbc 3764  df-csb 3872  df-dif 3927  df-un 3929  df-in 3931  df-ss 3940  df-pss 3942  df-nul 4280  df-if 4454  df-pw 4527  df-sn 4554  df-pr 4556  df-tp 4558  df-op 4560  df-uni 4825  df-int 4863  df-iun 4907  df-br 5053  df-opab 5115  df-mpt 5133  df-tr 5159  df-id 5446  df-eprel 5451  df-po 5460  df-so 5461  df-fr 5500  df-se 5501  df-we 5502  df-xp 5547  df-rel 5548  df-cnv 5549  df-co 5550  df-dm 5551  df-rn 5552  df-res 5553  df-ima 5554  df-pred 6134  df-ord 6180  df-on 6181  df-lim 6182  df-suc 6183  df-iota 6300  df-fun 6343  df-fn 6344  df-f 6345  df-f1 6346  df-fo 6347  df-f1o 6348  df-fv 6349  df-isom 6350  df-riota 7100  df-ov 7145  df-oprab 7146  df-mpo 7147  df-of 7395  df-om 7567  df-1st 7675  df-2nd 7676  df-wrecs 7933  df-recs 7994  df-rdg 8032  df-1o 8088  df-2o 8089  df-oadd 8092  df-er 8275  df-map 8394  df-pm 8395  df-en 8496  df-dom 8497  df-sdom 8498  df-fin 8499  df-sup 8892  df-inf 8893  df-oi 8960  df-dju 9316  df-card 9354  df-pnf 10663  df-mnf 10664  df-xr 10665  df-ltxr 10666  df-le 10667  df-sub 10858  df-neg 10859  df-div 11284  df-nn 11625  df-2 11687  df-3 11688  df-4 11689  df-n0 11885  df-z 11969  df-uz 12231  df-q 12336  df-rp 12377  df-xadd 12495  df-ioo 12729  df-ico 12731  df-icc 12732  df-fz 12883  df-fzo 13024  df-fl 13152  df-mod 13228  df-seq 13360  df-exp 13420  df-hash 13681  df-cj 14443  df-re 14444  df-im 14445  df-sqrt 14579  df-abs 14580  df-clim 14830  df-sum 15028  df-xmet 20521  df-met 20522  df-ovol 24048  df-vol 24049  df-mbf 24203  df-ibl 24206
This theorem is referenced by:  itgss3  24398  itgless  24400  ftc1anclem5  35003  ftc1anclem6  35004  areacirc  35019  arearect  39913  areaquad  39914
  Copyright terms: Public domain W3C validator