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

Theorem iblss2 24408
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 24370 . . . 4 ((𝑥𝐴𝐶) ∈ 𝐿1 → (𝑥𝐴𝐶) ∈ MblFn)
75, 6syl 17 . . 3 (𝜑 → (𝑥𝐴𝐶) ∈ MblFn)
81, 2, 3, 4, 7mbfss 24249 . 2 (𝜑 → (𝑥𝐵𝐶) ∈ MblFn)
91adantr 483 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (0...3)) → 𝐴𝐵)
109sselda 3969 . . . . . . . . . 10 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → 𝑥𝐵)
1110iftrued 4477 . . . . . . . . 9 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(𝑥𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0))
12 iftrue 4475 . . . . . . . . . 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 2861 . . . . . . . 8 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(𝑥𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0))
15 ifid 4508 . . . . . . . . 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 3949 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → 𝑥 ∈ (𝐵𝐴))
2016, 19, 4syl2anc 586 . . . . . . . . . . . . . . . 16 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → 𝐶 = 0)
2120oveq1d 7173 . . . . . . . . . . . . . . 15 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → (𝐶 / (i↑𝑘)) = (0 / (i↑𝑘)))
22 simpllr 774 . . . . . . . . . . . . . . . 16 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → 𝑘 ∈ (0...3))
23 elfzelz 12911 . . . . . . . . . . . . . . . 16 (𝑘 ∈ (0...3) → 𝑘 ∈ ℤ)
24 ax-icn 10598 . . . . . . . . . . . . . . . . 17 i ∈ ℂ
25 ine0 11077 . . . . . . . . . . . . . . . . 17 i ≠ 0
26 expclz 13457 . . . . . . . . . . . . . . . . . 18 ((i ∈ ℂ ∧ i ≠ 0 ∧ 𝑘 ∈ ℤ) → (i↑𝑘) ∈ ℂ)
27 expne0i 13464 . . . . . . . . . . . . . . . . . 18 ((i ∈ ℂ ∧ i ≠ 0 ∧ 𝑘 ∈ ℤ) → (i↑𝑘) ≠ 0)
2826, 27div0d 11417 . . . . . . . . . . . . . . . . 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 2858 . . . . . . . . . . . . . 14 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → (𝐶 / (i↑𝑘)) = 0)
3231fveq2d 6676 . . . . . . . . . . . . 13 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → (ℜ‘(𝐶 / (i↑𝑘))) = (ℜ‘0))
33 re0 14513 . . . . . . . . . . . . 13 (ℜ‘0) = 0
3432, 33syl6eq 2874 . . . . . . . . . . . 12 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → (ℜ‘(𝐶 / (i↑𝑘))) = 0)
3534ifeq1d 4487 . . . . . . . . . . 11 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), 0, 0))
36 ifid 4508 . . . . . . . . . . 11 if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), 0, 0) = 0
3735, 36syl6eq 2874 . . . . . . . . . 10 ((((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) ∧ 𝑥𝐵) → if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = 0)
3837ifeq1da 4499 . . . . . . . . 9 (((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) → if(𝑥𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = if(𝑥𝐵, 0, 0))
39 iffalse 4478 . . . . . . . . . 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 2884 . . . . . . . 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 4520 . . . . . . 7 if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = if(𝑥𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0)
44 ifan 4520 . . . . . . 7 if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0)
4542, 43, 443eqtr4g 2883 . . . . . 6 ((𝜑𝑘 ∈ (0...3)) → if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))
4645mpteq2dv 5164 . . . . 5 ((𝜑𝑘 ∈ (0...3)) → (𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)))
4746fveq2d 6676 . . . 4 ((𝜑𝑘 ∈ (0...3)) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) = (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))))
48 eqidd 2824 . . . . . 6 (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)))
49 eqidd 2824 . . . . . 6 ((𝜑𝑥𝐴) → (ℜ‘(𝐶 / (i↑𝑘))) = (ℜ‘(𝐶 / (i↑𝑘))))
5048, 49, 5, 3iblitg 24371 . . . . 5 ((𝜑𝑘 ∈ ℤ) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)
5123, 50sylan2 594 . . . 4 ((𝜑𝑘 ∈ (0...3)) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)
5247, 51eqeltrd 2915 . . 3 ((𝜑𝑘 ∈ (0...3)) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)
5352ralrimiva 3184 . 2 (𝜑 → ∀𝑘 ∈ (0...3)(∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)
54 eqidd 2824 . . 3 (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)))
55 eqidd 2824 . . 3 ((𝜑𝑥𝐵) → (ℜ‘(𝐶 / (i↑𝑘))) = (ℜ‘(𝐶 / (i↑𝑘))))
56 elun 4127 . . . . . 6 (𝑥 ∈ (𝐴 ∪ (𝐵𝐴)) ↔ (𝑥𝐴𝑥 ∈ (𝐵𝐴)))
57 undif2 4427 . . . . . . . 8 (𝐴 ∪ (𝐵𝐴)) = (𝐴𝐵)
58 ssequn1 4158 . . . . . . . . 9 (𝐴𝐵 ↔ (𝐴𝐵) = 𝐵)
591, 58sylib 220 . . . . . . . 8 (𝜑 → (𝐴𝐵) = 𝐵)
6057, 59syl5eq 2870 . . . . . . 7 (𝜑 → (𝐴 ∪ (𝐵𝐴)) = 𝐵)
6160eleq2d 2900 . . . . . 6 (𝜑 → (𝑥 ∈ (𝐴 ∪ (𝐵𝐴)) ↔ 𝑥𝐵))
6256, 61syl5bbr 287 . . . . 5 (𝜑 → ((𝑥𝐴𝑥 ∈ (𝐵𝐴)) ↔ 𝑥𝐵))
6362biimpar 480 . . . 4 ((𝜑𝑥𝐵) → (𝑥𝐴𝑥 ∈ (𝐵𝐴)))
647, 3mbfmptcl 24239 . . . . 5 ((𝜑𝑥𝐴) → 𝐶 ∈ ℂ)
65 0cn 10635 . . . . . 6 0 ∈ ℂ
664, 65eqeltrdi 2923 . . . . 5 ((𝜑𝑥 ∈ (𝐵𝐴)) → 𝐶 ∈ ℂ)
6764, 66jaodan 954 . . . 4 ((𝜑 ∧ (𝑥𝐴𝑥 ∈ (𝐵𝐴))) → 𝐶 ∈ ℂ)
6863, 67syldan 593 . . 3 ((𝜑𝑥𝐵) → 𝐶 ∈ ℂ)
6954, 55, 68isibl2 24369 . 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 3018  wral 3140  cdif 3935  cun 3936  wss 3938  ifcif 4469   class class class wbr 5068  cmpt 5148  dom cdm 5557  cfv 6357  (class class class)co 7158  cc 10537  cr 10538  0cc0 10539  ici 10541  cle 10678   / cdiv 11299  3c3 11696  cz 11984  ...cfz 12895  cexp 13432  cre 14458  volcvol 24066  MblFncmbf 24217  2citg2 24219  𝐿1cibl 24220
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 2795  ax-rep 5192  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463  ax-inf2 9106  ax-cnex 10595  ax-resscn 10596  ax-1cn 10597  ax-icn 10598  ax-addcl 10599  ax-addrcl 10600  ax-mulcl 10601  ax-mulrcl 10602  ax-mulcom 10603  ax-addass 10604  ax-mulass 10605  ax-distr 10606  ax-i2m1 10607  ax-1ne0 10608  ax-1rid 10609  ax-rnegex 10610  ax-rrecex 10611  ax-cnre 10612  ax-pre-lttri 10613  ax-pre-lttrn 10614  ax-pre-ltadd 10615  ax-pre-mulgt0 10616  ax-pre-sup 10617
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 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-nel 3126  df-ral 3145  df-rex 3146  df-reu 3147  df-rmo 3148  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-pss 3956  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-tp 4574  df-op 4576  df-uni 4841  df-int 4879  df-iun 4923  df-br 5069  df-opab 5131  df-mpt 5149  df-tr 5175  df-id 5462  df-eprel 5467  df-po 5476  df-so 5477  df-fr 5516  df-se 5517  df-we 5518  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-pred 6150  df-ord 6196  df-on 6197  df-lim 6198  df-suc 6199  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-isom 6366  df-riota 7116  df-ov 7161  df-oprab 7162  df-mpo 7163  df-of 7411  df-om 7583  df-1st 7691  df-2nd 7692  df-wrecs 7949  df-recs 8010  df-rdg 8048  df-1o 8104  df-2o 8105  df-oadd 8108  df-er 8291  df-map 8410  df-pm 8411  df-en 8512  df-dom 8513  df-sdom 8514  df-fin 8515  df-sup 8908  df-inf 8909  df-oi 8976  df-dju 9332  df-card 9370  df-pnf 10679  df-mnf 10680  df-xr 10681  df-ltxr 10682  df-le 10683  df-sub 10874  df-neg 10875  df-div 11300  df-nn 11641  df-2 11703  df-3 11704  df-4 11705  df-n0 11901  df-z 11985  df-uz 12247  df-q 12352  df-rp 12393  df-xadd 12511  df-ioo 12745  df-ico 12747  df-icc 12748  df-fz 12896  df-fzo 13037  df-fl 13165  df-mod 13241  df-seq 13373  df-exp 13433  df-hash 13694  df-cj 14460  df-re 14461  df-im 14462  df-sqrt 14596  df-abs 14597  df-clim 14847  df-sum 15045  df-xmet 20540  df-met 20541  df-ovol 24067  df-vol 24068  df-mbf 24222  df-ibl 24225
This theorem is referenced by:  itgss3  24417  itgless  24419  ftc1anclem5  34973  ftc1anclem6  34974  areacirc  34989  arearect  39829  areaquad  39830
  Copyright terms: Public domain W3C validator