Step | Hyp | Ref
| Expression |
1 | | madufval.j |
. 2
⊢ 𝐽 = (𝑁 maAdju 𝑅) |
2 | | oveq1 6556 |
. . . . . . 7
⊢ (𝑛 = 𝑁 → (𝑛 Mat 𝑟) = (𝑁 Mat 𝑟)) |
3 | 2 | fveq2d 6107 |
. . . . . 6
⊢ (𝑛 = 𝑁 → (Base‘(𝑛 Mat 𝑟)) = (Base‘(𝑁 Mat 𝑟))) |
4 | | id 22 |
. . . . . . 7
⊢ (𝑛 = 𝑁 → 𝑛 = 𝑁) |
5 | | oveq1 6556 |
. . . . . . . 8
⊢ (𝑛 = 𝑁 → (𝑛 maDet 𝑟) = (𝑁 maDet 𝑟)) |
6 | | eqidd 2611 |
. . . . . . . . 9
⊢ (𝑛 = 𝑁 → if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙)) = if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙))) |
7 | 4, 4, 6 | mpt2eq123dv 6615 |
. . . . . . . 8
⊢ (𝑛 = 𝑁 → (𝑘 ∈ 𝑛, 𝑙 ∈ 𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙))) = (𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙)))) |
8 | 5, 7 | fveq12d 6109 |
. . . . . . 7
⊢ (𝑛 = 𝑁 → ((𝑛 maDet 𝑟)‘(𝑘 ∈ 𝑛, 𝑙 ∈ 𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙)))) = ((𝑁 maDet 𝑟)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙))))) |
9 | 4, 4, 8 | mpt2eq123dv 6615 |
. . . . . 6
⊢ (𝑛 = 𝑁 → (𝑖 ∈ 𝑛, 𝑗 ∈ 𝑛 ↦ ((𝑛 maDet 𝑟)‘(𝑘 ∈ 𝑛, 𝑙 ∈ 𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙))))) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙)))))) |
10 | 3, 9 | mpteq12dv 4663 |
. . . . 5
⊢ (𝑛 = 𝑁 → (𝑚 ∈ (Base‘(𝑛 Mat 𝑟)) ↦ (𝑖 ∈ 𝑛, 𝑗 ∈ 𝑛 ↦ ((𝑛 maDet 𝑟)‘(𝑘 ∈ 𝑛, 𝑙 ∈ 𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙)))))) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑟)) ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙))))))) |
11 | | oveq2 6557 |
. . . . . . 7
⊢ (𝑟 = 𝑅 → (𝑁 Mat 𝑟) = (𝑁 Mat 𝑅)) |
12 | 11 | fveq2d 6107 |
. . . . . 6
⊢ (𝑟 = 𝑅 → (Base‘(𝑁 Mat 𝑟)) = (Base‘(𝑁 Mat 𝑅))) |
13 | | oveq2 6557 |
. . . . . . . 8
⊢ (𝑟 = 𝑅 → (𝑁 maDet 𝑟) = (𝑁 maDet 𝑅)) |
14 | | fveq2 6103 |
. . . . . . . . . . 11
⊢ (𝑟 = 𝑅 → (1r‘𝑟) = (1r‘𝑅)) |
15 | | fveq2 6103 |
. . . . . . . . . . 11
⊢ (𝑟 = 𝑅 → (0g‘𝑟) = (0g‘𝑅)) |
16 | 14, 15 | ifeq12d 4056 |
. . . . . . . . . 10
⊢ (𝑟 = 𝑅 → if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)) = if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅))) |
17 | 16 | ifeq1d 4054 |
. . . . . . . . 9
⊢ (𝑟 = 𝑅 → if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙)) = if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙))) |
18 | 17 | mpt2eq3dv 6619 |
. . . . . . . 8
⊢ (𝑟 = 𝑅 → (𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙))) = (𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙)))) |
19 | 13, 18 | fveq12d 6109 |
. . . . . . 7
⊢ (𝑟 = 𝑅 → ((𝑁 maDet 𝑟)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙)))) = ((𝑁 maDet 𝑅)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙))))) |
20 | 19 | mpt2eq3dv 6619 |
. . . . . 6
⊢ (𝑟 = 𝑅 → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙))))) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙)))))) |
21 | 12, 20 | mpteq12dv 4663 |
. . . . 5
⊢ (𝑟 = 𝑅 → (𝑚 ∈ (Base‘(𝑁 Mat 𝑟)) ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑟)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙)))))) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙))))))) |
22 | | df-madu 20259 |
. . . . 5
⊢ maAdju =
(𝑛 ∈ V, 𝑟 ∈ V ↦ (𝑚 ∈ (Base‘(𝑛 Mat 𝑟)) ↦ (𝑖 ∈ 𝑛, 𝑗 ∈ 𝑛 ↦ ((𝑛 maDet 𝑟)‘(𝑘 ∈ 𝑛, 𝑙 ∈ 𝑛 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑟), (0g‘𝑟)), (𝑘𝑚𝑙))))))) |
23 | | fvex 6113 |
. . . . . 6
⊢
(Base‘(𝑁 Mat
𝑅)) ∈
V |
24 | 23 | mptex 6390 |
. . . . 5
⊢ (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙)))))) ∈ V |
25 | 10, 21, 22, 24 | ovmpt2 6694 |
. . . 4
⊢ ((𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙))))))) |
26 | | madufval.b |
. . . . . 6
⊢ 𝐵 = (Base‘𝐴) |
27 | | madufval.a |
. . . . . . 7
⊢ 𝐴 = (𝑁 Mat 𝑅) |
28 | 27 | fveq2i 6106 |
. . . . . 6
⊢
(Base‘𝐴) =
(Base‘(𝑁 Mat 𝑅)) |
29 | 26, 28 | eqtri 2632 |
. . . . 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 4056 |
. . . . . . . . . 10
⊢ ((𝑘 ∈ 𝑁 ∧ 𝑙 ∈ 𝑁) → if(𝑙 = 𝑖, 1 , 0 ) = if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅))) |
36 | 35 | ifeq1d 4054 |
. . . . . . . . 9
⊢ ((𝑘 ∈ 𝑁 ∧ 𝑙 ∈ 𝑁) → if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)) = if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙))) |
37 | 36 | mpt2eq3ia 6618 |
. . . . . . . 8
⊢ (𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))) = (𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙))) |
38 | 30, 37 | fveq12i 6108 |
. . . . . . 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 6618 |
. . . . 5
⊢ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙))))) |
41 | 29, 40 | mpteq12i 4670 |
. . . 4
⊢ (𝑚 ∈ 𝐵 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = (𝑚 ∈ (Base‘(𝑁 Mat 𝑅)) ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((𝑁 maDet 𝑅)‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, (1r‘𝑅), (0g‘𝑅)), (𝑘𝑚𝑙)))))) |
42 | 25, 41 | syl6eqr 2662 |
. . 3
⊢ ((𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = (𝑚 ∈ 𝐵 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))))) |
43 | 22 | reldmmpt2 6669 |
. . . . 5
⊢ Rel dom
maAdju |
44 | 43 | ovprc 6581 |
. . . 4
⊢ (¬
(𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = ∅) |
45 | | df-mat 20033 |
. . . . . . . . . . 11
⊢ Mat =
(𝑛 ∈ Fin, 𝑟 ∈ V ↦ ((𝑟 freeLMod (𝑛 × 𝑛)) sSet 〈(.r‘ndx),
(𝑟 maMul 〈𝑛, 𝑛, 𝑛〉)〉)) |
46 | 45 | reldmmpt2 6669 |
. . . . . . . . . 10
⊢ Rel dom
Mat |
47 | 46 | ovprc 6581 |
. . . . . . . . 9
⊢ (¬
(𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 Mat 𝑅) = ∅) |
48 | 27, 47 | syl5eq 2656 |
. . . . . . . 8
⊢ (¬
(𝑁 ∈ V ∧ 𝑅 ∈ V) → 𝐴 = ∅) |
49 | 48 | fveq2d 6107 |
. . . . . . 7
⊢ (¬
(𝑁 ∈ V ∧ 𝑅 ∈ V) →
(Base‘𝐴) =
(Base‘∅)) |
50 | | base0 15740 |
. . . . . . 7
⊢ ∅ =
(Base‘∅) |
51 | 49, 26, 50 | 3eqtr4g 2669 |
. . . . . 6
⊢ (¬
(𝑁 ∈ V ∧ 𝑅 ∈ V) → 𝐵 = ∅) |
52 | 51 | mpteq1d 4666 |
. . . . 5
⊢ (¬
(𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑚 ∈ 𝐵 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = (𝑚 ∈ ∅ ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))))) |
53 | | mpt0 5934 |
. . . . 5
⊢ (𝑚 ∈ ∅ ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = ∅ |
54 | 52, 53 | syl6eq 2660 |
. . . 4
⊢ (¬
(𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑚 ∈ 𝐵 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) = ∅) |
55 | 44, 54 | eqtr4d 2647 |
. . 3
⊢ (¬
(𝑁 ∈ V ∧ 𝑅 ∈ V) → (𝑁 maAdju 𝑅) = (𝑚 ∈ 𝐵 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙))))))) |
56 | 42, 55 | pm2.61i 175 |
. 2
⊢ (𝑁 maAdju 𝑅) = (𝑚 ∈ 𝐵 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) |
57 | 1, 56 | eqtri 2632 |
1
⊢ 𝐽 = (𝑚 ∈ 𝐵 ↦ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ (𝐷‘(𝑘 ∈ 𝑁, 𝑙 ∈ 𝑁 ↦ if(𝑘 = 𝑗, if(𝑙 = 𝑖, 1 , 0 ), (𝑘𝑚𝑙)))))) |