Proof of Theorem qmapeldisjsim
| Step | Hyp | Ref
| Expression |
| 1 | | qmapeldisjs 38995 |
. . 3
⊢ (𝑅 ∈ 𝑉 → ( QMap 𝑅 ∈ Disjs ↔ Disj QMap 𝑅)) |
| 2 | | disjimeceqim2 38975 |
. . . 4
⊢ ( Disj
QMap 𝑅 → ((𝐴 ∈ dom QMap 𝑅 ∧ 𝐵 ∈ dom QMap 𝑅) → ([𝐴] QMap 𝑅 = [𝐵] QMap 𝑅 → 𝐴 = 𝐵))) |
| 3 | | dmqmap 38623 |
. . . . . . . . . . 11
⊢ (𝑅 ∈ 𝑉 → dom QMap 𝑅 = dom 𝑅) |
| 4 | 3 | eleq2d 2821 |
. . . . . . . . . 10
⊢ (𝑅 ∈ 𝑉 → (𝐴 ∈ dom QMap 𝑅 ↔ 𝐴 ∈ dom 𝑅)) |
| 5 | 3 | eleq2d 2821 |
. . . . . . . . . 10
⊢ (𝑅 ∈ 𝑉 → (𝐵 ∈ dom QMap 𝑅 ↔ 𝐵 ∈ dom 𝑅)) |
| 6 | 4, 5 | anbi12d 633 |
. . . . . . . . 9
⊢ (𝑅 ∈ 𝑉 → ((𝐴 ∈ dom QMap 𝑅 ∧ 𝐵 ∈ dom QMap 𝑅) ↔ (𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅))) |
| 7 | 6 | pm5.32i 574 |
. . . . . . . 8
⊢ ((𝑅 ∈ 𝑉 ∧ (𝐴 ∈ dom QMap 𝑅 ∧ 𝐵 ∈ dom QMap 𝑅)) ↔ (𝑅 ∈ 𝑉 ∧ (𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅))) |
| 8 | 7 | imbi1i 349 |
. . . . . . 7
⊢ (((𝑅 ∈ 𝑉 ∧ (𝐴 ∈ dom QMap 𝑅 ∧ 𝐵 ∈ dom QMap 𝑅)) → ([𝐴] QMap 𝑅 = [𝐵] QMap 𝑅 → 𝐴 = 𝐵)) ↔ ((𝑅 ∈ 𝑉 ∧ (𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅)) → ([𝐴] QMap 𝑅 = [𝐵] QMap 𝑅 → 𝐴 = 𝐵))) |
| 9 | | ecqmap 38619 |
. . . . . . . . . . 11
⊢ (𝐴 ∈ dom 𝑅 → [𝐴] QMap 𝑅 = {[𝐴]𝑅}) |
| 10 | | ecqmap 38619 |
. . . . . . . . . . 11
⊢ (𝐵 ∈ dom 𝑅 → [𝐵] QMap 𝑅 = {[𝐵]𝑅}) |
| 11 | 9, 10 | eqeqan12d 2749 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅) → ([𝐴] QMap 𝑅 = [𝐵] QMap 𝑅 ↔ {[𝐴]𝑅} = {[𝐵]𝑅})) |
| 12 | 11 | imbi1d 341 |
. . . . . . . . 9
⊢ ((𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅) → (([𝐴] QMap 𝑅 = [𝐵] QMap 𝑅 → 𝐴 = 𝐵) ↔ ({[𝐴]𝑅} = {[𝐵]𝑅} → 𝐴 = 𝐵))) |
| 13 | | ecexg 8639 |
. . . . . . . . . . 11
⊢ (𝑅 ∈ 𝑉 → [𝐴]𝑅 ∈ V) |
| 14 | | sneqbg 4798 |
. . . . . . . . . . 11
⊢ ([𝐴]𝑅 ∈ V → ({[𝐴]𝑅} = {[𝐵]𝑅} ↔ [𝐴]𝑅 = [𝐵]𝑅)) |
| 15 | 13, 14 | syl 17 |
. . . . . . . . . 10
⊢ (𝑅 ∈ 𝑉 → ({[𝐴]𝑅} = {[𝐵]𝑅} ↔ [𝐴]𝑅 = [𝐵]𝑅)) |
| 16 | 15 | imbi1d 341 |
. . . . . . . . 9
⊢ (𝑅 ∈ 𝑉 → (({[𝐴]𝑅} = {[𝐵]𝑅} → 𝐴 = 𝐵) ↔ ([𝐴]𝑅 = [𝐵]𝑅 → 𝐴 = 𝐵))) |
| 17 | 12, 16 | sylan9bbr 510 |
. . . . . . . 8
⊢ ((𝑅 ∈ 𝑉 ∧ (𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅)) → (([𝐴] QMap 𝑅 = [𝐵] QMap 𝑅 → 𝐴 = 𝐵) ↔ ([𝐴]𝑅 = [𝐵]𝑅 → 𝐴 = 𝐵))) |
| 18 | 17 | pm5.74i 271 |
. . . . . . 7
⊢ (((𝑅 ∈ 𝑉 ∧ (𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅)) → ([𝐴] QMap 𝑅 = [𝐵] QMap 𝑅 → 𝐴 = 𝐵)) ↔ ((𝑅 ∈ 𝑉 ∧ (𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅)) → ([𝐴]𝑅 = [𝐵]𝑅 → 𝐴 = 𝐵))) |
| 19 | 8, 18 | bitri 275 |
. . . . . 6
⊢ (((𝑅 ∈ 𝑉 ∧ (𝐴 ∈ dom QMap 𝑅 ∧ 𝐵 ∈ dom QMap 𝑅)) → ([𝐴] QMap 𝑅 = [𝐵] QMap 𝑅 → 𝐴 = 𝐵)) ↔ ((𝑅 ∈ 𝑉 ∧ (𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅)) → ([𝐴]𝑅 = [𝐵]𝑅 → 𝐴 = 𝐵))) |
| 20 | | impexp 450 |
. . . . . 6
⊢ (((𝑅 ∈ 𝑉 ∧ (𝐴 ∈ dom QMap 𝑅 ∧ 𝐵 ∈ dom QMap 𝑅)) → ([𝐴] QMap 𝑅 = [𝐵] QMap 𝑅 → 𝐴 = 𝐵)) ↔ (𝑅 ∈ 𝑉 → ((𝐴 ∈ dom QMap 𝑅 ∧ 𝐵 ∈ dom QMap 𝑅) → ([𝐴] QMap 𝑅 = [𝐵] QMap 𝑅 → 𝐴 = 𝐵)))) |
| 21 | | impexp 450 |
. . . . . 6
⊢ (((𝑅 ∈ 𝑉 ∧ (𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅)) → ([𝐴]𝑅 = [𝐵]𝑅 → 𝐴 = 𝐵)) ↔ (𝑅 ∈ 𝑉 → ((𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅) → ([𝐴]𝑅 = [𝐵]𝑅 → 𝐴 = 𝐵)))) |
| 22 | 19, 20, 21 | 3bitr3i 301 |
. . . . 5
⊢ ((𝑅 ∈ 𝑉 → ((𝐴 ∈ dom QMap 𝑅 ∧ 𝐵 ∈ dom QMap 𝑅) → ([𝐴] QMap 𝑅 = [𝐵] QMap 𝑅 → 𝐴 = 𝐵))) ↔ (𝑅 ∈ 𝑉 → ((𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅) → ([𝐴]𝑅 = [𝐵]𝑅 → 𝐴 = 𝐵)))) |
| 23 | 22 | pm5.74ri 272 |
. . . 4
⊢ (𝑅 ∈ 𝑉 → (((𝐴 ∈ dom QMap 𝑅 ∧ 𝐵 ∈ dom QMap 𝑅) → ([𝐴] QMap 𝑅 = [𝐵] QMap 𝑅 → 𝐴 = 𝐵)) ↔ ((𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅) → ([𝐴]𝑅 = [𝐵]𝑅 → 𝐴 = 𝐵)))) |
| 24 | 2, 23 | imbitrid 244 |
. . 3
⊢ (𝑅 ∈ 𝑉 → ( Disj QMap 𝑅 → ((𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅) → ([𝐴]𝑅 = [𝐵]𝑅 → 𝐴 = 𝐵)))) |
| 25 | 1, 24 | sylbid 240 |
. 2
⊢ (𝑅 ∈ 𝑉 → ( QMap 𝑅 ∈ Disjs → ((𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅) → ([𝐴]𝑅 = [𝐵]𝑅 → 𝐴 = 𝐵)))) |
| 26 | 25 | 3imp 1111 |
1
⊢ ((𝑅 ∈ 𝑉 ∧ QMap 𝑅 ∈ Disjs ∧ (𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅)) → ([𝐴]𝑅 = [𝐵]𝑅 → 𝐴 = 𝐵)) |