Step |
Hyp |
Ref |
Expression |
1 |
|
refrelredund4 |
⊢ redund ( ( ( I ↾ dom 𝑅 ) ⊆ 𝑅 ∧ Rel 𝑅 ) , RefRel 𝑅 , ( RefRel 𝑅 ∧ SymRel 𝑅 ) ) |
2 |
|
df-eqvrel |
⊢ ( EqvRel 𝑅 ↔ ( RefRel 𝑅 ∧ SymRel 𝑅 ∧ TrRel 𝑅 ) ) |
3 |
|
3simpa |
⊢ ( ( RefRel 𝑅 ∧ SymRel 𝑅 ∧ TrRel 𝑅 ) → ( RefRel 𝑅 ∧ SymRel 𝑅 ) ) |
4 |
2 3
|
sylbi |
⊢ ( EqvRel 𝑅 → ( RefRel 𝑅 ∧ SymRel 𝑅 ) ) |
5 |
4
|
redundpim3 |
⊢ ( redund ( ( ( I ↾ dom 𝑅 ) ⊆ 𝑅 ∧ Rel 𝑅 ) , RefRel 𝑅 , ( RefRel 𝑅 ∧ SymRel 𝑅 ) ) → redund ( ( ( I ↾ dom 𝑅 ) ⊆ 𝑅 ∧ Rel 𝑅 ) , RefRel 𝑅 , EqvRel 𝑅 ) ) |
6 |
1 5
|
ax-mp |
⊢ redund ( ( ( I ↾ dom 𝑅 ) ⊆ 𝑅 ∧ Rel 𝑅 ) , RefRel 𝑅 , EqvRel 𝑅 ) |