Step |
Hyp |
Ref |
Expression |
1 |
|
snnzg |
⊢ ( 𝐴 ∈ 𝑋 → { 𝐴 } ≠ ∅ ) |
2 |
1
|
adantl |
⊢ ( ( 𝑉 ⊆ ( 𝑋 × 𝑋 ) ∧ 𝐴 ∈ 𝑋 ) → { 𝐴 } ≠ ∅ ) |
3 |
|
xpco |
⊢ ( { 𝐴 } ≠ ∅ → ( ( { 𝐴 } × ( 𝑉 “ { 𝐴 } ) ) ∘ ( ( 𝑉 “ { 𝐴 } ) × { 𝐴 } ) ) = ( ( 𝑉 “ { 𝐴 } ) × ( 𝑉 “ { 𝐴 } ) ) ) |
4 |
2 3
|
syl |
⊢ ( ( 𝑉 ⊆ ( 𝑋 × 𝑋 ) ∧ 𝐴 ∈ 𝑋 ) → ( ( { 𝐴 } × ( 𝑉 “ { 𝐴 } ) ) ∘ ( ( 𝑉 “ { 𝐴 } ) × { 𝐴 } ) ) = ( ( 𝑉 “ { 𝐴 } ) × ( 𝑉 “ { 𝐴 } ) ) ) |
5 |
|
cnvxp |
⊢ ◡ ( { 𝐴 } × ( 𝑉 “ { 𝐴 } ) ) = ( ( 𝑉 “ { 𝐴 } ) × { 𝐴 } ) |
6 |
|
ressn |
⊢ ( 𝑉 ↾ { 𝐴 } ) = ( { 𝐴 } × ( 𝑉 “ { 𝐴 } ) ) |
7 |
6
|
cnveqi |
⊢ ◡ ( 𝑉 ↾ { 𝐴 } ) = ◡ ( { 𝐴 } × ( 𝑉 “ { 𝐴 } ) ) |
8 |
|
resss |
⊢ ( 𝑉 ↾ { 𝐴 } ) ⊆ 𝑉 |
9 |
|
cnvss |
⊢ ( ( 𝑉 ↾ { 𝐴 } ) ⊆ 𝑉 → ◡ ( 𝑉 ↾ { 𝐴 } ) ⊆ ◡ 𝑉 ) |
10 |
8 9
|
ax-mp |
⊢ ◡ ( 𝑉 ↾ { 𝐴 } ) ⊆ ◡ 𝑉 |
11 |
7 10
|
eqsstrri |
⊢ ◡ ( { 𝐴 } × ( 𝑉 “ { 𝐴 } ) ) ⊆ ◡ 𝑉 |
12 |
5 11
|
eqsstrri |
⊢ ( ( 𝑉 “ { 𝐴 } ) × { 𝐴 } ) ⊆ ◡ 𝑉 |
13 |
|
coss2 |
⊢ ( ( ( 𝑉 “ { 𝐴 } ) × { 𝐴 } ) ⊆ ◡ 𝑉 → ( ( { 𝐴 } × ( 𝑉 “ { 𝐴 } ) ) ∘ ( ( 𝑉 “ { 𝐴 } ) × { 𝐴 } ) ) ⊆ ( ( { 𝐴 } × ( 𝑉 “ { 𝐴 } ) ) ∘ ◡ 𝑉 ) ) |
14 |
12 13
|
mp1i |
⊢ ( ( 𝑉 ⊆ ( 𝑋 × 𝑋 ) ∧ 𝐴 ∈ 𝑋 ) → ( ( { 𝐴 } × ( 𝑉 “ { 𝐴 } ) ) ∘ ( ( 𝑉 “ { 𝐴 } ) × { 𝐴 } ) ) ⊆ ( ( { 𝐴 } × ( 𝑉 “ { 𝐴 } ) ) ∘ ◡ 𝑉 ) ) |
15 |
6 8
|
eqsstrri |
⊢ ( { 𝐴 } × ( 𝑉 “ { 𝐴 } ) ) ⊆ 𝑉 |
16 |
|
coss1 |
⊢ ( ( { 𝐴 } × ( 𝑉 “ { 𝐴 } ) ) ⊆ 𝑉 → ( ( { 𝐴 } × ( 𝑉 “ { 𝐴 } ) ) ∘ ◡ 𝑉 ) ⊆ ( 𝑉 ∘ ◡ 𝑉 ) ) |
17 |
15 16
|
mp1i |
⊢ ( ( 𝑉 ⊆ ( 𝑋 × 𝑋 ) ∧ 𝐴 ∈ 𝑋 ) → ( ( { 𝐴 } × ( 𝑉 “ { 𝐴 } ) ) ∘ ◡ 𝑉 ) ⊆ ( 𝑉 ∘ ◡ 𝑉 ) ) |
18 |
14 17
|
sstrd |
⊢ ( ( 𝑉 ⊆ ( 𝑋 × 𝑋 ) ∧ 𝐴 ∈ 𝑋 ) → ( ( { 𝐴 } × ( 𝑉 “ { 𝐴 } ) ) ∘ ( ( 𝑉 “ { 𝐴 } ) × { 𝐴 } ) ) ⊆ ( 𝑉 ∘ ◡ 𝑉 ) ) |
19 |
4 18
|
eqsstrrd |
⊢ ( ( 𝑉 ⊆ ( 𝑋 × 𝑋 ) ∧ 𝐴 ∈ 𝑋 ) → ( ( 𝑉 “ { 𝐴 } ) × ( 𝑉 “ { 𝐴 } ) ) ⊆ ( 𝑉 ∘ ◡ 𝑉 ) ) |