MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  maducoeval2 Structured version   Visualization version   GIF version

Theorem maducoeval2 22005
Description: An entry of the adjunct (cofactor) matrix. (Contributed by SO, 17-Jul-2018.)
Hypotheses
Ref Expression
madufval.a 𝐴 = (𝑁 Mat 𝑅)
madufval.d 𝐷 = (𝑁 maDet 𝑅)
madufval.j 𝐽 = (𝑁 maAdju 𝑅)
madufval.b 𝐵 = (Base‘𝐴)
madufval.o 1 = (1r𝑅)
madufval.z 0 = (0g𝑅)
Assertion
Ref Expression
maducoeval2 (((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) → (𝐼(𝐽𝑀)𝐻) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if((𝑘 = 𝐻𝑙 = 𝐼), if((𝑙 = 𝐼𝑘 = 𝐻), 1 , 0 ), (𝑘𝑀𝑙)))))
Distinct variable groups:   𝑘,𝑁,𝑙   𝑅,𝑘,𝑙   𝑘,𝑀,𝑙   𝑘,𝐼,𝑙   𝑘,𝐻,𝑙   𝐵,𝑘,𝑙   0 ,𝑘   1 ,𝑘
Allowed substitution hints:   𝐴(𝑘,𝑙)   𝐷(𝑘,𝑙)   1 (𝑙)   𝐽(𝑘,𝑙)   0 (𝑙)

