Proof of Theorem fveqressseq
| Step | Hyp | Ref
| Expression |
| 1 | | fveqdmss.1 |
. . . 4
⊢ 𝐷 = dom 𝐵 |
| 2 | 1 | fveqdmss 6354 |
. . 3
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → 𝐷 ⊆ dom 𝐴) |
| 3 | | dmres 5419 |
. . . . 5
⊢ dom
(𝐴 ↾ 𝐷) = (𝐷 ∩ dom 𝐴) |
| 4 | | incom 3805 |
. . . . . 6
⊢ (𝐷 ∩ dom 𝐴) = (dom 𝐴 ∩ 𝐷) |
| 5 | | sseqin2 3817 |
. . . . . . 7
⊢ (𝐷 ⊆ dom 𝐴 ↔ (dom 𝐴 ∩ 𝐷) = 𝐷) |
| 6 | 5 | biimpi 206 |
. . . . . 6
⊢ (𝐷 ⊆ dom 𝐴 → (dom 𝐴 ∩ 𝐷) = 𝐷) |
| 7 | 4, 6 | syl5eq 2668 |
. . . . 5
⊢ (𝐷 ⊆ dom 𝐴 → (𝐷 ∩ dom 𝐴) = 𝐷) |
| 8 | 3, 7 | syl5eq 2668 |
. . . 4
⊢ (𝐷 ⊆ dom 𝐴 → dom (𝐴 ↾ 𝐷) = 𝐷) |
| 9 | 8, 1 | syl6eq 2672 |
. . 3
⊢ (𝐷 ⊆ dom 𝐴 → dom (𝐴 ↾ 𝐷) = dom 𝐵) |
| 10 | 2, 9 | syl 17 |
. 2
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → dom (𝐴 ↾ 𝐷) = dom 𝐵) |
| 11 | | fvres 6207 |
. . . . . . . 8
⊢ (𝑥 ∈ 𝐷 → ((𝐴 ↾ 𝐷)‘𝑥) = (𝐴‘𝑥)) |
| 12 | 11 | adantl 482 |
. . . . . . 7
⊢ (((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) ∧ 𝑥 ∈ 𝐷) → ((𝐴 ↾ 𝐷)‘𝑥) = (𝐴‘𝑥)) |
| 13 | | id 22 |
. . . . . . 7
⊢ ((𝐴‘𝑥) = (𝐵‘𝑥) → (𝐴‘𝑥) = (𝐵‘𝑥)) |
| 14 | 12, 13 | sylan9eq 2676 |
. . . . . 6
⊢ ((((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) ∧ 𝑥 ∈ 𝐷) ∧ (𝐴‘𝑥) = (𝐵‘𝑥)) → ((𝐴 ↾ 𝐷)‘𝑥) = (𝐵‘𝑥)) |
| 15 | 14 | ex 450 |
. . . . 5
⊢ (((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) ∧ 𝑥 ∈ 𝐷) → ((𝐴‘𝑥) = (𝐵‘𝑥) → ((𝐴 ↾ 𝐷)‘𝑥) = (𝐵‘𝑥))) |
| 16 | 15 | ralimdva 2962 |
. . . 4
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) → (∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥) → ∀𝑥 ∈ 𝐷 ((𝐴 ↾ 𝐷)‘𝑥) = (𝐵‘𝑥))) |
| 17 | 16 | 3impia 1261 |
. . 3
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → ∀𝑥 ∈ 𝐷 ((𝐴 ↾ 𝐷)‘𝑥) = (𝐵‘𝑥)) |
| 18 | 2, 7 | syl 17 |
. . . . 5
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → (𝐷 ∩ dom 𝐴) = 𝐷) |
| 19 | 3, 18 | syl5eq 2668 |
. . . 4
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → dom (𝐴 ↾ 𝐷) = 𝐷) |
| 20 | 19 | raleqdv 3144 |
. . 3
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → (∀𝑥 ∈ dom (𝐴 ↾ 𝐷)((𝐴 ↾ 𝐷)‘𝑥) = (𝐵‘𝑥) ↔ ∀𝑥 ∈ 𝐷 ((𝐴 ↾ 𝐷)‘𝑥) = (𝐵‘𝑥))) |
| 21 | 17, 20 | mpbird 247 |
. 2
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → ∀𝑥 ∈ dom (𝐴 ↾ 𝐷)((𝐴 ↾ 𝐷)‘𝑥) = (𝐵‘𝑥)) |
| 22 | | simpll 790 |
. . . . . . . 8
⊢ (((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) ∧ 𝑥 ∈ 𝐷) → Fun 𝐵) |
| 23 | 1 | eleq2i 2693 |
. . . . . . . . . 10
⊢ (𝑥 ∈ 𝐷 ↔ 𝑥 ∈ dom 𝐵) |
| 24 | 23 | biimpi 206 |
. . . . . . . . 9
⊢ (𝑥 ∈ 𝐷 → 𝑥 ∈ dom 𝐵) |
| 25 | 24 | adantl 482 |
. . . . . . . 8
⊢ (((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) ∧ 𝑥 ∈ 𝐷) → 𝑥 ∈ dom 𝐵) |
| 26 | | simplr 792 |
. . . . . . . 8
⊢ (((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) ∧ 𝑥 ∈ 𝐷) → ∅ ∉ ran 𝐵) |
| 27 | | nelrnfvne 6353 |
. . . . . . . 8
⊢ ((Fun
𝐵 ∧ 𝑥 ∈ dom 𝐵 ∧ ∅ ∉ ran 𝐵) → (𝐵‘𝑥) ≠ ∅) |
| 28 | 22, 25, 26, 27 | syl3anc 1326 |
. . . . . . 7
⊢ (((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) ∧ 𝑥 ∈ 𝐷) → (𝐵‘𝑥) ≠ ∅) |
| 29 | | neeq1 2856 |
. . . . . . 7
⊢ ((𝐴‘𝑥) = (𝐵‘𝑥) → ((𝐴‘𝑥) ≠ ∅ ↔ (𝐵‘𝑥) ≠ ∅)) |
| 30 | 28, 29 | syl5ibrcom 237 |
. . . . . 6
⊢ (((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) ∧ 𝑥 ∈ 𝐷) → ((𝐴‘𝑥) = (𝐵‘𝑥) → (𝐴‘𝑥) ≠ ∅)) |
| 31 | 30 | ralimdva 2962 |
. . . . 5
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) → (∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥) → ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) ≠ ∅)) |
| 32 | 31 | 3impia 1261 |
. . . 4
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) ≠ ∅) |
| 33 | | fvn0ssdmfun 6350 |
. . . . 5
⊢
(∀𝑥 ∈
𝐷 (𝐴‘𝑥) ≠ ∅ → (𝐷 ⊆ dom 𝐴 ∧ Fun (𝐴 ↾ 𝐷))) |
| 34 | 33 | simprd 479 |
. . . 4
⊢
(∀𝑥 ∈
𝐷 (𝐴‘𝑥) ≠ ∅ → Fun (𝐴 ↾ 𝐷)) |
| 35 | 32, 34 | syl 17 |
. . 3
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → Fun (𝐴 ↾ 𝐷)) |
| 36 | | simp1 1061 |
. . 3
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → Fun 𝐵) |
| 37 | | eqfunfv 6316 |
. . 3
⊢ ((Fun
(𝐴 ↾ 𝐷) ∧ Fun 𝐵) → ((𝐴 ↾ 𝐷) = 𝐵 ↔ (dom (𝐴 ↾ 𝐷) = dom 𝐵 ∧ ∀𝑥 ∈ dom (𝐴 ↾ 𝐷)((𝐴 ↾ 𝐷)‘𝑥) = (𝐵‘𝑥)))) |
| 38 | 35, 36, 37 | syl2anc 693 |
. 2
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → ((𝐴 ↾ 𝐷) = 𝐵 ↔ (dom (𝐴 ↾ 𝐷) = dom 𝐵 ∧ ∀𝑥 ∈ dom (𝐴 ↾ 𝐷)((𝐴 ↾ 𝐷)‘𝑥) = (𝐵‘𝑥)))) |
| 39 | 10, 21, 38 | mpbir2and 957 |
1
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → (𝐴 ↾ 𝐷) = 𝐵) |