Step | Hyp | Ref
| Expression |
1 | | madufval.j |
. 2
⊢ 𝐽 = (𝑁 maAdju 𝑅) |
2 | | oveq1 6657 |
. . . . . . 7
⊢ (𝑛 = 𝑁 → (𝑛 Mat 𝑟) = (𝑁 Mat 𝑟)) |
3 | 2 | fveq2d 6195 |
. . . . . 6
⊢ (𝑛 = 𝑁 → (Base‘(𝑛 Mat 𝑟)) = (Base‘(𝑁 Mat 𝑟))) |
4 | | id 22 |
. . . . . . 7
⊢ (𝑛 = 𝑁 → 𝑛 = 𝑁) |
5 | | oveq1 6657 |
. . . . . . . 8
⊢ (𝑛 = 𝑁 → (𝑛 maDet 𝑟) = (𝑁 maDet 𝑟)) |
6 | | eqidd 2623 |
. . . . . . . . 9
⊢ (𝑛 = 𝑁 → if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙)) = if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙))) |
7 | 4, 4, 6 | mpt2eq123dv 6717 |
. . . . . . . 8
⊢ (𝑛 = 𝑁 → (𝑘 ∈ 𝑛, 𝑙 ∈ 𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙))) = (𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙)))) |
8 | 5, 7 | fveq12d 6197 |
. . . . . . 7
⊢ (𝑛 = 𝑁 → ((𝑛 maDet 𝑟)‘(𝑘 ∈ 𝑛, 𝑙 ∈ 𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙)))) = ((𝑁 maDet 𝑟)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙))))) |
9 | 4, 4, 8 | mpt2eq123dv 6717 |
. . . . . 6
⊢ (𝑛 = 𝑁 → (𝑖 ∈ 𝑛, 𝑗 ∈ 𝑛 ↦ ((𝑛 maDet 𝑟)‘(𝑘 ∈ 𝑛, 𝑙 ∈ 𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙))))) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙)))))) |
10 | 3, 9 | mpteq12dv 4733 |
. . . . 5
⊢ (𝑛 = 𝑁 → (𝑚 ∈ (Base‘(𝑛 Mat 𝑟)) ↦ (𝑖 ∈ 𝑛, 𝑗 ∈ 𝑛 ↦ ((𝑛 maDet 𝑟)‘(𝑘 ∈ 𝑛, 𝑙 ∈ 𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙)))))) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑟)) ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙))))))) |
11 | | oveq2 6658 |
. . . . . . 7
⊢ (𝑟 = 𝑅 → (𝑁 Mat 𝑟) = (𝑁 Mat 𝑅)) |
12 | 11 | fveq2d 6195 |
. . . . . 6
⊢ (𝑟 = 𝑅 → (Base‘(𝑁 Mat 𝑟)) = (Base‘(𝑁 Mat 𝑅))) |
13 | | oveq2 6658 |
. . . . . . . 8
⊢ (𝑟 = 𝑅 → (𝑁 maDet 𝑟) = (𝑁 maDet 𝑅)) |
14 | | fveq2 6191 |
. . . . . . . . . . 11
⊢ (𝑟 = 𝑅 → (1r‘𝑟) = (1r‘𝑅)) |
15 | | fveq2 6191 |
. . . . . . . . . . 11
⊢ (𝑟 = 𝑅 → (0g‘𝑟) = (0g‘𝑅)) |
16 | 14, 15 | ifeq12d 4106 |
. . . . . . . . . 10
⊢ (𝑟 = 𝑅 → if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)) = if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅))) |
17 | 16 | ifeq1d 4104 |
. . . . . . . . 9
⊢ (𝑟 = 𝑅 → if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙)) = if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙))) |
18 | 17 | mpt2eq3dv 6721 |
. . . . . . . 8
⊢ (𝑟 = 𝑅 → (𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙))) = (𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙)))) |
19 | 13, 18 | fveq12d 6197 |
. . . . . . 7
⊢ (𝑟 = 𝑅 → ((𝑁 maDet 𝑟)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙)))) = ((𝑁 maDet 𝑅)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙))))) |
20 | 19 | mpt2eq3dv 6721 |
. . . . . 6
⊢ (𝑟 = 𝑅 → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙))))) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙)))))) |
21 | 12, 20 | mpteq12dv 4733 |
. . . . 5
⊢ (𝑟 = 𝑅 → (𝑚 ∈ (Base‘(𝑁 Mat 𝑟)) ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙)))))) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙))))))) |
22 | | df-madu 20440 |
. . . . 5
⊢ maAdju =
(𝑛 ∈ V, 𝑟 ∈ V ↦ (𝑚 ∈ (Base‘(𝑛 Mat 𝑟)) ↦ (𝑖 ∈ 𝑛, 𝑗 ∈ 𝑛 ↦ ((𝑛 maDet 𝑟)‘(𝑘 ∈ 𝑛, 𝑙 ∈ 𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙))))))) |
23 | | fvex 6201 |
. . . . . 6
⊢
(Base‘(𝑁 Mat
𝑅)) ∈
V |
24 | 23 | mptex 6486 |
. . . . 5
⊢ (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙)))))) ∈ V |
25 | 10, 21, 22, 24 | ovmpt2 6796 |
. . . 4
⊢ ((𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙))))))) |
26 | | madufval.b |
. . . . . 6
⊢ 𝐵 = (Base‘𝐴) |
27 | | madufval.a |
. . . . . . 7
⊢ 𝐴 = (𝑁 Mat 𝑅) |
28 | 27 | fveq2i 6194 |
. . . . . 6
⊢
(Base‘𝐴) =
(Base‘(𝑁 Mat 𝑅)) |
29 | 26, 28 | eqtri 2644 |
. . . . 5
⊢ 𝐵 = (Base‘(𝑁 Mat 𝑅)) |
30 | | madufval.d |
. . . . . . . 8
⊢ 𝐷 = (𝑁 maDet 𝑅) |
31 | | madufval.o |
. . . . . . . . . . . 12
⊢ 1 =
(1r‘𝑅) |
32 | 31 | a1i 11 |
. . . . . . . . . . 11
⊢ ((𝑘 ∈ 𝑁 ∧ 𝑙 ∈ 𝑁) → 1 =
(1r‘𝑅)) |
33 | | madufval.z |
. . . . . . . . . . . 12
⊢ 0 =
(0g‘𝑅) |
34 | 33 | a1i 11 |
. . . . . . . . . . 11
⊢ ((𝑘 ∈ 𝑁 ∧ 𝑙 ∈ 𝑁) → 0 =
(0g‘𝑅)) |
35 | 32, 34 | ifeq12d 4106 |
. . . . . . . . . 10
⊢ ((𝑘 ∈ 𝑁 ∧ 𝑙 ∈ 𝑁) → if(𝑙 = 𝑖, 1 , 0 ) = if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅))) |
36 | 35 | ifeq1d 4104 |
. . . . . . . . 9
⊢ ((𝑘 ∈ 𝑁 ∧ 𝑙 ∈ 𝑁) → if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)) = if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙))) |
37 | 36 | mpt2eq3ia 6720 |
. . . . . . . 8
⊢ (𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))) = (𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙))) |
38 | 30, 37 | fveq12i 6196 |
. . . . . . 7
⊢ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))) = ((𝑁 maDet 𝑅)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙)))) |
39 | 38 | a1i 11 |
. . . . . 6
⊢ ((𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))) = ((𝑁 maDet 𝑅)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙))))) |
40 | 39 | mpt2eq3ia 6720 |
. . . . 5
⊢ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙))))) |
41 | 29, 40 | mpteq12i 4742 |
. . . 4
⊢ (𝑚 ∈ 𝐵 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙)))))) |
42 | 25, 41 | syl6eqr 2674 |
. . 3
⊢ ((𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = (𝑚 ∈ 𝐵 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))))) |
43 | 22 | reldmmpt2 6771 |
. . . . 5
⊢ Rel dom
maAdju |
44 | 43 | ovprc 6683 |
. . . 4
⊢ (¬
(𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = ∅) |
45 | | df-mat 20214 |
. . . . . . . . . . 11
⊢ Mat =
(𝑛 ∈ Fin, 𝑟 ∈ V ↦ ((𝑟 freeLMod (𝑛 × 𝑛)) sSet 〈(.r‘ndx),
(𝑟 maMul 〈𝑛, 𝑛, 𝑛〉)〉)) |
46 | 45 | reldmmpt2 6771 |
. . . . . . . . . 10
⊢ Rel dom
Mat |
47 | 46 | ovprc 6683 |
. . . . . . . . 9
⊢ (¬
(𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 Mat 𝑅) = ∅) |
48 | 27, 47 | syl5eq 2668 |
. . . . . . . 8
⊢ (¬
(𝑁 ∈ V ∧ 𝑅 ∈ V) → 𝐴 = ∅) |
49 | 48 | fveq2d 6195 |
. . . . . . 7
⊢ (¬
(𝑁 ∈ V ∧ 𝑅 ∈ V) →
(Base‘𝐴) =
(Base‘∅)) |
50 | | base0 15912 |
. . . . . . 7
⊢ ∅ =
(Base‘∅) |
51 | 49, 26, 50 | 3eqtr4g 2681 |
. . . . . 6
⊢ (¬
(𝑁 ∈ V ∧ 𝑅 ∈ V) → 𝐵 = ∅) |
52 | 51 | mpteq1d 4738 |
. . . . 5
⊢ (¬
(𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑚 ∈ 𝐵 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = (𝑚 ∈ ∅ ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))))) |
53 | | mpt0 6021 |
. . . . 5
⊢ (𝑚 ∈ ∅ ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = ∅ |
54 | 52, 53 | syl6eq 2672 |
. . . 4
⊢ (¬
(𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑚 ∈ 𝐵 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = ∅) |
55 | 44, 54 | eqtr4d 2659 |
. . 3
⊢ (¬
(𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = (𝑚 ∈ 𝐵 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))))) |
56 | 42, 55 | pm2.61i 176 |
. 2
⊢ (𝑁 maAdju 𝑅) = (𝑚 ∈ 𝐵 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) |
57 | 1, 56 | eqtri 2644 |
1
⊢ 𝐽 = (𝑚 ∈ 𝐵 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) |