Proof of Theorem fveqressseq
Step | Hyp | Ref
| Expression |
1 | | fveqdmss.1 |
. . . 4
⊢ 𝐷 = dom 𝐵 |
2 | 1 | fveqdmss 7112 |
. . 3
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → 𝐷 ⊆ dom 𝐴) |
3 | | dmres 6041 |
. . . . 5
⊢ dom
(𝐴 ↾ 𝐷) = (𝐷 ∩ dom 𝐴) |
4 | | incom 4230 |
. . . . . 6
⊢ (𝐷 ∩ dom 𝐴) = (dom 𝐴 ∩ 𝐷) |
5 | | sseqin2 4244 |
. . . . . . 7
⊢ (𝐷 ⊆ dom 𝐴 ↔ (dom 𝐴 ∩ 𝐷) = 𝐷) |
6 | 5 | biimpi 216 |
. . . . . 6
⊢ (𝐷 ⊆ dom 𝐴 → (dom 𝐴 ∩ 𝐷) = 𝐷) |
7 | 4, 6 | eqtrid 2792 |
. . . . 5
⊢ (𝐷 ⊆ dom 𝐴 → (𝐷 ∩ dom 𝐴) = 𝐷) |
8 | 3, 7 | eqtrid 2792 |
. . . 4
⊢ (𝐷 ⊆ dom 𝐴 → dom (𝐴 ↾ 𝐷) = 𝐷) |
9 | 8, 1 | eqtrdi 2796 |
. . 3
⊢ (𝐷 ⊆ dom 𝐴 → dom (𝐴 ↾ 𝐷) = dom 𝐵) |
10 | 2, 9 | syl 17 |
. 2
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → dom (𝐴 ↾ 𝐷) = dom 𝐵) |
11 | | fvres 6939 |
. . . . . . . 8
⊢ (𝑥 ∈ 𝐷 → ((𝐴 ↾ 𝐷)‘𝑥) = (𝐴‘𝑥)) |
12 | 11 | adantl 481 |
. . . . . . 7
⊢ (((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) ∧ 𝑥 ∈ 𝐷) → ((𝐴 ↾ 𝐷)‘𝑥) = (𝐴‘𝑥)) |
13 | | id 22 |
. . . . . . 7
⊢ ((𝐴‘𝑥) = (𝐵‘𝑥) → (𝐴‘𝑥) = (𝐵‘𝑥)) |
14 | 12, 13 | sylan9eq 2800 |
. . . . . 6
⊢ ((((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) ∧ 𝑥 ∈ 𝐷) ∧ (𝐴‘𝑥) = (𝐵‘𝑥)) → ((𝐴 ↾ 𝐷)‘𝑥) = (𝐵‘𝑥)) |
15 | 14 | ex 412 |
. . . . 5
⊢ (((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) ∧ 𝑥 ∈ 𝐷) → ((𝐴‘𝑥) = (𝐵‘𝑥) → ((𝐴 ↾ 𝐷)‘𝑥) = (𝐵‘𝑥))) |
16 | 15 | ralimdva 3173 |
. . . 4
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) → (∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥) → ∀𝑥 ∈ 𝐷 ((𝐴 ↾ 𝐷)‘𝑥) = (𝐵‘𝑥))) |
17 | 16 | 3impia 1117 |
. . 3
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → ∀𝑥 ∈ 𝐷 ((𝐴 ↾ 𝐷)‘𝑥) = (𝐵‘𝑥)) |
18 | 2, 7 | syl 17 |
. . . 4
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → (𝐷 ∩ dom 𝐴) = 𝐷) |
19 | 3, 18 | eqtrid 2792 |
. . 3
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → dom (𝐴 ↾ 𝐷) = 𝐷) |
20 | 17, 19 | raleqtrrdv 3338 |
. 2
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → ∀𝑥 ∈ dom (𝐴 ↾ 𝐷)((𝐴 ↾ 𝐷)‘𝑥) = (𝐵‘𝑥)) |
21 | | simpll 766 |
. . . . . . . 8
⊢ (((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) ∧ 𝑥 ∈ 𝐷) → Fun 𝐵) |
22 | 1 | eleq2i 2836 |
. . . . . . . . . 10
⊢ (𝑥 ∈ 𝐷 ↔ 𝑥 ∈ dom 𝐵) |
23 | 22 | biimpi 216 |
. . . . . . . . 9
⊢ (𝑥 ∈ 𝐷 → 𝑥 ∈ dom 𝐵) |
24 | 23 | adantl 481 |
. . . . . . . 8
⊢ (((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) ∧ 𝑥 ∈ 𝐷) → 𝑥 ∈ dom 𝐵) |
25 | | simplr 768 |
. . . . . . . 8
⊢ (((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) ∧ 𝑥 ∈ 𝐷) → ∅ ∉ ran 𝐵) |
26 | | nelrnfvne 7111 |
. . . . . . . 8
⊢ ((Fun
𝐵 ∧ 𝑥 ∈ dom 𝐵 ∧ ∅ ∉ ran 𝐵) → (𝐵‘𝑥) ≠ ∅) |
27 | 21, 24, 25, 26 | syl3anc 1371 |
. . . . . . 7
⊢ (((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) ∧ 𝑥 ∈ 𝐷) → (𝐵‘𝑥) ≠ ∅) |
28 | | neeq1 3009 |
. . . . . . 7
⊢ ((𝐴‘𝑥) = (𝐵‘𝑥) → ((𝐴‘𝑥) ≠ ∅ ↔ (𝐵‘𝑥) ≠ ∅)) |
29 | 27, 28 | syl5ibrcom 247 |
. . . . . 6
⊢ (((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) ∧ 𝑥 ∈ 𝐷) → ((𝐴‘𝑥) = (𝐵‘𝑥) → (𝐴‘𝑥) ≠ ∅)) |
30 | 29 | ralimdva 3173 |
. . . . 5
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵) → (∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥) → ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) ≠ ∅)) |
31 | 30 | 3impia 1117 |
. . . 4
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) ≠ ∅) |
32 | | fvn0ssdmfun 7108 |
. . . . 5
⊢
(∀𝑥 ∈
𝐷 (𝐴‘𝑥) ≠ ∅ → (𝐷 ⊆ dom 𝐴 ∧ Fun (𝐴 ↾ 𝐷))) |
33 | 32 | simprd 495 |
. . . 4
⊢
(∀𝑥 ∈
𝐷 (𝐴‘𝑥) ≠ ∅ → Fun (𝐴 ↾ 𝐷)) |
34 | 31, 33 | syl 17 |
. . 3
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → Fun (𝐴 ↾ 𝐷)) |
35 | | simp1 1136 |
. . 3
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → Fun 𝐵) |
36 | | eqfunfv 7069 |
. . 3
⊢ ((Fun
(𝐴 ↾ 𝐷) ∧ Fun 𝐵) → ((𝐴 ↾ 𝐷) = 𝐵 ↔ (dom (𝐴 ↾ 𝐷) = dom 𝐵 ∧ ∀𝑥 ∈ dom (𝐴 ↾ 𝐷)((𝐴 ↾ 𝐷)‘𝑥) = (𝐵‘𝑥)))) |
37 | 34, 35, 36 | syl2anc 583 |
. 2
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → ((𝐴 ↾ 𝐷) = 𝐵 ↔ (dom (𝐴 ↾ 𝐷) = dom 𝐵 ∧ ∀𝑥 ∈ dom (𝐴 ↾ 𝐷)((𝐴 ↾ 𝐷)‘𝑥) = (𝐵‘𝑥)))) |
38 | 10, 20, 37 | mpbir2and 712 |
1
⊢ ((Fun
𝐵 ∧ ∅ ∉ ran
𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → (𝐴 ↾ 𝐷) = 𝐵) |