Step | Hyp | Ref
| Expression |
1 | | snfi 8038 |
. . . . . 6
⊢ {𝐴} ∈ Fin |
2 | | eleq1 2689 |
. . . . . 6
⊢ (𝑁 = {𝐴} → (𝑁 ∈ Fin ↔ {𝐴} ∈ Fin)) |
3 | 1, 2 | mpbiri 248 |
. . . . 5
⊢ (𝑁 = {𝐴} → 𝑁 ∈ Fin) |
4 | 3 | adantr 481 |
. . . 4
⊢ ((𝑁 = {𝐴} ∧ 𝐴 ∈ 𝑉) → 𝑁 ∈ Fin) |
5 | 4 | 3ad2ant2 1083 |
. . 3
⊢ ((𝑅 ∈ 𝑉 ∧ (𝑁 = {𝐴} ∧ 𝐴 ∈ 𝑉) ∧ 𝑀 ∈ 𝐵) → 𝑁 ∈ Fin) |
6 | | simp1 1061 |
. . 3
⊢ ((𝑅 ∈ 𝑉 ∧ (𝑁 = {𝐴} ∧ 𝐴 ∈ 𝑉) ∧ 𝑀 ∈ 𝐵) → 𝑅 ∈ 𝑉) |
7 | | simp3 1063 |
. . 3
⊢ ((𝑅 ∈ 𝑉 ∧ (𝑁 = {𝐴} ∧ 𝐴 ∈ 𝑉) ∧ 𝑀 ∈ 𝐵) → 𝑀 ∈ 𝐵) |
8 | | d1mat2pmat.t |
. . . 4
⊢ 𝑇 = (𝑁 matToPolyMat 𝑅) |
9 | | eqid 2622 |
. . . 4
⊢ (𝑁 Mat 𝑅) = (𝑁 Mat 𝑅) |
10 | | d1mat2pmat.b |
. . . 4
⊢ 𝐵 = (Base‘(𝑁 Mat 𝑅)) |
11 | | d1mat2pmat.p |
. . . 4
⊢ 𝑃 = (Poly1‘𝑅) |
12 | | d1mat2pmat.s |
. . . 4
⊢ 𝑆 = (algSc‘𝑃) |
13 | 8, 9, 10, 11, 12 | mat2pmatval 20529 |
. . 3
⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ 𝑉 ∧ 𝑀 ∈ 𝐵) → (𝑇‘𝑀) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑆‘(𝑖𝑀𝑗)))) |
14 | 5, 6, 7, 13 | syl3anc 1326 |
. 2
⊢ ((𝑅 ∈ 𝑉 ∧ (𝑁 = {𝐴} ∧ 𝐴 ∈ 𝑉) ∧ 𝑀 ∈ 𝐵) → (𝑇‘𝑀) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑆‘(𝑖𝑀𝑗)))) |
15 | | id 22 |
. . . . . . 7
⊢ (𝐴 ∈ 𝑉 → 𝐴 ∈ 𝑉) |
16 | | fvexd 6203 |
. . . . . . 7
⊢ (𝐴 ∈ 𝑉 → (𝑆‘(𝐴𝑀𝐴)) ∈ V) |
17 | 15, 15, 16 | 3jca 1242 |
. . . . . 6
⊢ (𝐴 ∈ 𝑉 → (𝐴 ∈ 𝑉 ∧ 𝐴 ∈ 𝑉 ∧ (𝑆‘(𝐴𝑀𝐴)) ∈ V)) |
18 | 17 | adantl 482 |
. . . . 5
⊢ ((𝑁 = {𝐴} ∧ 𝐴 ∈ 𝑉) → (𝐴 ∈ 𝑉 ∧ 𝐴 ∈ 𝑉 ∧ (𝑆‘(𝐴𝑀𝐴)) ∈ V)) |
19 | 18 | 3ad2ant2 1083 |
. . . 4
⊢ ((𝑅 ∈ 𝑉 ∧ (𝑁 = {𝐴} ∧ 𝐴 ∈ 𝑉) ∧ 𝑀 ∈ 𝐵) → (𝐴 ∈ 𝑉 ∧ 𝐴 ∈ 𝑉 ∧ (𝑆‘(𝐴𝑀𝐴)) ∈ V)) |
20 | | eqid 2622 |
. . . . 5
⊢ (𝑖 ∈ {𝐴}, 𝑗 ∈ {𝐴} ↦ (𝑆‘(𝑖𝑀𝑗))) = (𝑖 ∈ {𝐴}, 𝑗 ∈ {𝐴} ↦ (𝑆‘(𝑖𝑀𝑗))) |
21 | | oveq1 6657 |
. . . . . 6
⊢ (𝑖 = 𝐴 → (𝑖𝑀𝑗) = (𝐴𝑀𝑗)) |
22 | 21 | fveq2d 6195 |
. . . . 5
⊢ (𝑖 = 𝐴 → (𝑆‘(𝑖𝑀𝑗)) = (𝑆‘(𝐴𝑀𝑗))) |
23 | | oveq2 6658 |
. . . . . 6
⊢ (𝑗 = 𝐴 → (𝐴𝑀𝑗) = (𝐴𝑀𝐴)) |
24 | 23 | fveq2d 6195 |
. . . . 5
⊢ (𝑗 = 𝐴 → (𝑆‘(𝐴𝑀𝑗)) = (𝑆‘(𝐴𝑀𝐴))) |
25 | 20, 22, 24 | mpt2sn 7268 |
. . . 4
⊢ ((𝐴 ∈ 𝑉 ∧ 𝐴 ∈ 𝑉 ∧ (𝑆‘(𝐴𝑀𝐴)) ∈ V) → (𝑖 ∈ {𝐴}, 𝑗 ∈ {𝐴} ↦ (𝑆‘(𝑖𝑀𝑗))) = {〈〈𝐴, 𝐴〉, (𝑆‘(𝐴𝑀𝐴))〉}) |
26 | 19, 25 | syl 17 |
. . 3
⊢ ((𝑅 ∈ 𝑉 ∧ (𝑁 = {𝐴} ∧ 𝐴 ∈ 𝑉) ∧ 𝑀 ∈ 𝐵) → (𝑖 ∈ {𝐴}, 𝑗 ∈ {𝐴} ↦ (𝑆‘(𝑖𝑀𝑗))) = {〈〈𝐴, 𝐴〉, (𝑆‘(𝐴𝑀𝐴))〉}) |
27 | | mpt2eq12 6715 |
. . . . . . 7
⊢ ((𝑁 = {𝐴} ∧ 𝑁 = {𝐴}) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑆‘(𝑖𝑀𝑗))) = (𝑖 ∈ {𝐴}, 𝑗 ∈ {𝐴} ↦ (𝑆‘(𝑖𝑀𝑗)))) |
28 | 27 | eqeq1d 2624 |
. . . . . 6
⊢ ((𝑁 = {𝐴} ∧ 𝑁 = {𝐴}) → ((𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑆‘(𝑖𝑀𝑗))) = {〈〈𝐴, 𝐴〉, (𝑆‘(𝐴𝑀𝐴))〉} ↔ (𝑖 ∈ {𝐴}, 𝑗 ∈ {𝐴} ↦ (𝑆‘(𝑖𝑀𝑗))) = {〈〈𝐴, 𝐴〉, (𝑆‘(𝐴𝑀𝐴))〉})) |
29 | 28 | anidms 677 |
. . . . 5
⊢ (𝑁 = {𝐴} → ((𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑆‘(𝑖𝑀𝑗))) = {〈〈𝐴, 𝐴〉, (𝑆‘(𝐴𝑀𝐴))〉} ↔ (𝑖 ∈ {𝐴}, 𝑗 ∈ {𝐴} ↦ (𝑆‘(𝑖𝑀𝑗))) = {〈〈𝐴, 𝐴〉, (𝑆‘(𝐴𝑀𝐴))〉})) |
30 | 29 | adantr 481 |
. . . 4
⊢ ((𝑁 = {𝐴} ∧ 𝐴 ∈ 𝑉) → ((𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑆‘(𝑖𝑀𝑗))) = {〈〈𝐴, 𝐴〉, (𝑆‘(𝐴𝑀𝐴))〉} ↔ (𝑖 ∈ {𝐴}, 𝑗 ∈ {𝐴} ↦ (𝑆‘(𝑖𝑀𝑗))) = {〈〈𝐴, 𝐴〉, (𝑆‘(𝐴𝑀𝐴))〉})) |
31 | 30 | 3ad2ant2 1083 |
. . 3
⊢ ((𝑅 ∈ 𝑉 ∧ (𝑁 = {𝐴} ∧ 𝐴 ∈ 𝑉) ∧ 𝑀 ∈ 𝐵) → ((𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑆‘(𝑖𝑀𝑗))) = {〈〈𝐴, 𝐴〉, (𝑆‘(𝐴𝑀𝐴))〉} ↔ (𝑖 ∈ {𝐴}, 𝑗 ∈ {𝐴} ↦ (𝑆‘(𝑖𝑀𝑗))) = {〈〈𝐴, 𝐴〉, (𝑆‘(𝐴𝑀𝐴))〉})) |
32 | 26, 31 | mpbird 247 |
. 2
⊢ ((𝑅 ∈ 𝑉 ∧ (𝑁 = {𝐴} ∧ 𝐴 ∈ 𝑉) ∧ 𝑀 ∈ 𝐵) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝑆‘(𝑖𝑀𝑗))) = {〈〈𝐴, 𝐴〉, (𝑆‘(𝐴𝑀𝐴))〉}) |
33 | 14, 32 | eqtrd 2656 |
1
⊢ ((𝑅 ∈ 𝑉 ∧ (𝑁 = {𝐴} ∧ 𝐴 ∈ 𝑉) ∧ 𝑀 ∈ 𝐵) → (𝑇‘𝑀) = {〈〈𝐴, 𝐴〉, (𝑆‘(𝐴𝑀𝐴))〉}) |