| Step |
Hyp |
Ref |
Expression |
| 1 |
|
disjimrmoeqec |
⊢ ( Disj 𝑅 → ∃* 𝑢 ∈ dom 𝑅 𝑡 = [ 𝑢 ] 𝑅 ) |
| 2 |
1
|
biantrud |
⊢ ( Disj 𝑅 → ( 𝑡 ∈ ( dom 𝑅 / 𝑅 ) ↔ ( 𝑡 ∈ ( dom 𝑅 / 𝑅 ) ∧ ∃* 𝑢 ∈ dom 𝑅 𝑡 = [ 𝑢 ] 𝑅 ) ) ) |
| 3 |
|
elqsg |
⊢ ( 𝑡 ∈ V → ( 𝑡 ∈ ( dom 𝑅 / 𝑅 ) ↔ ∃ 𝑢 ∈ dom 𝑅 𝑡 = [ 𝑢 ] 𝑅 ) ) |
| 4 |
3
|
elv |
⊢ ( 𝑡 ∈ ( dom 𝑅 / 𝑅 ) ↔ ∃ 𝑢 ∈ dom 𝑅 𝑡 = [ 𝑢 ] 𝑅 ) |
| 5 |
4
|
anbi1i |
⊢ ( ( 𝑡 ∈ ( dom 𝑅 / 𝑅 ) ∧ ∃* 𝑢 ∈ dom 𝑅 𝑡 = [ 𝑢 ] 𝑅 ) ↔ ( ∃ 𝑢 ∈ dom 𝑅 𝑡 = [ 𝑢 ] 𝑅 ∧ ∃* 𝑢 ∈ dom 𝑅 𝑡 = [ 𝑢 ] 𝑅 ) ) |
| 6 |
|
reu5 |
⊢ ( ∃! 𝑢 ∈ dom 𝑅 𝑡 = [ 𝑢 ] 𝑅 ↔ ( ∃ 𝑢 ∈ dom 𝑅 𝑡 = [ 𝑢 ] 𝑅 ∧ ∃* 𝑢 ∈ dom 𝑅 𝑡 = [ 𝑢 ] 𝑅 ) ) |
| 7 |
5 6
|
bitr4i |
⊢ ( ( 𝑡 ∈ ( dom 𝑅 / 𝑅 ) ∧ ∃* 𝑢 ∈ dom 𝑅 𝑡 = [ 𝑢 ] 𝑅 ) ↔ ∃! 𝑢 ∈ dom 𝑅 𝑡 = [ 𝑢 ] 𝑅 ) |
| 8 |
2 7
|
bitrdi |
⊢ ( Disj 𝑅 → ( 𝑡 ∈ ( dom 𝑅 / 𝑅 ) ↔ ∃! 𝑢 ∈ dom 𝑅 𝑡 = [ 𝑢 ] 𝑅 ) ) |
| 9 |
8
|
eqabdv |
⊢ ( Disj 𝑅 → ( dom 𝑅 / 𝑅 ) = { 𝑡 ∣ ∃! 𝑢 ∈ dom 𝑅 𝑡 = [ 𝑢 ] 𝑅 } ) |