| Step |
Hyp |
Ref |
Expression |
| 1 |
|
parhomval.h |
⊢ 𝐻 = ( 𝑥 ∈ 𝐵 , 𝑦 ∈ 𝐵 ↦ if ( 𝑥 = 𝑦 , { 𝐽 } , if ( ( 𝑥 = 𝑋 ∧ 𝑦 = 𝑌 ) , 𝑆 , ∅ ) ) ) |
| 2 |
|
parhomeqor.f |
⊢ ( 𝜑 → 𝐹 ∈ ( 𝑈 𝐻 𝑉 ) ) |
| 3 |
|
parhomeqor.g |
⊢ ( 𝜑 → 𝐺 ∈ ( 𝑉 𝐻 𝑊 ) ) |
| 4 |
|
parhomco.p |
⊢ 𝑆 ⊆ 𝒫 𝐽 |
| 5 |
3
|
adantr |
⊢ ( ( 𝜑 ∧ 𝑈 = 𝑉 ) → 𝐺 ∈ ( 𝑉 𝐻 𝑊 ) ) |
| 6 |
2
|
adantr |
⊢ ( ( 𝜑 ∧ 𝑈 = 𝑉 ) → 𝐹 ∈ ( 𝑈 𝐻 𝑉 ) ) |
| 7 |
|
simpr |
⊢ ( ( 𝜑 ∧ 𝑈 = 𝑉 ) → 𝑈 = 𝑉 ) |
| 8 |
1 6 7
|
parhomideq |
⊢ ( ( 𝜑 ∧ 𝑈 = 𝑉 ) → 𝐹 = 𝐽 ) |
| 9 |
8
|
ineq2d |
⊢ ( ( 𝜑 ∧ 𝑈 = 𝑉 ) → ( 𝐺 ∩ 𝐹 ) = ( 𝐺 ∩ 𝐽 ) ) |
| 10 |
1 4 3
|
parhomss |
⊢ ( 𝜑 → 𝐺 ⊆ 𝐽 ) |
| 11 |
10
|
adantr |
⊢ ( ( 𝜑 ∧ 𝑈 = 𝑉 ) → 𝐺 ⊆ 𝐽 ) |
| 12 |
|
dfss2 |
⊢ ( 𝐺 ⊆ 𝐽 ↔ ( 𝐺 ∩ 𝐽 ) = 𝐺 ) |
| 13 |
11 12
|
sylib |
⊢ ( ( 𝜑 ∧ 𝑈 = 𝑉 ) → ( 𝐺 ∩ 𝐽 ) = 𝐺 ) |
| 14 |
9 13
|
eqtrd |
⊢ ( ( 𝜑 ∧ 𝑈 = 𝑉 ) → ( 𝐺 ∩ 𝐹 ) = 𝐺 ) |
| 15 |
7
|
oveq1d |
⊢ ( ( 𝜑 ∧ 𝑈 = 𝑉 ) → ( 𝑈 𝐻 𝑊 ) = ( 𝑉 𝐻 𝑊 ) ) |
| 16 |
5 14 15
|
3eltr4d |
⊢ ( ( 𝜑 ∧ 𝑈 = 𝑉 ) → ( 𝐺 ∩ 𝐹 ) ∈ ( 𝑈 𝐻 𝑊 ) ) |
| 17 |
3
|
adantr |
⊢ ( ( 𝜑 ∧ 𝑉 = 𝑊 ) → 𝐺 ∈ ( 𝑉 𝐻 𝑊 ) ) |
| 18 |
|
simpr |
⊢ ( ( 𝜑 ∧ 𝑉 = 𝑊 ) → 𝑉 = 𝑊 ) |
| 19 |
1 17 18
|
parhomideq |
⊢ ( ( 𝜑 ∧ 𝑉 = 𝑊 ) → 𝐺 = 𝐽 ) |
| 20 |
19
|
ineq1d |
⊢ ( ( 𝜑 ∧ 𝑉 = 𝑊 ) → ( 𝐺 ∩ 𝐹 ) = ( 𝐽 ∩ 𝐹 ) ) |
| 21 |
1 4 2
|
parhomss |
⊢ ( 𝜑 → 𝐹 ⊆ 𝐽 ) |
| 22 |
21
|
adantr |
⊢ ( ( 𝜑 ∧ 𝑉 = 𝑊 ) → 𝐹 ⊆ 𝐽 ) |
| 23 |
|
sseqin2 |
⊢ ( 𝐹 ⊆ 𝐽 ↔ ( 𝐽 ∩ 𝐹 ) = 𝐹 ) |
| 24 |
22 23
|
sylib |
⊢ ( ( 𝜑 ∧ 𝑉 = 𝑊 ) → ( 𝐽 ∩ 𝐹 ) = 𝐹 ) |
| 25 |
20 24
|
eqtrd |
⊢ ( ( 𝜑 ∧ 𝑉 = 𝑊 ) → ( 𝐺 ∩ 𝐹 ) = 𝐹 ) |
| 26 |
2
|
adantr |
⊢ ( ( 𝜑 ∧ 𝑉 = 𝑊 ) → 𝐹 ∈ ( 𝑈 𝐻 𝑉 ) ) |
| 27 |
18
|
oveq2d |
⊢ ( ( 𝜑 ∧ 𝑉 = 𝑊 ) → ( 𝑈 𝐻 𝑉 ) = ( 𝑈 𝐻 𝑊 ) ) |
| 28 |
26 27
|
eleqtrd |
⊢ ( ( 𝜑 ∧ 𝑉 = 𝑊 ) → 𝐹 ∈ ( 𝑈 𝐻 𝑊 ) ) |
| 29 |
25 28
|
eqeltrd |
⊢ ( ( 𝜑 ∧ 𝑉 = 𝑊 ) → ( 𝐺 ∩ 𝐹 ) ∈ ( 𝑈 𝐻 𝑊 ) ) |
| 30 |
1 2 3
|
parhomeqor |
⊢ ( 𝜑 → ( 𝑈 = 𝑉 ∨ 𝑉 = 𝑊 ) ) |
| 31 |
16 29 30
|
mpjaodan |
⊢ ( 𝜑 → ( 𝐺 ∩ 𝐹 ) ∈ ( 𝑈 𝐻 𝑊 ) ) |