Proof of Theorem resdmres
| Step | Hyp | Ref
| Expression |
| 1 | | in12 2227 |
. . . 4
⊢ (A ∩ ((B
× V) ∩ (dom A ×
V))) = ((B × V) ∩
(A ∩ (dom A × V))) |
| 2 | | df-res 3196 |
. . . . . 6
⊢ (A ↾ dom A) = (A ∩
(dom A × V)) |
| 3 | | resdm2 3502 |
. . . . . 6
⊢ (A ↾ dom A) = ◡◡A |
| 4 | 2, 3 | eqtr3 1500 |
. . . . 5
⊢ (A ∩ (dom A
× V)) = ◡◡A |
| 5 | 4 | ineq2i 2217 |
. . . 4
⊢ ((B × V) ∩ (A ∩ (dom A
× V))) = ((B × V)
∩ ◡◡A) |
| 6 | | incom 2211 |
. . . 4
⊢ ((B × V) ∩ ◡◡A) =
(◡◡A ∩
(B × V)) |
| 7 | 1, 5, 6 | 3eqtr 1502 |
. . 3
⊢ (A ∩ ((B
× V) ∩ (dom A ×
V))) = (◡◡A ∩
(B × V)) |
| 8 | | df-res 3196 |
. . . 4
⊢ (A ↾ dom (
A ↾
B)) = (A ∩ (dom ( A
↾ B)
× V)) |
| 9 | | dmres 3386 |
. . . . . . 7
⊢ dom ( A ↾ B) = (B ∩
dom A) |
| 10 | | xpeq1 3206 |
. . . . . . 7
⊢ (dom ( A ↾ B) = (B ∩
dom A) → (dom ( A ↾ B) × V) = ((B ∩ dom A)
× V)) |
| 11 | 9, 10 | ax-mp 7 |
. . . . . 6
⊢ (dom ( A ↾ B) × V) = ((B ∩ dom A)
× V) |
| 12 | | xpindir 3277 |
. . . . . 6
⊢ ((B ∩ dom A)
× V) = ((B × V)
∩ (dom A × V)) |
| 13 | 11, 12 | eqtr 1498 |
. . . . 5
⊢ (dom ( A ↾ B) × V) = ((B × V) ∩ (dom A × V)) |
| 14 | 13 | ineq2i 2217 |
. . . 4
⊢ (A ∩ (dom ( A
↾ B)
× V)) = (A ∩ ((B × V) ∩ (dom A × V))) |
| 15 | 8, 14 | eqtr 1498 |
. . 3
⊢ (A ↾ dom (
A ↾
B)) = (A ∩ ((B
× V) ∩ (dom A ×
V))) |
| 16 | | df-res 3196 |
. . 3
⊢ (◡◡A ↾ B) = (◡◡A ∩
(B × V)) |
| 17 | 7, 15, 16 | 3eqtr4 1508 |
. 2
⊢ (A ↾ dom (
A ↾
B)) = (◡◡A ↾ B) |
| 18 | | rescnvcnv 3499 |
. 2
⊢ (◡◡A ↾ B) =
(A ↾
B) |
| 19 | 17, 18 | eqtr 1498 |
1
⊢ (A ↾ dom (
A ↾
B)) = (A ↾ B) |