Step |
Hyp |
Ref |
Expression |
1 |
|
df-he |
⊢ ( 𝑅 hereditary 𝐴 ↔ ( 𝑅 “ 𝐴 ) ⊆ 𝐴 ) |
2 |
|
df-he |
⊢ ( 𝑆 hereditary 𝐴 ↔ ( 𝑆 “ 𝐴 ) ⊆ 𝐴 ) |
3 |
|
imaundir |
⊢ ( ( 𝑅 ∪ 𝑆 ) “ 𝐴 ) = ( ( 𝑅 “ 𝐴 ) ∪ ( 𝑆 “ 𝐴 ) ) |
4 |
|
unss |
⊢ ( ( ( 𝑅 “ 𝐴 ) ⊆ 𝐴 ∧ ( 𝑆 “ 𝐴 ) ⊆ 𝐴 ) ↔ ( ( 𝑅 “ 𝐴 ) ∪ ( 𝑆 “ 𝐴 ) ) ⊆ 𝐴 ) |
5 |
4
|
biimpi |
⊢ ( ( ( 𝑅 “ 𝐴 ) ⊆ 𝐴 ∧ ( 𝑆 “ 𝐴 ) ⊆ 𝐴 ) → ( ( 𝑅 “ 𝐴 ) ∪ ( 𝑆 “ 𝐴 ) ) ⊆ 𝐴 ) |
6 |
3 5
|
eqsstrid |
⊢ ( ( ( 𝑅 “ 𝐴 ) ⊆ 𝐴 ∧ ( 𝑆 “ 𝐴 ) ⊆ 𝐴 ) → ( ( 𝑅 ∪ 𝑆 ) “ 𝐴 ) ⊆ 𝐴 ) |
7 |
1 2 6
|
syl2anb |
⊢ ( ( 𝑅 hereditary 𝐴 ∧ 𝑆 hereditary 𝐴 ) → ( ( 𝑅 ∪ 𝑆 ) “ 𝐴 ) ⊆ 𝐴 ) |
8 |
|
df-he |
⊢ ( ( 𝑅 ∪ 𝑆 ) hereditary 𝐴 ↔ ( ( 𝑅 ∪ 𝑆 ) “ 𝐴 ) ⊆ 𝐴 ) |
9 |
7 8
|
sylibr |
⊢ ( ( 𝑅 hereditary 𝐴 ∧ 𝑆 hereditary 𝐴 ) → ( 𝑅 ∪ 𝑆 ) hereditary 𝐴 ) |