Proof of Theorem maducoeval2
Dummy variables 𝑛 𝑟 𝑚 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eleq2 2827 . . . . . . . 8 (𝑚 = ∅ → (𝑘𝑚𝑘 ∈ ∅))
21ifbid 4514 . . . . . . 7 (𝑚 = ∅ → if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)) = if(𝑘 ∈ ∅, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))
32ifeq2d 4511 . . . . . 6 (𝑚 = ∅ → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ ∅, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))
43mpoeq3dv 7441 . . . . 5 (𝑚 = ∅ → (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))) = (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ ∅, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))))
54fveq2d 6851 . . . 4 (𝑚 = ∅ → (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ ∅, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))))
65eqeq2d 2748 . . 3 (𝑚 = ∅ → ((𝐼(𝐽𝑀)𝐻) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))) ↔ (𝐼(𝐽𝑀)𝐻) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ ∅, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))))))
7 eleq2 2827 . . . . . . . 8 (𝑚 = 𝑛 → (𝑘𝑚𝑘𝑛))
87ifbid 4514 . . . . . . 7 (𝑚 = 𝑛 → if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)) = if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))
98ifeq2d 4511 . . . . . 6 (𝑚 = 𝑛 → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))
109mpoeq3dv 7441 . . . . 5 (𝑚 = 𝑛 → (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))) = (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))))
1110fveq2d 6851 . . . 4 (𝑚 = 𝑛 → (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))))
1211eqeq2d 2748 . . 3 (𝑚 = 𝑛 → ((𝐼(𝐽𝑀)𝐻) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))) ↔ (𝐼(𝐽𝑀)𝐻) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))))))
13 eleq2 2827 . . . . . . . 8 (𝑚 = (𝑛 ∪ {𝑟}) → (𝑘𝑚𝑘 ∈ (𝑛 ∪ {𝑟})))
1413ifbid 4514 . . . . . . 7 (𝑚 = (𝑛 ∪ {𝑟}) → if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)) = if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))
1514ifeq2d 4511 . . . . . 6 (𝑚 = (𝑛 ∪ {𝑟}) → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))
1615mpoeq3dv 7441 . . . . 5 (𝑚 = (𝑛 ∪ {𝑟}) → (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))) = (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))))
1716fveq2d 6851 . . . 4 (𝑚 = (𝑛 ∪ {𝑟}) → (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))))
1817eqeq2d 2748 . . 3 (𝑚 = (𝑛 ∪ {𝑟}) → ((𝐼(𝐽𝑀)𝐻) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))) ↔ (𝐼(𝐽𝑀)𝐻) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))))))
19 eleq2 2827 . . . . . . . 8 (𝑚 = (𝑁 ∖ {𝐻}) → (𝑘𝑚𝑘 ∈ (𝑁 ∖ {𝐻})))
2019ifbid 4514 . . . . . . 7 (𝑚 = (𝑁 ∖ {𝐻}) → if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)) = if(𝑘 ∈ (𝑁 ∖ {𝐻}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))
2120ifeq2d 4511 . . . . . 6 (𝑚 = (𝑁 ∖ {𝐻}) → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑁 ∖ {𝐻}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))
2221mpoeq3dv 7441 . . . . 5 (𝑚 = (𝑁 ∖ {𝐻}) → (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))) = (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑁 ∖ {𝐻}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))))
2322fveq2d 6851 . . . 4 (𝑚 = (𝑁 ∖ {𝐻}) → (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑁 ∖ {𝐻}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))))
2423eqeq2d 2748 . . 3 (𝑚 = (𝑁 ∖ {𝐻}) → ((𝐼(𝐽𝑀)𝐻) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑚, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))) ↔ (𝐼(𝐽𝑀)𝐻) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑁 ∖ {𝐻}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))))))
25 madufval.a . . . . . 6 𝐴 = (𝑁 Mat 𝑅)
26 madufval.d . . . . . 6 𝐷 = (𝑁 maDet 𝑅)
27 madufval.j . . . . . 6 𝐽 = (𝑁 maAdju 𝑅)
28 madufval.b . . . . . 6 𝐵 = (Base‘𝐴)
29 madufval.o . . . . . 6 1 = (1r𝑅)
30 madufval.z . . . . . 6 0 = (0g𝑅)
3125, 26, 27, 28, 29, 30maducoeval 22004 . . . . 5 ((𝑀𝐵𝐼𝑁𝐻𝑁) → (𝐼(𝐽𝑀)𝐻) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), (𝑘𝑀𝑙)))))
32313adant1l 1177 . . . 4 (((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) → (𝐼(𝐽𝑀)𝐻) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), (𝑘𝑀𝑙)))))
33 noel 4295 . . . . . . . 8 ¬ 𝑘 ∈ ∅
34 iffalse 4500 . . . . . . . 8 𝑘 ∈ ∅ → if(𝑘 ∈ ∅, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)) = (𝑘𝑀𝑙))
3533, 34mp1i 13 . . . . . . 7 ((𝑘𝑁𝑙𝑁) → if(𝑘 ∈ ∅, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)) = (𝑘𝑀𝑙))
3635ifeq2d 4511 . . . . . 6 ((𝑘𝑁𝑙𝑁) → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ ∅, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), (𝑘𝑀𝑙)))
3736mpoeq3ia 7440 . . . . 5 (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ ∅, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))) = (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), (𝑘𝑀𝑙)))
3837fveq2i 6850 . . . 4 (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ ∅, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), (𝑘𝑀𝑙))))
3932, 38eqtr4di 2795 . . 3 (((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) → (𝐼(𝐽𝑀)𝐻) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ ∅, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))))
40 eqid 2737 . . . . . . 7 (Base‘𝑅) = (Base‘𝑅)
41 eqid 2737 . . . . . . 7 (+g𝑅) = (+g𝑅)
42 eqid 2737 . . . . . . 7 (.r𝑅) = (.r𝑅)
43 simpl1l 1225 . . . . . . 7 ((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) → 𝑅 ∈ CRing)
44 simp1r 1199 . . . . . . . . 9 (((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) → 𝑀𝐵)
4525, 28matrcl 21775 . . . . . . . . . 10 (𝑀𝐵 → (𝑁 ∈ Fin ∧ 𝑅 ∈ V))
4645simpld 496 . . . . . . . . 9 (𝑀𝐵𝑁 ∈ Fin)
4744, 46syl 17 . . . . . . . 8 (((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) → 𝑁 ∈ Fin)
4847adantr 482 . . . . . . 7 ((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) → 𝑁 ∈ Fin)
49 simp1l 1198 . . . . . . . . . . 11 (((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) → 𝑅 ∈ CRing)
5049ad2antrr 725 . . . . . . . . . 10 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → 𝑅 ∈ CRing)
51 crngring 19983 . . . . . . . . . 10 (𝑅 ∈ CRing → 𝑅 ∈ Ring)
5250, 51syl 17 . . . . . . . . 9 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → 𝑅 ∈ Ring)
5340, 30ring0cl 19997 . . . . . . . . 9 (𝑅 ∈ Ring → 0 ∈ (Base‘𝑅))
5452, 53syl 17 . . . . . . . 8 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → 0 ∈ (Base‘𝑅))
55 simpl1r 1226 . . . . . . . . . . 11 ((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) → 𝑀𝐵)
5625, 40, 28matbas2i 21787 . . . . . . . . . . 11 (𝑀𝐵𝑀 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))
57 elmapi 8794 . . . . . . . . . . 11 (𝑀 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) → 𝑀:(𝑁 × 𝑁)⟶(Base‘𝑅))
5855, 56, 573syl 18 . . . . . . . . . 10 ((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) → 𝑀:(𝑁 × 𝑁)⟶(Base‘𝑅))
5958adantr 482 . . . . . . . . 9 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → 𝑀:(𝑁 × 𝑁)⟶(Base‘𝑅))
60 eldifi 4091 . . . . . . . . . . . 12 (𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛) → 𝑟 ∈ (𝑁 ∖ {𝐻}))
6160ad2antll 728 . . . . . . . . . . 11 ((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) → 𝑟 ∈ (𝑁 ∖ {𝐻}))
6261eldifad 3927 . . . . . . . . . 10 ((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) → 𝑟𝑁)
6362adantr 482 . . . . . . . . 9 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → 𝑟𝑁)
64 simpr 486 . . . . . . . . 9 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → 𝑙𝑁)
6559, 63, 64fovcdmd 7531 . . . . . . . 8 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → (𝑟𝑀𝑙) ∈ (Base‘𝑅))
6654, 65ifcld 4537 . . . . . . 7 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)) ∈ (Base‘𝑅))
6740, 29ringidcl 19996 . . . . . . . . 9 (𝑅 ∈ Ring → 1 ∈ (Base‘𝑅))
6852, 67syl 17 . . . . . . . 8 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → 1 ∈ (Base‘𝑅))
6968, 54ifcld 4537 . . . . . . 7 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → if(𝑙 = 𝐼, 1 , 0 ) ∈ (Base‘𝑅))
70543adant2 1132 . . . . . . . . 9 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) → 0 ∈ (Base‘𝑅))
7158fovcdmda 7530 . . . . . . . . . 10 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ (𝑘𝑁𝑙𝑁)) → (𝑘𝑀𝑙) ∈ (Base‘𝑅))
72713impb 1116 . . . . . . . . 9 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) → (𝑘𝑀𝑙) ∈ (Base‘𝑅))
7370, 72ifcld 4537 . . . . . . . 8 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) → if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)) ∈ (Base‘𝑅))
7473, 72ifcld 4537 . . . . . . 7 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) → if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)) ∈ (Base‘𝑅))
75 simpl2 1193 . . . . . . . 8 ((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) → 𝐼𝑁)
7658, 62, 75fovcdmd 7531 . . . . . . 7 ((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) → (𝑟𝑀𝐼) ∈ (Base‘𝑅))
77 simpl3 1194 . . . . . . 7 ((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) → 𝐻𝑁)
78 eldifsni 4755 . . . . . . . 8 (𝑟 ∈ (𝑁 ∖ {𝐻}) → 𝑟𝐻)
7961, 78syl 17 . . . . . . 7 ((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) → 𝑟𝐻)
8026, 40, 41, 42, 43, 48, 66, 69, 74, 76, 62, 77, 79mdetero 21975 . . . . . 6 ((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) → (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑟, (if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙))(+g𝑅)((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 ))), if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))))) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))))))
81 ifnot 4543 . . . . . . . . . . . . . . . . 17 if(¬ 𝑙 = 𝐼, (𝑟𝑀𝑙), 0 ) = if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙))
8281eqcomi 2746 . . . . . . . . . . . . . . . 16 if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)) = if(¬ 𝑙 = 𝐼, (𝑟𝑀𝑙), 0 )
8382a1i 11 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)) = if(¬ 𝑙 = 𝐼, (𝑟𝑀𝑙), 0 ))
84 ovif2 7460 . . . . . . . . . . . . . . . 16 ((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 )) = if(𝑙 = 𝐼, ((𝑟𝑀𝐼)(.r𝑅) 1 ), ((𝑟𝑀𝐼)(.r𝑅) 0 ))
8576adantr 482 . . . . . . . . . . . . . . . . . . . . 21 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → (𝑟𝑀𝐼) ∈ (Base‘𝑅))
8640, 42, 29ringridm 20000 . . . . . . . . . . . . . . . . . . . . 21 ((𝑅 ∈ Ring ∧ (𝑟𝑀𝐼) ∈ (Base‘𝑅)) → ((𝑟𝑀𝐼)(.r𝑅) 1 ) = (𝑟𝑀𝐼))
8752, 85, 86syl2anc 585 . . . . . . . . . . . . . . . . . . . 20 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → ((𝑟𝑀𝐼)(.r𝑅) 1 ) = (𝑟𝑀𝐼))
8887adantr 482 . . . . . . . . . . . . . . . . . . 19 ((((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) ∧ 𝑙 = 𝐼) → ((𝑟𝑀𝐼)(.r𝑅) 1 ) = (𝑟𝑀𝐼))
89 oveq2 7370 . . . . . . . . . . . . . . . . . . . 20 (𝑙 = 𝐼 → (𝑟𝑀𝑙) = (𝑟𝑀𝐼))
9089adantl 483 . . . . . . . . . . . . . . . . . . 19 ((((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) ∧ 𝑙 = 𝐼) → (𝑟𝑀𝑙) = (𝑟𝑀𝐼))
9188, 90eqtr4d 2780 . . . . . . . . . . . . . . . . . 18 ((((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) ∧ 𝑙 = 𝐼) → ((𝑟𝑀𝐼)(.r𝑅) 1 ) = (𝑟𝑀𝑙))
9291ifeq1da 4522 . . . . . . . . . . . . . . . . 17 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → if(𝑙 = 𝐼, ((𝑟𝑀𝐼)(.r𝑅) 1 ), ((𝑟𝑀𝐼)(.r𝑅) 0 )) = if(𝑙 = 𝐼, (𝑟𝑀𝑙), ((𝑟𝑀𝐼)(.r𝑅) 0 )))
9340, 42, 30ringrz 20019 . . . . . . . . . . . . . . . . . . 19 ((𝑅 ∈ Ring ∧ (𝑟𝑀𝐼) ∈ (Base‘𝑅)) → ((𝑟𝑀𝐼)(.r𝑅) 0 ) = 0 )
9452, 85, 93syl2anc 585 . . . . . . . . . . . . . . . . . 18 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → ((𝑟𝑀𝐼)(.r𝑅) 0 ) = 0 )
9594ifeq2d 4511 . . . . . . . . . . . . . . . . 17 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → if(𝑙 = 𝐼, (𝑟𝑀𝑙), ((𝑟𝑀𝐼)(.r𝑅) 0 )) = if(𝑙 = 𝐼, (𝑟𝑀𝑙), 0 ))
9692, 95eqtrd 2777 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → if(𝑙 = 𝐼, ((𝑟𝑀𝐼)(.r𝑅) 1 ), ((𝑟𝑀𝐼)(.r𝑅) 0 )) = if(𝑙 = 𝐼, (𝑟𝑀𝑙), 0 ))
9784, 96eqtrid 2789 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → ((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 )) = if(𝑙 = 𝐼, (𝑟𝑀𝑙), 0 ))
9883, 97oveq12d 7380 . . . . . . . . . . . . . 14 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → (if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙))(+g𝑅)((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 ))) = (if(¬ 𝑙 = 𝐼, (𝑟𝑀𝑙), 0 )(+g𝑅)if(𝑙 = 𝐼, (𝑟𝑀𝑙), 0 )))
99 ringmnd 19981 . . . . . . . . . . . . . . . 16 (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
10052, 99syl 17 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → 𝑅 ∈ Mnd)
101 id 22 . . . . . . . . . . . . . . . . 17 𝑙 = 𝐼 → ¬ 𝑙 = 𝐼)
102 imnan 401 . . . . . . . . . . . . . . . . 17 ((¬ 𝑙 = 𝐼 → ¬ 𝑙 = 𝐼) ↔ ¬ (¬ 𝑙 = 𝐼𝑙 = 𝐼))
103101, 102mpbi 229 . . . . . . . . . . . . . . . 16 ¬ (¬ 𝑙 = 𝐼𝑙 = 𝐼)
104103a1i 11 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → ¬ (¬ 𝑙 = 𝐼𝑙 = 𝐼))
10540, 30, 41mndifsplit 22001 . . . . . . . . . . . . . . 15 ((𝑅 ∈ Mnd ∧ (𝑟𝑀𝑙) ∈ (Base‘𝑅) ∧ ¬ (¬ 𝑙 = 𝐼𝑙 = 𝐼)) → if((¬ 𝑙 = 𝐼𝑙 = 𝐼), (𝑟𝑀𝑙), 0 ) = (if(¬ 𝑙 = 𝐼, (𝑟𝑀𝑙), 0 )(+g𝑅)if(𝑙 = 𝐼, (𝑟𝑀𝑙), 0 )))
106100, 65, 104, 105syl3anc 1372 . . . . . . . . . . . . . 14 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → if((¬ 𝑙 = 𝐼𝑙 = 𝐼), (𝑟𝑀𝑙), 0 ) = (if(¬ 𝑙 = 𝐼, (𝑟𝑀𝑙), 0 )(+g𝑅)if(𝑙 = 𝐼, (𝑟𝑀𝑙), 0 )))
107 pm2.1 896 . . . . . . . . . . . . . . 15 𝑙 = 𝐼𝑙 = 𝐼)
108 iftrue 4497 . . . . . . . . . . . . . . 15 ((¬ 𝑙 = 𝐼𝑙 = 𝐼) → if((¬ 𝑙 = 𝐼𝑙 = 𝐼), (𝑟𝑀𝑙), 0 ) = (𝑟𝑀𝑙))
109107, 108mp1i 13 . . . . . . . . . . . . . 14 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → if((¬ 𝑙 = 𝐼𝑙 = 𝐼), (𝑟𝑀𝑙), 0 ) = (𝑟𝑀𝑙))
11098, 106, 1093eqtr2d 2783 . . . . . . . . . . . . 13 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑙𝑁) → (if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙))(+g𝑅)((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 ))) = (𝑟𝑀𝑙))
1111103adant2 1132 . . . . . . . . . . . 12 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) → (if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙))(+g𝑅)((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 ))) = (𝑟𝑀𝑙))
112 oveq1 7369 . . . . . . . . . . . . 13 (𝑘 = 𝑟 → (𝑘𝑀𝑙) = (𝑟𝑀𝑙))
113112eqeq2d 2748 . . . . . . . . . . . 12 (𝑘 = 𝑟 → ((if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙))(+g𝑅)((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 ))) = (𝑘𝑀𝑙) ↔ (if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙))(+g𝑅)((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 ))) = (𝑟𝑀𝑙)))
114111, 113syl5ibrcom 247 . . . . . . . . . . 11 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) → (𝑘 = 𝑟 → (if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙))(+g𝑅)((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 ))) = (𝑘𝑀𝑙)))
115114imp 408 . . . . . . . . . 10 ((((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) ∧ 𝑘 = 𝑟) → (if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙))(+g𝑅)((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 ))) = (𝑘𝑀𝑙))
116 iftrue 4497 . . . . . . . . . . 11 (𝑘 = 𝑟 → if(𝑘 = 𝑟, (if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙))(+g𝑅)((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 ))), if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))) = (if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙))(+g𝑅)((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 ))))
117116adantl 483 . . . . . . . . . 10 ((((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) ∧ 𝑘 = 𝑟) → if(𝑘 = 𝑟, (if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙))(+g𝑅)((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 ))), if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))) = (if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙))(+g𝑅)((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 ))))
11879neneqd 2949 . . . . . . . . . . . . . . 15 ((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) → ¬ 𝑟 = 𝐻)
1191183ad2ant1 1134 . . . . . . . . . . . . . 14 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) → ¬ 𝑟 = 𝐻)
120 eqeq1 2741 . . . . . . . . . . . . . . 15 (𝑘 = 𝑟 → (𝑘 = 𝐻𝑟 = 𝐻))
121120notbid 318 . . . . . . . . . . . . . 14 (𝑘 = 𝑟 → (¬ 𝑘 = 𝐻 ↔ ¬ 𝑟 = 𝐻))
122119, 121syl5ibrcom 247 . . . . . . . . . . . . 13 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) → (𝑘 = 𝑟 → ¬ 𝑘 = 𝐻))
123122imp 408 . . . . . . . . . . . 12 ((((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) ∧ 𝑘 = 𝑟) → ¬ 𝑘 = 𝐻)
124123iffalsed 4502 . . . . . . . . . . 11 ((((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) ∧ 𝑘 = 𝑟) → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))
125 eldifn 4092 . . . . . . . . . . . . . . . 16 (𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛) → ¬ 𝑟𝑛)
126125ad2antll 728 . . . . . . . . . . . . . . 15 ((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) → ¬ 𝑟𝑛)
1271263ad2ant1 1134 . . . . . . . . . . . . . 14 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) → ¬ 𝑟𝑛)
128 eleq1w 2821 . . . . . . . . . . . . . . 15 (𝑘 = 𝑟 → (𝑘𝑛𝑟𝑛))
129128notbid 318 . . . . . . . . . . . . . 14 (𝑘 = 𝑟 → (¬ 𝑘𝑛 ↔ ¬ 𝑟𝑛))
130127, 129syl5ibrcom 247 . . . . . . . . . . . . 13 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) → (𝑘 = 𝑟 → ¬ 𝑘𝑛))
131130imp 408 . . . . . . . . . . . 12 ((((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) ∧ 𝑘 = 𝑟) → ¬ 𝑘𝑛)
132131iffalsed 4502 . . . . . . . . . . 11 ((((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) ∧ 𝑘 = 𝑟) → if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)) = (𝑘𝑀𝑙))
133124, 132eqtrd 2777 . . . . . . . . . 10 ((((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) ∧ 𝑘 = 𝑟) → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = (𝑘𝑀𝑙))
134115, 117, 1333eqtr4d 2787 . . . . . . . . 9 ((((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) ∧ 𝑘 = 𝑟) → if(𝑘 = 𝑟, (if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙))(+g𝑅)((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 ))), if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))) = if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))
135 iffalse 4500 . . . . . . . . . 10 𝑘 = 𝑟 → if(𝑘 = 𝑟, (if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙))(+g𝑅)((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 ))), if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))) = if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))
136135adantl 483 . . . . . . . . 9 ((((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) ∧ ¬ 𝑘 = 𝑟) → if(𝑘 = 𝑟, (if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙))(+g𝑅)((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 ))), if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))) = if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))
137134, 136pm2.61dan 812 . . . . . . . 8 (((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) ∧ 𝑘𝑁𝑙𝑁) → if(𝑘 = 𝑟, (if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙))(+g𝑅)((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 ))), if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))) = if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))
138137mpoeq3dva 7439 . . . . . . 7 ((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) → (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑟, (if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙))(+g𝑅)((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 ))), if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))) = (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))))
139138fveq2d 6851 . . . . . 6 ((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) → (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑟, (if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙))(+g𝑅)((𝑟𝑀𝐼)(.r𝑅)if(𝑙 = 𝐼, 1 , 0 ))), if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))))) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))))
140 neeq2 3008 . . . . . . . . . . . . . . 15 (𝑘 = 𝐻 → (𝑟𝑘𝑟𝐻))
141140biimparc 481 . . . . . . . . . . . . . 14 ((𝑟𝐻𝑘 = 𝐻) → 𝑟𝑘)
142141necomd 3000 . . . . . . . . . . . . 13 ((𝑟𝐻𝑘 = 𝐻) → 𝑘𝑟)
143142neneqd 2949 . . . . . . . . . . . 12 ((𝑟𝐻𝑘 = 𝐻) → ¬ 𝑘 = 𝑟)
144143iffalsed 4502 . . . . . . . . . . 11 ((𝑟𝐻𝑘 = 𝐻) → if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑙 = 𝐼, 1 , 0 )) = if(𝑙 = 𝐼, 1 , 0 ))
145 iftrue 4497 . . . . . . . . . . . . 13 (𝑘 = 𝐻 → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑙 = 𝐼, 1 , 0 ))
146145adantl 483 . . . . . . . . . . . 12 ((𝑟𝐻𝑘 = 𝐻) → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑙 = 𝐼, 1 , 0 ))
147146ifeq2d 4511 . . . . . . . . . . 11 ((𝑟𝐻𝑘 = 𝐻) → if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))) = if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑙 = 𝐼, 1 , 0 )))
148 iftrue 4497 . . . . . . . . . . . 12 (𝑘 = 𝐻 → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑙 = 𝐼, 1 , 0 ))
149148adantl 483 . . . . . . . . . . 11 ((𝑟𝐻𝑘 = 𝐻) → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑙 = 𝐼, 1 , 0 ))
150144, 147, 1493eqtr4d 2787 . . . . . . . . . 10 ((𝑟𝐻𝑘 = 𝐻) → if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))) = if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))
151112ifeq2d 4511 . . . . . . . . . . . . . 14 (𝑘 = 𝑟 → if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)) = if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)))
152 vsnid 4628 . . . . . . . . . . . . . . . . 17 𝑟 ∈ {𝑟}
153 elun2 4142 . . . . . . . . . . . . . . . . 17 (𝑟 ∈ {𝑟} → 𝑟 ∈ (𝑛 ∪ {𝑟}))
154152, 153ax-mp 5 . . . . . . . . . . . . . . . 16 𝑟 ∈ (𝑛 ∪ {𝑟})
155 eleq1w 2821 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑟 → (𝑘 ∈ (𝑛 ∪ {𝑟}) ↔ 𝑟 ∈ (𝑛 ∪ {𝑟})))
156154, 155mpbiri 258 . . . . . . . . . . . . . . 15 (𝑘 = 𝑟𝑘 ∈ (𝑛 ∪ {𝑟}))
157156iftrued 4499 . . . . . . . . . . . . . 14 (𝑘 = 𝑟 → if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)) = if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)))
158 iftrue 4497 . . . . . . . . . . . . . 14 (𝑘 = 𝑟 → if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)))
159151, 157, 1583eqtr4rd 2788 . . . . . . . . . . . . 13 (𝑘 = 𝑟 → if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))
160159adantl 483 . . . . . . . . . . . 12 (((𝑟𝐻 ∧ ¬ 𝑘 = 𝐻) ∧ 𝑘 = 𝑟) → if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))
161 iffalse 4500 . . . . . . . . . . . . . 14 𝑘 = 𝑟 → if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))
162 orc 866 . . . . . . . . . . . . . . . . 17 (𝑘𝑛 → (𝑘𝑛𝑘 = 𝑟))
163 orel2 890 . . . . . . . . . . . . . . . . 17 𝑘 = 𝑟 → ((𝑘𝑛𝑘 = 𝑟) → 𝑘𝑛))
164162, 163impbid2 225 . . . . . . . . . . . . . . . 16 𝑘 = 𝑟 → (𝑘𝑛 ↔ (𝑘𝑛𝑘 = 𝑟)))
165 elun 4113 . . . . . . . . . . . . . . . . 17 (𝑘 ∈ (𝑛 ∪ {𝑟}) ↔ (𝑘𝑛𝑘 ∈ {𝑟}))
166 velsn 4607 . . . . . . . . . . . . . . . . . 18 (𝑘 ∈ {𝑟} ↔ 𝑘 = 𝑟)
167166orbi2i 912 . . . . . . . . . . . . . . . . 17 ((𝑘𝑛𝑘 ∈ {𝑟}) ↔ (𝑘𝑛𝑘 = 𝑟))
168165, 167bitr2i 276 . . . . . . . . . . . . . . . 16 ((𝑘𝑛𝑘 = 𝑟) ↔ 𝑘 ∈ (𝑛 ∪ {𝑟}))
169164, 168bitrdi 287 . . . . . . . . . . . . . . 15 𝑘 = 𝑟 → (𝑘𝑛𝑘 ∈ (𝑛 ∪ {𝑟})))
170169ifbid 4514 . . . . . . . . . . . . . 14 𝑘 = 𝑟 → if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)) = if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))
171161, 170eqtrd 2777 . . . . . . . . . . . . 13 𝑘 = 𝑟 → if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))
172171adantl 483 . . . . . . . . . . . 12 (((𝑟𝐻 ∧ ¬ 𝑘 = 𝐻) ∧ ¬ 𝑘 = 𝑟) → if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))
173160, 172pm2.61dan 812 . . . . . . . . . . 11 ((𝑟𝐻 ∧ ¬ 𝑘 = 𝐻) → if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))
174 iffalse 4500 . . . . . . . . . . . . 13 𝑘 = 𝐻 → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))
175174ifeq2d 4511 . . . . . . . . . . . 12 𝑘 = 𝐻 → if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))) = if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))
176175adantl 483 . . . . . . . . . . 11 ((𝑟𝐻 ∧ ¬ 𝑘 = 𝐻) → if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))) = if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))
177 iffalse 4500 . . . . . . . . . . . 12 𝑘 = 𝐻 → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))
178177adantl 483 . . . . . . . . . . 11 ((𝑟𝐻 ∧ ¬ 𝑘 = 𝐻) → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))
179173, 176, 1783eqtr4d 2787 . . . . . . . . . 10 ((𝑟𝐻 ∧ ¬ 𝑘 = 𝐻) → if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))) = if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))
180150, 179pm2.61dan 812 . . . . . . . . 9 (𝑟𝐻 → if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))) = if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))
181180mpoeq3dv 7441 . . . . . . . 8 (𝑟𝐻 → (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))) = (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))))
182181fveq2d 6851 . . . . . . 7 (𝑟𝐻 → (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))))) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))))
18379, 182syl 17 . . . . . 6 ((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) → (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝑟, if(𝑙 = 𝐼, 0 , (𝑟𝑀𝑙)), if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))))) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))))
18480, 139, 1833eqtr3d 2785 . . . . 5 ((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) → (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))))
185184eqeq2d 2748 . . . 4 ((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) → ((𝐼(𝐽𝑀)𝐻) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))) ↔ (𝐼(𝐽𝑀)𝐻) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))))))
186185biimpd 228 . . 3 ((((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) ∧ (𝑛 ⊆ (𝑁 ∖ {𝐻}) ∧ 𝑟 ∈ ((𝑁 ∖ {𝐻}) ∖ 𝑛))) → ((𝐼(𝐽𝑀)𝐻) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘𝑛, if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))) → (𝐼(𝐽𝑀)𝐻) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑛 ∪ {𝑟}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))))))
187 difss 4096 . . . 4 (𝑁 ∖ {𝐻}) ⊆ 𝑁
188 ssfi 9124 . . . 4 ((𝑁 ∈ Fin ∧ (𝑁 ∖ {𝐻}) ⊆ 𝑁) → (𝑁 ∖ {𝐻}) ∈ Fin)
18947, 187, 188sylancl 587 . . 3 (((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) → (𝑁 ∖ {𝐻}) ∈ Fin)
1906, 12, 18, 24, 39, 186, 189findcard2d 9117 . 2 (((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) → (𝐼(𝐽𝑀)𝐻) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑁 ∖ {𝐻}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))))
191 iba 529 . . . . . . . 8 (𝑘 = 𝐻 → (𝑙 = 𝐼 ↔ (𝑙 = 𝐼𝑘 = 𝐻)))
192191ifbid 4514 . . . . . . 7 (𝑘 = 𝐻 → if(𝑙 = 𝐼, 1 , 0 ) = if((𝑙 = 𝐼𝑘 = 𝐻), 1 , 0 ))
193 iftrue 4497 . . . . . . 7 (𝑘 = 𝐻 → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑁 ∖ {𝐻}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑙 = 𝐼, 1 , 0 ))
194 iftrue 4497 . . . . . . . 8 ((𝑘 = 𝐻𝑙 = 𝐼) → if((𝑘 = 𝐻𝑙 = 𝐼), if((𝑙 = 𝐼𝑘 = 𝐻), 1 , 0 ), (𝑘𝑀𝑙)) = if((𝑙 = 𝐼𝑘 = 𝐻), 1 , 0 ))
195194orcs 874 . . . . . . 7 (𝑘 = 𝐻 → if((𝑘 = 𝐻𝑙 = 𝐼), if((𝑙 = 𝐼𝑘 = 𝐻), 1 , 0 ), (𝑘𝑀𝑙)) = if((𝑙 = 𝐼𝑘 = 𝐻), 1 , 0 ))
196192, 193, 1953eqtr4d 2787 . . . . . 6 (𝑘 = 𝐻 → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑁 ∖ {𝐻}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if((𝑘 = 𝐻𝑙 = 𝐼), if((𝑙 = 𝐼𝑘 = 𝐻), 1 , 0 ), (𝑘𝑀𝑙)))
197196adantl 483 . . . . 5 (((𝑘𝑁𝑙𝑁) ∧ 𝑘 = 𝐻) → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑁 ∖ {𝐻}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if((𝑘 = 𝐻𝑙 = 𝐼), if((𝑙 = 𝐼𝑘 = 𝐻), 1 , 0 ), (𝑘𝑀𝑙)))
198 iffalse 4500 . . . . . . 7 𝑘 = 𝐻 → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑁 ∖ {𝐻}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑘 ∈ (𝑁 ∖ {𝐻}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))
199198adantl 483 . . . . . 6 (((𝑘𝑁𝑙𝑁) ∧ ¬ 𝑘 = 𝐻) → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑁 ∖ {𝐻}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if(𝑘 ∈ (𝑁 ∖ {𝐻}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))
200 neqne 2952 . . . . . . . . . 10 𝑘 = 𝐻𝑘𝐻)
201200anim2i 618 . . . . . . . . 9 ((𝑘𝑁 ∧ ¬ 𝑘 = 𝐻) → (𝑘𝑁𝑘𝐻))
202201adantlr 714 . . . . . . . 8 (((𝑘𝑁𝑙𝑁) ∧ ¬ 𝑘 = 𝐻) → (𝑘𝑁𝑘𝐻))
203 eldifsn 4752 . . . . . . . 8 (𝑘 ∈ (𝑁 ∖ {𝐻}) ↔ (𝑘𝑁𝑘𝐻))
204202, 203sylibr 233 . . . . . . 7 (((𝑘𝑁𝑙𝑁) ∧ ¬ 𝑘 = 𝐻) → 𝑘 ∈ (𝑁 ∖ {𝐻}))
205204iftrued 4499 . . . . . 6 (((𝑘𝑁𝑙𝑁) ∧ ¬ 𝑘 = 𝐻) → if(𝑘 ∈ (𝑁 ∖ {𝐻}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)) = if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)))
206 biorf 936 . . . . . . . 8 𝑘 = 𝐻 → (𝑙 = 𝐼 ↔ (𝑘 = 𝐻𝑙 = 𝐼)))
207 id 22 . . . . . . . . . . 11 𝑘 = 𝐻 → ¬ 𝑘 = 𝐻)
208207intnand 490 . . . . . . . . . 10 𝑘 = 𝐻 → ¬ (𝑙 = 𝐼𝑘 = 𝐻))
209208iffalsed 4502 . . . . . . . . 9 𝑘 = 𝐻 → if((𝑙 = 𝐼𝑘 = 𝐻), 1 , 0 ) = 0 )
210209eqcomd 2743 . . . . . . . 8 𝑘 = 𝐻0 = if((𝑙 = 𝐼𝑘 = 𝐻), 1 , 0 ))
211206, 210ifbieq1d 4515 . . . . . . 7 𝑘 = 𝐻 → if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)) = if((𝑘 = 𝐻𝑙 = 𝐼), if((𝑙 = 𝐼𝑘 = 𝐻), 1 , 0 ), (𝑘𝑀𝑙)))
212211adantl 483 . . . . . 6 (((𝑘𝑁𝑙𝑁) ∧ ¬ 𝑘 = 𝐻) → if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)) = if((𝑘 = 𝐻𝑙 = 𝐼), if((𝑙 = 𝐼𝑘 = 𝐻), 1 , 0 ), (𝑘𝑀𝑙)))
213199, 205, 2123eqtrd 2781 . . . . 5 (((𝑘𝑁𝑙𝑁) ∧ ¬ 𝑘 = 𝐻) → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑁 ∖ {𝐻}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if((𝑘 = 𝐻𝑙 = 𝐼), if((𝑙 = 𝐼𝑘 = 𝐻), 1 , 0 ), (𝑘𝑀𝑙)))
214197, 213pm2.61dan 812 . . . 4 ((𝑘𝑁𝑙𝑁) → if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑁 ∖ {𝐻}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))) = if((𝑘 = 𝐻𝑙 = 𝐼), if((𝑙 = 𝐼𝑘 = 𝐻), 1 , 0 ), (𝑘𝑀𝑙)))
215214mpoeq3ia 7440 . . 3 (𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑁 ∖ {𝐻}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙)))) = (𝑘𝑁, 𝑙𝑁 ↦ if((𝑘 = 𝐻𝑙 = 𝐼), if((𝑙 = 𝐼𝑘 = 𝐻), 1 , 0 ), (𝑘𝑀𝑙)))
216215fveq2i 6850 . 2 (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if(𝑘 = 𝐻, if(𝑙 = 𝐼, 1 , 0 ), if(𝑘 ∈ (𝑁 ∖ {𝐻}), if(𝑙 = 𝐼, 0 , (𝑘𝑀𝑙)), (𝑘𝑀𝑙))))) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if((𝑘 = 𝐻𝑙 = 𝐼), if((𝑙 = 𝐼𝑘 = 𝐻), 1 , 0 ), (𝑘𝑀𝑙))))
217190, 216eqtrdi 2793 1 (((𝑅 ∈ CRing ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐻𝑁) → (𝐼(𝐽𝑀)𝐻) = (𝐷‘(𝑘𝑁, 𝑙𝑁 ↦ if((𝑘 = 𝐻𝑙 = 𝐼), if((𝑙 = 𝐼𝑘 = 𝐻), 1 , 0 ), (𝑘𝑀𝑙)))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 397  wo 846  w3a 1088   = wceq 1542  wcel 2107  wne 2944  Vcvv 3448  cdif 3912  cun 3913  wss 3915  c0 4287  ifcif 4491  {csn 4591   × cxp 5636  wf 6497  cfv 6501  (class class class)co 7362  cmpo 7364  m cmap 8772  Fincfn 8890  Basecbs 17090  +gcplusg 17140  .rcmulr 17141  0gc0g 17328  Mndcmnd 18563  1rcur 19920  Ringcrg 19971  CRingccrg 19972   Mat cmat 21770   maDet cmdat 21949   maAdju cmadu 21997
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2708  ax-rep 5247  ax-sep 5261  ax-nul 5268  ax-pow 5325  ax-pr 5389  ax-un 7677  ax-cnex 11114  ax-resscn 11115  ax-1cn 11116  ax-icn 11117  ax-addcl 11118  ax-addrcl 11119  ax-mulcl 11120  ax-mulrcl 11121  ax-mulcom 11122  ax-addass 11123  ax-mulass 11124  ax-distr 11125  ax-i2m1 11126  ax-1ne0 11127  ax-1rid 11128  ax-rnegex 11129  ax-rrecex 11130  ax-cnre 11131  ax-pre-lttri 11132  ax-pre-lttrn 11133  ax-pre-ltadd 11134  ax-pre-mulgt0 11135  ax-addf 11137  ax-mulf 11138
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-xor 1511  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2890  df-ne 2945  df-nel 3051  df-ral 3066  df-rex 3075  df-rmo 3356  df-reu 3357  df-rab 3411  df-v 3450  df-sbc 3745  df-csb 3861  df-dif 3918  df-un 3920  df-in 3922  df-ss 3932  df-pss 3934  df-nul 4288  df-if 4492  df-pw 4567  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-ot 4600  df-uni 4871  df-int 4913  df-iun 4961  df-iin 4962  df-br 5111  df-opab 5173  df-mpt 5194  df-tr 5228  df-id 5536  df-eprel 5542  df-po 5550  df-so 5551  df-fr 5593  df-se 5594  df-we 5595  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6258  df-ord 6325  df-on 6326  df-lim 6327  df-suc 6328  df-iota 6453  df-fun 6503  df-fn 6504  df-f 6505  df-f1 6506  df-fo 6507  df-f1o 6508  df-fv 6509  df-isom 6510  df-riota 7318  df-ov 7365  df-oprab 7366  df-mpo 7367  df-of 7622  df-om 7808  df-1st 7926  df-2nd 7927  df-supp 8098  df-tpos 8162  df-frecs 8217  df-wrecs 8248  df-recs 8322  df-rdg 8361  df-1o 8417  df-2o 8418  df-er 8655  df-map 8774  df-pm 8775  df-ixp 8843  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-fsupp 9313  df-sup 9385  df-oi 9453  df-card 9882  df-pnf 11198  df-mnf 11199  df-xr 11200  df-ltxr 11201  df-le 11202  df-sub 11394  df-neg 11395  df-div 11820  df-nn 12161  df-2 12223  df-3 12224  df-4 12225  df-5 12226  df-6 12227  df-7 12228  df-8 12229  df-9 12230  df-n0 12421  df-xnn0 12493  df-z 12507  df-dec 12626  df-uz 12771  df-rp 12923  df-fz 13432  df-fzo 13575  df-seq 13914  df-exp 13975  df-hash 14238  df-word 14410  df-lsw 14458  df-concat 14466  df-s1 14491  df-substr 14536  df-pfx 14566  df-splice 14645  df-reverse 14654  df-s2 14744  df-struct 17026  df-sets 17043  df-slot 17061  df-ndx 17073  df-base 17091  df-ress 17120  df-plusg 17153  df-mulr 17154  df-starv 17155  df-sca 17156  df-vsca 17157  df-ip 17158  df-tset 17159  df-ple 17160  df-ds 17162  df-unif 17163  df-hom 17164  df-cco 17165  df-0g 17330  df-gsum 17331  df-prds 17336  df-pws 17338  df-mre 17473  df-mrc 17474  df-acs 17476  df-mgm 18504  df-sgrp 18553  df-mnd 18564  df-mhm 18608  df-submnd 18609  df-efmnd 18686  df-grp 18758  df-minusg 18759  df-mulg 18880  df-subg 18932  df-ghm 19013  df-gim 19056  df-cntz 19104  df-oppg 19131  df-symg 19156  df-pmtr 19231  df-psgn 19280  df-evpm 19281  df-cmn 19571  df-abl 19572  df-mgp 19904  df-ur 19921  df-ring 19973  df-cring 19974  df-oppr 20056  df-dvdsr 20077  df-unit 20078  df-invr 20108  df-dvr 20119  df-rnghom 20155  df-drng 20201  df-subrg 20236  df-sra 20649  df-rgmod 20650  df-cnfld 20813  df-zring 20886  df-zrh 20920  df-dsmm 21154  df-frlm 21169  df-mat 21771  df-mdet 21950  df-madu 21999
This theorem is referenced by:  madutpos  22007
  Copyright terms: Public domain W3C validator