Metamath Proof Explorer


Theorem ixxss12

Description: Subset relationship for intervals of extended reals. (Contributed by Mario Carneiro, 20-Feb-2015) (Revised by Mario Carneiro, 28-Apr-2015)

Ref Expression
Hypotheses ixx.1 𝑂 = ( 𝑥 ∈ ℝ* , 𝑦 ∈ ℝ* ↦ { 𝑧 ∈ ℝ* ∣ ( 𝑥 𝑅 𝑧𝑧 𝑆 𝑦 ) } )
ixxss12.2 𝑃 = ( 𝑥 ∈ ℝ* , 𝑦 ∈ ℝ* ↦ { 𝑧 ∈ ℝ* ∣ ( 𝑥 𝑇 𝑧𝑧 𝑈 𝑦 ) } )
ixxss12.3 ( ( 𝐴 ∈ ℝ*𝐶 ∈ ℝ*𝑤 ∈ ℝ* ) → ( ( 𝐴 𝑊 𝐶𝐶 𝑇 𝑤 ) → 𝐴 𝑅 𝑤 ) )
ixxss12.4 ( ( 𝑤 ∈ ℝ*𝐷 ∈ ℝ*𝐵 ∈ ℝ* ) → ( ( 𝑤 𝑈 𝐷𝐷 𝑋 𝐵 ) → 𝑤 𝑆 𝐵 ) )
Assertion ixxss12 ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) → ( 𝐶 𝑃 𝐷 ) ⊆ ( 𝐴 𝑂 𝐵 ) )

Proof

Step Hyp Ref Expression
1 ixx.1 𝑂 = ( 𝑥 ∈ ℝ* , 𝑦 ∈ ℝ* ↦ { 𝑧 ∈ ℝ* ∣ ( 𝑥 𝑅 𝑧𝑧 𝑆 𝑦 ) } )
2 ixxss12.2 𝑃 = ( 𝑥 ∈ ℝ* , 𝑦 ∈ ℝ* ↦ { 𝑧 ∈ ℝ* ∣ ( 𝑥 𝑇 𝑧𝑧 𝑈 𝑦 ) } )
3 ixxss12.3 ( ( 𝐴 ∈ ℝ*𝐶 ∈ ℝ*𝑤 ∈ ℝ* ) → ( ( 𝐴 𝑊 𝐶𝐶 𝑇 𝑤 ) → 𝐴 𝑅 𝑤 ) )
4 ixxss12.4 ( ( 𝑤 ∈ ℝ*𝐷 ∈ ℝ*𝐵 ∈ ℝ* ) → ( ( 𝑤 𝑈 𝐷𝐷 𝑋 𝐵 ) → 𝑤 𝑆 𝐵 ) )
5 2 elixx3g ( 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) ↔ ( ( 𝐶 ∈ ℝ*𝐷 ∈ ℝ*𝑤 ∈ ℝ* ) ∧ ( 𝐶 𝑇 𝑤𝑤 𝑈 𝐷 ) ) )
6 5 simplbi ( 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) → ( 𝐶 ∈ ℝ*𝐷 ∈ ℝ*𝑤 ∈ ℝ* ) )
7 6 adantl ( ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) ∧ 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) ) → ( 𝐶 ∈ ℝ*𝐷 ∈ ℝ*𝑤 ∈ ℝ* ) )
8 7 simp3d ( ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) ∧ 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) ) → 𝑤 ∈ ℝ* )
9 simplrl ( ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) ∧ 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) ) → 𝐴 𝑊 𝐶 )
10 5 simprbi ( 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) → ( 𝐶 𝑇 𝑤𝑤 𝑈 𝐷 ) )
11 10 adantl ( ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) ∧ 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) ) → ( 𝐶 𝑇 𝑤𝑤 𝑈 𝐷 ) )
12 11 simpld ( ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) ∧ 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) ) → 𝐶 𝑇 𝑤 )
13 simplll ( ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) ∧ 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) ) → 𝐴 ∈ ℝ* )
14 7 simp1d ( ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) ∧ 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) ) → 𝐶 ∈ ℝ* )
15 13 14 8 3 syl3anc ( ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) ∧ 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) ) → ( ( 𝐴 𝑊 𝐶𝐶 𝑇 𝑤 ) → 𝐴 𝑅 𝑤 ) )
16 9 12 15 mp2and ( ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) ∧ 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) ) → 𝐴 𝑅 𝑤 )
17 11 simprd ( ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) ∧ 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) ) → 𝑤 𝑈 𝐷 )
18 simplrr ( ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) ∧ 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) ) → 𝐷 𝑋 𝐵 )
19 7 simp2d ( ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) ∧ 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) ) → 𝐷 ∈ ℝ* )
20 simpllr ( ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) ∧ 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) ) → 𝐵 ∈ ℝ* )
21 8 19 20 4 syl3anc ( ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) ∧ 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) ) → ( ( 𝑤 𝑈 𝐷𝐷 𝑋 𝐵 ) → 𝑤 𝑆 𝐵 ) )
22 17 18 21 mp2and ( ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) ∧ 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) ) → 𝑤 𝑆 𝐵 )
23 1 elixx1 ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) → ( 𝑤 ∈ ( 𝐴 𝑂 𝐵 ) ↔ ( 𝑤 ∈ ℝ*𝐴 𝑅 𝑤𝑤 𝑆 𝐵 ) ) )
24 23 ad2antrr ( ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) ∧ 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) ) → ( 𝑤 ∈ ( 𝐴 𝑂 𝐵 ) ↔ ( 𝑤 ∈ ℝ*𝐴 𝑅 𝑤𝑤 𝑆 𝐵 ) ) )
25 8 16 22 24 mpbir3and ( ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) ∧ 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) ) → 𝑤 ∈ ( 𝐴 𝑂 𝐵 ) )
26 25 ex ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) → ( 𝑤 ∈ ( 𝐶 𝑃 𝐷 ) → 𝑤 ∈ ( 𝐴 𝑂 𝐵 ) ) )
27 26 ssrdv ( ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) ∧ ( 𝐴 𝑊 𝐶𝐷 𝑋 𝐵 ) ) → ( 𝐶 𝑃 𝐷 ) ⊆ ( 𝐴 𝑂 𝐵 ) )