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

Theorem matunitlindflem1 22902
Description: One direction of matunitlindf 22904. (Contributed by Brendan Leahy, 2-Jun-2021.)
Assertion
Ref Expression
matunitlindflem1 (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (¬ curry 𝑀 LIndF (𝑅 freeLMod 𝐼) → ((𝐼 maDet 𝑅)‘𝑀) = (0g𝑅)))

Proof of Theorem matunitlindflem1
Dummy variables 𝑥 𝑓 𝑦 𝑧 𝑖 𝑗 𝑘 𝑛 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 isfld 20904 . . . . 5 (𝑅 ∈ Field ↔ (𝑅 ∈ DivRing ∧ 𝑅 ∈ CRing))
21simplbi 502 . . . 4 (𝑅 ∈ Field → 𝑅 ∈ DivRing)
3 drngring 20898 . . . 4 (𝑅 ∈ DivRing → 𝑅 ∈ Ring)
42, 3syl 18 . . 3 (𝑅 ∈ Field → 𝑅 ∈ Ring)
5 eqid 2760 . . . . . . . . 9 (𝑅 freeLMod 𝐼) = (𝑅 freeLMod 𝐼)
65frlmlmod 21963 . . . . . . . 8 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → (𝑅 freeLMod 𝐼) ∈ LMod)
76adantlr 728 . . . . . . 7 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (𝑅 freeLMod 𝐼) ∈ LMod)
8 simpr 490 . . . . . . 7 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → 𝐼 ∈ (Fin ∖ {∅}))
9 eldifi 4078 . . . . . . . . . 10 (𝐼 ∈ (Fin ∖ {∅}) → 𝐼 ∈ Fin)
10 eqid 2760 . . . . . . . . . . 11 (Base‘𝑅) = (Base‘𝑅)
115, 10frlmfibas 21976 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) → ((Base‘𝑅) ↑m 𝐼) = (Base‘(𝑅 freeLMod 𝐼)))
129, 11sylan2 605 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → ((Base‘𝑅) ↑m 𝐼) = (Base‘(𝑅 freeLMod 𝐼)))
13 fvex 6892 . . . . . . . . . 10 (Base‘𝑅) ∈ V
14 curf 8870 . . . . . . . . . 10 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ (Fin ∖ {∅}) ∧ (Base‘𝑅) ∈ V) → curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼))
1513, 14mp3an3 1479 . . . . . . . . 9 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ (Fin ∖ {∅})) → curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼))
16 feq3 6683 . . . . . . . . . 10 (((Base‘𝑅) ↑m 𝐼) = (Base‘(𝑅 freeLMod 𝐼)) → (curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼) ↔ curry 𝑀:𝐼⟶(Base‘(𝑅 freeLMod 𝐼))))
1716biimpa 482 . . . . . . . . 9 ((((Base‘𝑅) ↑m 𝐼) = (Base‘(𝑅 freeLMod 𝐼)) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) → curry 𝑀:𝐼⟶(Base‘(𝑅 freeLMod 𝐼)))
1812, 15, 17syl2an 608 . . . . . . . 8 (((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ (Fin ∖ {∅}))) → curry 𝑀:𝐼⟶(Base‘(𝑅 freeLMod 𝐼)))
1918anandirs 692 . . . . . . 7 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → curry 𝑀:𝐼⟶(Base‘(𝑅 freeLMod 𝐼)))
20 eqid 2760 . . . . . . . 8 (Base‘(𝑅 freeLMod 𝐼)) = (Base‘(𝑅 freeLMod 𝐼))
21 eqid 2760 . . . . . . . 8 (Scalar‘(𝑅 freeLMod 𝐼)) = (Scalar‘(𝑅 freeLMod 𝐼))
22 eqid 2760 . . . . . . . 8 ( ·𝑠 ‘(𝑅 freeLMod 𝐼)) = ( ·𝑠 ‘(𝑅 freeLMod 𝐼))
23 eqid 2760 . . . . . . . 8 (0g‘(𝑅 freeLMod 𝐼)) = (0g‘(𝑅 freeLMod 𝐼))
24 eqid 2760 . . . . . . . 8 (0g‘(Scalar‘(𝑅 freeLMod 𝐼))) = (0g‘(Scalar‘(𝑅 freeLMod 𝐼)))
25 eqid 2760 . . . . . . . 8 (Base‘((Scalar‘(𝑅 freeLMod 𝐼)) freeLMod 𝐼)) = (Base‘((Scalar‘(𝑅 freeLMod 𝐼)) freeLMod 𝐼))
2620, 21, 22, 23, 24, 25islindf4 22052 . . . . . . 7 (((𝑅 freeLMod 𝐼) ∈ LMod ∧ 𝐼 ∈ (Fin ∖ {∅}) ∧ curry 𝑀:𝐼⟶(Base‘(𝑅 freeLMod 𝐼))) → (curry 𝑀 LIndF (𝑅 freeLMod 𝐼) ↔ ∀𝑓 ∈ (Base‘((Scalar‘(𝑅 freeLMod 𝐼)) freeLMod 𝐼))(((𝑅 freeLMod 𝐼) Σg (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀)) = (0g‘(𝑅 freeLMod 𝐼)) → 𝑓 = (𝐼 × {(0g‘(Scalar‘(𝑅 freeLMod 𝐼)))}))))
277, 8, 19, 26syl3anc 1398 . . . . . 6 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (curry 𝑀 LIndF (𝑅 freeLMod 𝐼) ↔ ∀𝑓 ∈ (Base‘((Scalar‘(𝑅 freeLMod 𝐼)) freeLMod 𝐼))(((𝑅 freeLMod 𝐼) Σg (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀)) = (0g‘(𝑅 freeLMod 𝐼)) → 𝑓 = (𝐼 × {(0g‘(Scalar‘(𝑅 freeLMod 𝐼)))}))))
285frlmsca 21967 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → 𝑅 = (Scalar‘(𝑅 freeLMod 𝐼)))
2928fvoveq1d 7436 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → (Base‘(𝑅 freeLMod 𝐼)) = (Base‘((Scalar‘(𝑅 freeLMod 𝐼)) freeLMod 𝐼)))
3012, 29eqtrd 2795 . . . . . . . 8 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → ((Base‘𝑅) ↑m 𝐼) = (Base‘((Scalar‘(𝑅 freeLMod 𝐼)) freeLMod 𝐼)))
3130adantlr 728 . . . . . . 7 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → ((Base‘𝑅) ↑m 𝐼) = (Base‘((Scalar‘(𝑅 freeLMod 𝐼)) freeLMod 𝐼)))
32 elmapi 8849 . . . . . . . . . 10 (𝑓 ∈ ((Base‘𝑅) ↑m 𝐼) → 𝑓:𝐼⟶(Base‘𝑅))
33 ffn 6703 . . . . . . . . . . . . . . 15 (𝑓:𝐼⟶(Base‘𝑅) → 𝑓 Fn 𝐼)
3433adantl 487 . . . . . . . . . . . . . 14 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → 𝑓 Fn 𝐼)
3519ffnd 6704 . . . . . . . . . . . . . . 15 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → curry 𝑀 Fn 𝐼)
3635adantr 486 . . . . . . . . . . . . . 14 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → curry 𝑀 Fn 𝐼)
37 simplr 781 . . . . . . . . . . . . . 14 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → 𝐼 ∈ (Fin ∖ {∅}))
38 inidm 4172 . . . . . . . . . . . . . 14 (𝐼𝐼) = 𝐼
39 eqidd 2761 . . . . . . . . . . . . . 14 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (𝑓𝑛) = (𝑓𝑛))
40 eqidd 2761 . . . . . . . . . . . . . 14 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (curry 𝑀𝑛) = (curry 𝑀𝑛))
4134, 36, 37, 37, 38, 39, 40offval 7688 . . . . . . . . . . . . 13 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀) = (𝑛𝐼 ↦ ((𝑓𝑛)( ·𝑠 ‘(𝑅 freeLMod 𝐼))(curry 𝑀𝑛))))
42 simpllr 788 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → 𝐼 ∈ (Fin ∖ {∅}))
43 ffvelcdm 7075 . . . . . . . . . . . . . . . . 17 ((𝑓:𝐼⟶(Base‘𝑅) ∧ 𝑛𝐼) → (𝑓𝑛) ∈ (Base‘𝑅))
4443adantll 727 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (𝑓𝑛) ∈ (Base‘𝑅))
4519ffvelcdmda 7078 . . . . . . . . . . . . . . . . 17 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑛𝐼) → (curry 𝑀𝑛) ∈ (Base‘(𝑅 freeLMod 𝐼)))
4645adantlr 728 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (curry 𝑀𝑛) ∈ (Base‘(𝑅 freeLMod 𝐼)))
47 eqid 2760 . . . . . . . . . . . . . . . 16 (.r𝑅) = (.r𝑅)
485, 20, 10, 42, 44, 46, 22, 47frlmvscafval 21980 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → ((𝑓𝑛)( ·𝑠 ‘(𝑅 freeLMod 𝐼))(curry 𝑀𝑛)) = ((𝐼 × {(𝑓𝑛)}) ∘f (.r𝑅)(curry 𝑀𝑛)))
49 fvex 6892 . . . . . . . . . . . . . . . . 17 (𝑓𝑛) ∈ V
50 fnconstg 6764 . . . . . . . . . . . . . . . . 17 ((𝑓𝑛) ∈ V → (𝐼 × {(𝑓𝑛)}) Fn 𝐼)
5149, 50mp1i 14 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (𝐼 × {(𝑓𝑛)}) Fn 𝐼)
5215ffvelcdmda 7078 . . . . . . . . . . . . . . . . . . 19 (((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑛𝐼) → (curry 𝑀𝑛) ∈ ((Base‘𝑅) ↑m 𝐼))
53 elmapfn 8867 . . . . . . . . . . . . . . . . . . 19 ((curry 𝑀𝑛) ∈ ((Base‘𝑅) ↑m 𝐼) → (curry 𝑀𝑛) Fn 𝐼)
5452, 53syl 18 . . . . . . . . . . . . . . . . . 18 (((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑛𝐼) → (curry 𝑀𝑛) Fn 𝐼)
5554adantlll 731 . . . . . . . . . . . . . . . . 17 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑛𝐼) → (curry 𝑀𝑛) Fn 𝐼)
5655adantlr 728 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (curry 𝑀𝑛) Fn 𝐼)
5749fvconst2 7204 . . . . . . . . . . . . . . . . 17 (𝑘𝐼 → ((𝐼 × {(𝑓𝑛)})‘𝑘) = (𝑓𝑛))
5857adantl 487 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) ∧ 𝑘𝐼) → ((𝐼 × {(𝑓𝑛)})‘𝑘) = (𝑓𝑛))
59 ffn 6703 . . . . . . . . . . . . . . . . . . . 20 (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) → 𝑀 Fn (𝐼 × 𝐼))
6059anim2i 629 . . . . . . . . . . . . . . . . . . 19 ((𝐼 ∈ (Fin ∖ {∅}) ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) → (𝐼 ∈ (Fin ∖ {∅}) ∧ 𝑀 Fn (𝐼 × 𝐼)))
6160ancoms 464 . . . . . . . . . . . . . . . . . 18 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (𝐼 ∈ (Fin ∖ {∅}) ∧ 𝑀 Fn (𝐼 × 𝐼)))
6261ad4ant23 766 . . . . . . . . . . . . . . . . 17 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (𝐼 ∈ (Fin ∖ {∅}) ∧ 𝑀 Fn (𝐼 × 𝐼)))
63 curfv 8872 . . . . . . . . . . . . . . . . . . . 20 (((𝑀 Fn (𝐼 × 𝐼) ∧ 𝑛𝐼𝑘𝐼) ∧ 𝐼 ∈ (Fin ∖ {∅})) → ((curry 𝑀𝑛)‘𝑘) = (𝑛𝑀𝑘))
64633exp1 1371 . . . . . . . . . . . . . . . . . . 19 (𝑀 Fn (𝐼 × 𝐼) → (𝑛𝐼 → (𝑘𝐼 → (𝐼 ∈ (Fin ∖ {∅}) → ((curry 𝑀𝑛)‘𝑘) = (𝑛𝑀𝑘)))))
6564com4r 95 . . . . . . . . . . . . . . . . . 18 (𝐼 ∈ (Fin ∖ {∅}) → (𝑀 Fn (𝐼 × 𝐼) → (𝑛𝐼 → (𝑘𝐼 → ((curry 𝑀𝑛)‘𝑘) = (𝑛𝑀𝑘)))))
6665imp41 431 . . . . . . . . . . . . . . . . 17 ((((𝐼 ∈ (Fin ∖ {∅}) ∧ 𝑀 Fn (𝐼 × 𝐼)) ∧ 𝑛𝐼) ∧ 𝑘𝐼) → ((curry 𝑀𝑛)‘𝑘) = (𝑛𝑀𝑘))
6762, 66sylanl1 693 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) ∧ 𝑘𝐼) → ((curry 𝑀𝑛)‘𝑘) = (𝑛𝑀𝑘))
6851, 56, 42, 42, 38, 58, 67offval 7688 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → ((𝐼 × {(𝑓𝑛)}) ∘f (.r𝑅)(curry 𝑀𝑛)) = (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))
6948, 68eqtrd 2795 . . . . . . . . . . . . . 14 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → ((𝑓𝑛)( ·𝑠 ‘(𝑅 freeLMod 𝐼))(curry 𝑀𝑛)) = (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))
7069mpteq2dva 5198 . . . . . . . . . . . . 13 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (𝑛𝐼 ↦ ((𝑓𝑛)( ·𝑠 ‘(𝑅 freeLMod 𝐼))(curry 𝑀𝑛))) = (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))
7141, 70eqtrd 2795 . . . . . . . . . . . 12 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀) = (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))
7271oveq2d 7430 . . . . . . . . . . 11 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → ((𝑅 freeLMod 𝐼) Σg (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀)) = ((𝑅 freeLMod 𝐼) Σg (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))))
73 simplll 787 . . . . . . . . . . . 12 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → 𝑅 ∈ Ring)
74 simp-4l 795 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) ∧ 𝑘𝐼) → 𝑅 ∈ Ring)
7543ad4ant23 766 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) ∧ 𝑘𝐼) → (𝑓𝑛) ∈ (Base‘𝑅))
76 fovcdm 7585 . . . . . . . . . . . . . . . . 17 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑛𝐼𝑘𝐼) → (𝑛𝑀𝑘) ∈ (Base‘𝑅))
7776ad5ant245 1384 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) ∧ 𝑘𝐼) → (𝑛𝑀𝑘) ∈ (Base‘𝑅))
7810, 47ringcl 20390 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ Ring ∧ (𝑓𝑛) ∈ (Base‘𝑅) ∧ (𝑛𝑀𝑘) ∈ (Base‘𝑅)) → ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)) ∈ (Base‘𝑅))
7974, 75, 77, 78syl3anc 1398 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) ∧ 𝑘𝐼) → ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)) ∈ (Base‘𝑅))
8079fmpttd 7109 . . . . . . . . . . . . . 14 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))):𝐼⟶(Base‘𝑅))
8180adantllr 732 . . . . . . . . . . . . 13 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))):𝐼⟶(Base‘𝑅))
82 elmapg 8839 . . . . . . . . . . . . . . . . 17 (((Base‘𝑅) ∈ V ∧ 𝐼 ∈ (Fin ∖ {∅})) → ((𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ ((Base‘𝑅) ↑m 𝐼) ↔ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))):𝐼⟶(Base‘𝑅)))
8313, 82mpan 703 . . . . . . . . . . . . . . . 16 (𝐼 ∈ (Fin ∖ {∅}) → ((𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ ((Base‘𝑅) ↑m 𝐼) ↔ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))):𝐼⟶(Base‘𝑅)))
8483adantl 487 . . . . . . . . . . . . . . 15 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → ((𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ ((Base‘𝑅) ↑m 𝐼) ↔ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))):𝐼⟶(Base‘𝑅)))
8512eleq2d 2846 . . . . . . . . . . . . . . 15 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → ((𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ ((Base‘𝑅) ↑m 𝐼) ↔ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘(𝑅 freeLMod 𝐼))))
8684, 85bitr3d 284 . . . . . . . . . . . . . 14 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → ((𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))):𝐼⟶(Base‘𝑅) ↔ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘(𝑅 freeLMod 𝐼))))
8786ad5ant13 769 . . . . . . . . . . . . 13 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → ((𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))):𝐼⟶(Base‘𝑅) ↔ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘(𝑅 freeLMod 𝐼))))
8881, 87mpbid 235 . . . . . . . . . . . 12 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘(𝑅 freeLMod 𝐼)))
89 mptexg 7221 . . . . . . . . . . . . . . . 16 (𝐼 ∈ (Fin ∖ {∅}) → (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ V)
9089ralrimivw 3158 . . . . . . . . . . . . . . 15 (𝐼 ∈ (Fin ∖ {∅}) → ∀𝑛𝐼 (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ V)
91 eqid 2760 . . . . . . . . . . . . . . . 16 (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))
9291fnmpt 6673 . . . . . . . . . . . . . . 15 (∀𝑛𝐼 (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ V → (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) Fn 𝐼)
9390, 92syl 18 . . . . . . . . . . . . . 14 (𝐼 ∈ (Fin ∖ {∅}) → (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) Fn 𝐼)
94 fvexd 6894 . . . . . . . . . . . . . 14 (𝐼 ∈ (Fin ∖ {∅}) → (0g‘(𝑅 freeLMod 𝐼)) ∈ V)
9593, 9, 94fndmfifsupp 9349 . . . . . . . . . . . . 13 (𝐼 ∈ (Fin ∖ {∅}) → (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) finSupp (0g‘(𝑅 freeLMod 𝐼)))
9695ad2antlr 740 . . . . . . . . . . . 12 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) finSupp (0g‘(𝑅 freeLMod 𝐼)))
975, 20, 23, 37, 37, 73, 88, 96frlmgsum 21986 . . . . . . . . . . 11 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → ((𝑅 freeLMod 𝐼) Σg (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))))
9872, 97eqtr2d 2796 . . . . . . . . . 10 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = ((𝑅 freeLMod 𝐼) Σg (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀)))
9932, 98sylan2 605 . . . . . . . . 9 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)) → (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = ((𝑅 freeLMod 𝐼) Σg (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀)))
100 eqid 2760 . . . . . . . . . . 11 (0g𝑅) = (0g𝑅)
1015, 100frlm0 21968 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → (𝐼 × {(0g𝑅)}) = (0g‘(𝑅 freeLMod 𝐼)))
102101ad4ant13 764 . . . . . . . . 9 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)) → (𝐼 × {(0g𝑅)}) = (0g‘(𝑅 freeLMod 𝐼)))
10399, 102eqeq12d 2776 . . . . . . . 8 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)) → ((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ↔ ((𝑅 freeLMod 𝐼) Σg (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀)) = (0g‘(𝑅 freeLMod 𝐼))))
10428fveq2d 6883 . . . . . . . . . . . 12 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → (0g𝑅) = (0g‘(Scalar‘(𝑅 freeLMod 𝐼))))
105104sneqd 4596 . . . . . . . . . . 11 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → {(0g𝑅)} = {(0g‘(Scalar‘(𝑅 freeLMod 𝐼)))})
106105xpeq2d 5685 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → (𝐼 × {(0g𝑅)}) = (𝐼 × {(0g‘(Scalar‘(𝑅 freeLMod 𝐼)))}))
107106eqeq2d 2771 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → (𝑓 = (𝐼 × {(0g𝑅)}) ↔ 𝑓 = (𝐼 × {(0g‘(Scalar‘(𝑅 freeLMod 𝐼)))})))
108107ad4ant13 764 . . . . . . . 8 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)) → (𝑓 = (𝐼 × {(0g𝑅)}) ↔ 𝑓 = (𝐼 × {(0g‘(Scalar‘(𝑅 freeLMod 𝐼)))})))
109103, 108imbi12d 347 . . . . . . 7 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)) → (((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) → 𝑓 = (𝐼 × {(0g𝑅)})) ↔ (((𝑅 freeLMod 𝐼) Σg (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀)) = (0g‘(𝑅 freeLMod 𝐼)) → 𝑓 = (𝐼 × {(0g‘(Scalar‘(𝑅 freeLMod 𝐼)))}))))
11031, 109raleqbidva 3325 . . . . . 6 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (∀𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) → 𝑓 = (𝐼 × {(0g𝑅)})) ↔ ∀𝑓 ∈ (Base‘((Scalar‘(𝑅 freeLMod 𝐼)) freeLMod 𝐼))(((𝑅 freeLMod 𝐼) Σg (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀)) = (0g‘(𝑅 freeLMod 𝐼)) → 𝑓 = (𝐼 × {(0g‘(Scalar‘(𝑅 freeLMod 𝐼)))}))))
11127, 110bitr4d 285 . . . . 5 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (curry 𝑀 LIndF (𝑅 freeLMod 𝐼) ↔ ∀𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) → 𝑓 = (𝐼 × {(0g𝑅)}))))
112111notbid 321 . . . 4 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (¬ curry 𝑀 LIndF (𝑅 freeLMod 𝐼) ↔ ¬ ∀𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) → 𝑓 = (𝐼 × {(0g𝑅)}))))
113 rexanali 3116 . . . 4 (∃𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ∧ ¬ 𝑓 = (𝐼 × {(0g𝑅)})) ↔ ¬ ∀𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) → 𝑓 = (𝐼 × {(0g𝑅)})))
114112, 113bitr4di 292 . . 3 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (¬ curry 𝑀 LIndF (𝑅 freeLMod 𝐼) ↔ ∃𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ∧ ¬ 𝑓 = (𝐼 × {(0g𝑅)}))))
1154, 114sylanl1 693 . 2 (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (¬ curry 𝑀 LIndF (𝑅 freeLMod 𝐼) ↔ ∃𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ∧ ¬ 𝑓 = (𝐼 × {(0g𝑅)}))))
116 fconstfv 7212 . . . . . . . . . . . 12 (𝑓:𝐼⟶{(0g𝑅)} ↔ (𝑓 Fn 𝐼 ∧ ∀𝑖𝐼 (𝑓𝑖) = (0g𝑅)))
117 fvex 6892 . . . . . . . . . . . . 13 (0g𝑅) ∈ V
118117fconst2 7205 . . . . . . . . . . . 12 (𝑓:𝐼⟶{(0g𝑅)} ↔ 𝑓 = (𝐼 × {(0g𝑅)}))
119116, 118sylbb1 240 . . . . . . . . . . 11 ((𝑓 Fn 𝐼 ∧ ∀𝑖𝐼 (𝑓𝑖) = (0g𝑅)) → 𝑓 = (𝐼 × {(0g𝑅)}))
120119ex 418 . . . . . . . . . 10 (𝑓 Fn 𝐼 → (∀𝑖𝐼 (𝑓𝑖) = (0g𝑅) → 𝑓 = (𝐼 × {(0g𝑅)})))
121120con3d 153 . . . . . . . . 9 (𝑓 Fn 𝐼 → (¬ 𝑓 = (𝐼 × {(0g𝑅)}) → ¬ ∀𝑖𝐼 (𝑓𝑖) = (0g𝑅)))
122 df-ne 2956 . . . . . . . . . . 11 ((𝑓𝑖) ≠ (0g𝑅) ↔ ¬ (𝑓𝑖) = (0g𝑅))
123122rexbii 3109 . . . . . . . . . 10 (∃𝑖𝐼 (𝑓𝑖) ≠ (0g𝑅) ↔ ∃𝑖𝐼 ¬ (𝑓𝑖) = (0g𝑅))
124 rexnal 3114 . . . . . . . . . 10 (∃𝑖𝐼 ¬ (𝑓𝑖) = (0g𝑅) ↔ ¬ ∀𝑖𝐼 (𝑓𝑖) = (0g𝑅))
125123, 124bitri 278 . . . . . . . . 9 (∃𝑖𝐼 (𝑓𝑖) ≠ (0g𝑅) ↔ ¬ ∀𝑖𝐼 (𝑓𝑖) = (0g𝑅))
126121, 125imbitrrdi 255 . . . . . . . 8 (𝑓 Fn 𝐼 → (¬ 𝑓 = (𝐼 × {(0g𝑅)}) → ∃𝑖𝐼 (𝑓𝑖) ≠ (0g𝑅)))
12733, 126syl 18 . . . . . . 7 (𝑓:𝐼⟶(Base‘𝑅) → (¬ 𝑓 = (𝐼 × {(0g𝑅)}) → ∃𝑖𝐼 (𝑓𝑖) ≠ (0g𝑅)))
128127adantl 487 . . . . . 6 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (¬ 𝑓 = (𝐼 × {(0g𝑅)}) → ∃𝑖𝐼 (𝑓𝑖) ≠ (0g𝑅)))
129 neldifsn 4755 . . . . . . . . . . 11 ¬ 𝑖 ∈ (𝐼 ∖ {𝑖})
130 difss 4083 . . . . . . . . . . 11 (𝐼 ∖ {𝑖}) ⊆ 𝐼
131 diffi 9170 . . . . . . . . . . . . 13 (𝐼 ∈ Fin → (𝐼 ∖ {𝑖}) ∈ Fin)
132131ad4antlr 746 . . . . . . . . . . . 12 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝐼 ∖ {𝑖}) ∧ (𝐼 ∖ {𝑖}) ⊆ 𝐼)) → (𝐼 ∖ {𝑖}) ∈ Fin)
133 eleq2 2849 . . . . . . . . . . . . . . . . 17 (𝑦 = ∅ → (𝑖𝑦𝑖 ∈ ∅))
134133notbid 321 . . . . . . . . . . . . . . . 16 (𝑦 = ∅ → (¬ 𝑖𝑦 ↔ ¬ 𝑖 ∈ ∅))
135 sseq1 3956 . . . . . . . . . . . . . . . 16 (𝑦 = ∅ → (𝑦𝐼 ↔ ∅ ⊆ 𝐼))
136134, 135anbi12d 644 . . . . . . . . . . . . . . 15 (𝑦 = ∅ → ((¬ 𝑖𝑦𝑦𝐼) ↔ (¬ 𝑖 ∈ ∅ ∧ ∅ ⊆ 𝐼)))
137136anbi2d 642 . . . . . . . . . . . . . 14 (𝑦 = ∅ → ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑦𝑦𝐼)) ↔ (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ ∅ ∧ ∅ ⊆ 𝐼))))
138 mpteq1 5194 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 = ∅ → (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛 ∈ ∅ ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))
139 mpt0 6675 . . . . . . . . . . . . . . . . . . . . . 22 (𝑛 ∈ ∅ ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = ∅
140138, 139eqtrdi 2811 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 = ∅ → (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = ∅)
141140oveq2d 7430 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = ∅ → (𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑅 Σg ∅))
142100gsum0 18787 . . . . . . . . . . . . . . . . . . . 20 (𝑅 Σg ∅) = (0g𝑅)
143141, 142eqtrdi 2811 . . . . . . . . . . . . . . . . . . 19 (𝑦 = ∅ → (𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (0g𝑅))
144143oveq1d 7429 . . . . . . . . . . . . . . . . . 18 (𝑦 = ∅ → ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)))
145144ifeq1d 4502 . . . . . . . . . . . . . . . . 17 (𝑦 = ∅ → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
146145mpoeq3dv 7493 . . . . . . . . . . . . . . . 16 (𝑦 = ∅ → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))
147146fveq2d 6883 . . . . . . . . . . . . . . 15 (𝑦 = ∅ → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
148147eqeq2d 2771 . . . . . . . . . . . . . 14 (𝑦 = ∅ → (((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) ↔ ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))))
149137, 148imbi12d 347 . . . . . . . . . . . . 13 (𝑦 = ∅ → (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑦𝑦𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))) ↔ ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ ∅ ∧ ∅ ⊆ 𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))))
150 elequ2 2160 . . . . . . . . . . . . . . . . 17 (𝑦 = 𝑥 → (𝑖𝑦𝑖𝑥))
151150notbid 321 . . . . . . . . . . . . . . . 16 (𝑦 = 𝑥 → (¬ 𝑖𝑦 ↔ ¬ 𝑖𝑥))
152 sseq1 3956 . . . . . . . . . . . . . . . 16 (𝑦 = 𝑥 → (𝑦𝐼𝑥𝐼))
153151, 152anbi12d 644 . . . . . . . . . . . . . . 15 (𝑦 = 𝑥 → ((¬ 𝑖𝑦𝑦𝐼) ↔ (¬ 𝑖𝑥𝑥𝐼)))
154153anbi2d 642 . . . . . . . . . . . . . 14 (𝑦 = 𝑥 → ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑦𝑦𝐼)) ↔ (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑥𝑥𝐼))))
155 mpteq1 5194 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = 𝑥 → (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))
156155oveq2d 7430 . . . . . . . . . . . . . . . . . . 19 (𝑦 = 𝑥 → (𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))))
157156oveq1d 7429 . . . . . . . . . . . . . . . . . 18 (𝑦 = 𝑥 → ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)))
158157ifeq1d 4502 . . . . . . . . . . . . . . . . 17 (𝑦 = 𝑥 → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
159158mpoeq3dv 7493 . . . . . . . . . . . . . . . 16 (𝑦 = 𝑥 → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))
160159fveq2d 6883 . . . . . . . . . . . . . . 15 (𝑦 = 𝑥 → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
161160eqeq2d 2771 . . . . . . . . . . . . . 14 (𝑦 = 𝑥 → (((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) ↔ ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))))
162154, 161imbi12d 347 . . . . . . . . . . . . 13 (𝑦 = 𝑥 → (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑦𝑦𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))) ↔ ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑥𝑥𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))))
163 eleq2 2849 . . . . . . . . . . . . . . . . 17 (𝑦 = (𝑥 ∪ {𝑧}) → (𝑖𝑦𝑖 ∈ (𝑥 ∪ {𝑧})))
164163notbid 321 . . . . . . . . . . . . . . . 16 (𝑦 = (𝑥 ∪ {𝑧}) → (¬ 𝑖𝑦 ↔ ¬ 𝑖 ∈ (𝑥 ∪ {𝑧})))
165 sseq1 3956 . . . . . . . . . . . . . . . 16 (𝑦 = (𝑥 ∪ {𝑧}) → (𝑦𝐼 ↔ (𝑥 ∪ {𝑧}) ⊆ 𝐼))
166164, 165anbi12d 644 . . . . . . . . . . . . . . 15 (𝑦 = (𝑥 ∪ {𝑧}) → ((¬ 𝑖𝑦𝑦𝐼) ↔ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)))
167166anbi2d 642 . . . . . . . . . . . . . 14 (𝑦 = (𝑥 ∪ {𝑧}) → ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑦𝑦𝐼)) ↔ (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼))))
168 mpteq1 5194 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = (𝑥 ∪ {𝑧}) → (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))
169168oveq2d 7430 . . . . . . . . . . . . . . . . . . 19 (𝑦 = (𝑥 ∪ {𝑧}) → (𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))))
170169oveq1d 7429 . . . . . . . . . . . . . . . . . 18 (𝑦 = (𝑥 ∪ {𝑧}) → ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)))
171170ifeq1d 4502 . . . . . . . . . . . . . . . . 17 (𝑦 = (𝑥 ∪ {𝑧}) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
172171mpoeq3dv 7493 . . . . . . . . . . . . . . . 16 (𝑦 = (𝑥 ∪ {𝑧}) → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))
173172fveq2d 6883 . . . . . . . . . . . . . . 15 (𝑦 = (𝑥 ∪ {𝑧}) → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
174173eqeq2d 2771 . . . . . . . . . . . . . 14 (𝑦 = (𝑥 ∪ {𝑧}) → (((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) ↔ ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))))
175167, 174imbi12d 347 . . . . . . . . . . . . 13 (𝑦 = (𝑥 ∪ {𝑧}) → (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑦𝑦𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))) ↔ ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))))
176 eleq2 2849 . . . . . . . . . . . . . . . . 17 (𝑦 = (𝐼 ∖ {𝑖}) → (𝑖𝑦𝑖 ∈ (𝐼 ∖ {𝑖})))
177176notbid 321 . . . . . . . . . . . . . . . 16 (𝑦 = (𝐼 ∖ {𝑖}) → (¬ 𝑖𝑦 ↔ ¬ 𝑖 ∈ (𝐼 ∖ {𝑖})))
178 sseq1 3956 . . . . . . . . . . . . . . . 16 (𝑦 = (𝐼 ∖ {𝑖}) → (𝑦𝐼 ↔ (𝐼 ∖ {𝑖}) ⊆ 𝐼))
179177, 178anbi12d 644 . . . . . . . . . . . . . . 15 (𝑦 = (𝐼 ∖ {𝑖}) → ((¬ 𝑖𝑦𝑦𝐼) ↔ (¬ 𝑖 ∈ (𝐼 ∖ {𝑖}) ∧ (𝐼 ∖ {𝑖}) ⊆ 𝐼)))
180179anbi2d 642 . . . . . . . . . . . . . 14 (𝑦 = (𝐼 ∖ {𝑖}) → ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑦𝑦𝐼)) ↔ (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝐼 ∖ {𝑖}) ∧ (𝐼 ∖ {𝑖}) ⊆ 𝐼))))
181 mpteq1 5194 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = (𝐼 ∖ {𝑖}) → (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))
182181oveq2d 7430 . . . . . . . . . . . . . . . . . . 19 (𝑦 = (𝐼 ∖ {𝑖}) → (𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))))
183182oveq1d 7429 . . . . . . . . . . . . . . . . . 18 (𝑦 = (𝐼 ∖ {𝑖}) → ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)))
184183ifeq1d 4502 . . . . . . . . . . . . . . . . 17 (𝑦 = (𝐼 ∖ {𝑖}) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
185184mpoeq3dv 7493 . . . . . . . . . . . . . . . 16 (𝑦 = (𝐼 ∖ {𝑖}) → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))
186185fveq2d 6883 . . . . . . . . . . . . . . 15 (𝑦 = (𝐼 ∖ {𝑖}) → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
187186eqeq2d 2771 . . . . . . . . . . . . . 14 (𝑦 = (𝐼 ∖ {𝑖}) → (((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) ↔ ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))))
188180, 187imbi12d 347 . . . . . . . . . . . . 13 (𝑦 = (𝐼 ∖ {𝑖}) → (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑦𝑦𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))) ↔ ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝐼 ∖ {𝑖}) ∧ (𝐼 ∖ {𝑖}) ⊆ 𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))))
189 fnov 7545 . . . . . . . . . . . . . . . . . 18 (𝑀 Fn (𝐼 × 𝐼) ↔ 𝑀 = (𝑗𝐼, 𝑘𝐼 ↦ (𝑗𝑀𝑘)))
19059, 189sylib 221 . . . . . . . . . . . . . . . . 17 (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) → 𝑀 = (𝑗𝐼, 𝑘𝐼 ↦ (𝑗𝑀𝑘)))
191190adantl 487 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) → 𝑀 = (𝑗𝐼, 𝑘𝐼 ↦ (𝑗𝑀𝑘)))
192 ringgrp 20378 . . . . . . . . . . . . . . . . . 18 (𝑅 ∈ Ring → 𝑅 ∈ Grp)
1934, 192syl 18 . . . . . . . . . . . . . . . . 17 (𝑅 ∈ Field → 𝑅 ∈ Grp)
194 oveq1 7421 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 = 𝑗 → (𝑖𝑀𝑘) = (𝑗𝑀𝑘))
195194equcoms 2053 . . . . . . . . . . . . . . . . . . . . 21 (𝑗 = 𝑖 → (𝑖𝑀𝑘) = (𝑗𝑀𝑘))
196195oveq2d 7430 . . . . . . . . . . . . . . . . . . . 20 (𝑗 = 𝑖 → ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)) = ((0g𝑅)(+g𝑅)(𝑗𝑀𝑘)))
197 simp1l 1216 . . . . . . . . . . . . . . . . . . . . 21 (((𝑅 ∈ Grp ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑗𝐼𝑘𝐼) → 𝑅 ∈ Grp)
198 fovcdm 7585 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑗𝐼𝑘𝐼) → (𝑗𝑀𝑘) ∈ (Base‘𝑅))
1991983adant1l 1195 . . . . . . . . . . . . . . . . . . . . 21 (((𝑅 ∈ Grp ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑗𝐼𝑘𝐼) → (𝑗𝑀𝑘) ∈ (Base‘𝑅))
200 eqid 2760 . . . . . . . . . . . . . . . . . . . . . 22 (+g𝑅) = (+g𝑅)
20110, 200, 100grplid 19092 . . . . . . . . . . . . . . . . . . . . 21 ((𝑅 ∈ Grp ∧ (𝑗𝑀𝑘) ∈ (Base‘𝑅)) → ((0g𝑅)(+g𝑅)(𝑗𝑀𝑘)) = (𝑗𝑀𝑘))
202197, 199, 201syl2anc 596 . . . . . . . . . . . . . . . . . . . 20 (((𝑅 ∈ Grp ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑗𝐼𝑘𝐼) → ((0g𝑅)(+g𝑅)(𝑗𝑀𝑘)) = (𝑗𝑀𝑘))
203196, 202sylan9eqr 2817 . . . . . . . . . . . . . . . . . . 19 ((((𝑅 ∈ Grp ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑗𝐼𝑘𝐼) ∧ 𝑗 = 𝑖) → ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)) = (𝑗𝑀𝑘))
204 eqidd 2761 . . . . . . . . . . . . . . . . . . 19 ((((𝑅 ∈ Grp ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑗𝐼𝑘𝐼) ∧ ¬ 𝑗 = 𝑖) → (𝑗𝑀𝑘) = (𝑗𝑀𝑘))
205203, 204ifeqda 4519 . . . . . . . . . . . . . . . . . 18 (((𝑅 ∈ Grp ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑗𝐼𝑘𝐼) → if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = (𝑗𝑀𝑘))
206205mpoeq3dva 7491 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ Grp ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ (𝑗𝑀𝑘)))
207193, 206sylan 592 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ (𝑗𝑀𝑘)))
208191, 207eqtr4d 2798 . . . . . . . . . . . . . . 15 ((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) → 𝑀 = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))
209208fveq2d 6883 . . . . . . . . . . . . . 14 ((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
210209ad4antr 745 . . . . . . . . . . . . 13 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ ∅ ∧ ∅ ⊆ 𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
211 elun1 4128 . . . . . . . . . . . . . . . . . . . . 21 (𝑖𝑥𝑖 ∈ (𝑥 ∪ {𝑧}))
212211con3i 155 . . . . . . . . . . . . . . . . . . . 20 𝑖 ∈ (𝑥 ∪ {𝑧}) → ¬ 𝑖𝑥)
213 ssun1 4124 . . . . . . . . . . . . . . . . . . . . 21 𝑥 ⊆ (𝑥 ∪ {𝑧})
214 sstr 3939 . . . . . . . . . . . . . . . . . . . . 21 ((𝑥 ⊆ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) → 𝑥𝐼)
215213, 214mpan 703 . . . . . . . . . . . . . . . . . . . 20 ((𝑥 ∪ {𝑧}) ⊆ 𝐼𝑥𝐼)
216212, 215anim12i 625 . . . . . . . . . . . . . . . . . . 19 ((¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) → (¬ 𝑖𝑥𝑥𝐼))
217216anim2i 629 . . . . . . . . . . . . . . . . . 18 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑥𝑥𝐼)))
218217adantr 486 . . . . . . . . . . . . . . . . 17 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) → (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑥𝑥𝐼)))
219 velsn 4600 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑖 ∈ {𝑧} ↔ 𝑖 = 𝑧)
220 elun2 4129 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑖 ∈ {𝑧} → 𝑖 ∈ (𝑥 ∪ {𝑧}))
221219, 220sylbir 238 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 = 𝑧𝑖 ∈ (𝑥 ∪ {𝑧}))
222221necon3bi 2981 . . . . . . . . . . . . . . . . . . . . 21 𝑖 ∈ (𝑥 ∪ {𝑧}) → 𝑖𝑧)
223222anim1i 627 . . . . . . . . . . . . . . . . . . . 20 ((¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) → (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼))
224 ringcmn 20424 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑅 ∈ Ring → 𝑅 ∈ CMnd)
2254, 224syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑅 ∈ Field → 𝑅 ∈ CMnd)
226225ad7antr 751 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → 𝑅 ∈ CMnd)
227 simplr 781 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → 𝐼 ∈ Fin)
228215adantl 487 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) → 𝑥𝐼)
229 ssfi 9168 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝐼 ∈ Fin ∧ 𝑥𝐼) → 𝑥 ∈ Fin)
230227, 228, 229syl2an 608 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑥 ∈ Fin)
231230ad5ant13 769 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → 𝑥 ∈ Fin)
232215sselda 3931 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝑥 ∪ {𝑧}) ⊆ 𝐼𝑛𝑥) → 𝑛𝐼)
233232adantll 727 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) ∧ 𝑛𝑥) → 𝑛𝐼)
234233ad4ant24 767 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘𝐼) ∧ 𝑛𝑥) → 𝑛𝐼)
2354ad6antr 749 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ 𝑛𝐼) → 𝑅 ∈ Ring)
2362ad2antrr 739 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) → 𝑅 ∈ DivRing)
237 ffvelcdm 7075 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝑓:𝐼⟶(Base‘𝑅) ∧ 𝑖𝐼) → (𝑓𝑖) ∈ (Base‘𝑅))
238237anim2i 629 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((𝑅 ∈ DivRing ∧ (𝑓:𝐼⟶(Base‘𝑅) ∧ 𝑖𝐼)) → (𝑅 ∈ DivRing ∧ (𝑓𝑖) ∈ (Base‘𝑅)))
239238anassrs 473 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((𝑅 ∈ DivRing ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑖𝐼) → (𝑅 ∈ DivRing ∧ (𝑓𝑖) ∈ (Base‘𝑅)))
240 eqid 2760 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (invr𝑅) = (invr𝑅)
24110, 100, 240drnginvrcl 20921 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((𝑅 ∈ DivRing ∧ (𝑓𝑖) ∈ (Base‘𝑅) ∧ (𝑓𝑖) ≠ (0g𝑅)) → ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅))
2422413expa 1136 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((𝑅 ∈ DivRing ∧ (𝑓𝑖) ∈ (Base‘𝑅)) ∧ (𝑓𝑖) ≠ (0g𝑅)) → ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅))
243239, 242sylan 592 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((((𝑅 ∈ DivRing ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑖𝐼) ∧ (𝑓𝑖) ≠ (0g𝑅)) → ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅))
244243anasss 472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝑅 ∈ DivRing ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅))
245236, 244sylanl1 693 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅))
246245ad2antrr 739 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ 𝑛𝐼) → ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅))
24743ad5ant25 774 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ 𝑛𝐼) → (𝑓𝑛) ∈ (Base‘𝑅))
248 simp-4r 796 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅))
249763expa 1136 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑛𝐼) ∧ 𝑘𝐼) → (𝑛𝑀𝑘) ∈ (Base‘𝑅))
250249an32s 665 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑘𝐼) ∧ 𝑛𝐼) → (𝑛𝑀𝑘) ∈ (Base‘𝑅))
251248, 250sylanl1 693 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ 𝑛𝐼) → (𝑛𝑀𝑘) ∈ (Base‘𝑅))
252235, 247, 251, 78syl3anc 1398 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ 𝑛𝐼) → ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)) ∈ (Base‘𝑅))
25310, 47ringcl 20390 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑅 ∈ Ring ∧ ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅) ∧ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)) ∈ (Base‘𝑅)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘𝑅))
254235, 246, 252, 253syl3anc 1398 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ 𝑛𝐼) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘𝑅))
255254adantllr 732 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘𝐼) ∧ 𝑛𝐼) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘𝑅))
256234, 255syldan 603 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘𝐼) ∧ 𝑛𝑥) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘𝑅))
257256adantllr 732 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) ∧ 𝑛𝑥) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘𝑅))
258 vex 3454 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 𝑧 ∈ V
259258a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → 𝑧 ∈ V)
260 simplr 781 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → ¬ 𝑧𝑥)
261 ssun2 4125 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 {𝑧} ⊆ (𝑥 ∪ {𝑧})
262 sstr 3939 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (({𝑧} ⊆ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) → {𝑧} ⊆ 𝐼)
263261, 262mpan 703 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → {𝑧} ⊆ 𝐼)
264258snss 4745 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑧𝐼 ↔ {𝑧} ⊆ 𝐼)
265263, 264sylibr 237 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑥 ∪ {𝑧}) ⊆ 𝐼𝑧𝐼)
266265adantl 487 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) → 𝑧𝐼)
2674ad6antr 749 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → 𝑅 ∈ Ring)
2684ad5antr 747 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) → 𝑅 ∈ Ring)
269245adantr 486 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) → ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅))
270 ffvelcdm 7075 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑓:𝐼⟶(Base‘𝑅) ∧ 𝑧𝐼) → (𝑓𝑧) ∈ (Base‘𝑅))
271270ad4ant24 767 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) → (𝑓𝑧) ∈ (Base‘𝑅))
27210, 47ringcl 20390 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑅 ∈ Ring ∧ ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅) ∧ (𝑓𝑧) ∈ (Base‘𝑅)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧)) ∈ (Base‘𝑅))
273268, 269, 271, 272syl3anc 1398 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧)) ∈ (Base‘𝑅))
274273adantr 486 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧)) ∈ (Base‘𝑅))
275 fovcdm 7585 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑧𝐼𝑘𝐼) → (𝑧𝑀𝑘) ∈ (Base‘𝑅))
2762753expa 1136 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → (𝑧𝑀𝑘) ∈ (Base‘𝑅))
277248, 276sylanl1 693 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → (𝑧𝑀𝑘) ∈ (Base‘𝑅))
27810, 47ringcl 20390 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑅 ∈ Ring ∧ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧)) ∈ (Base‘𝑅) ∧ (𝑧𝑀𝑘) ∈ (Base‘𝑅)) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)) ∈ (Base‘𝑅))
279267, 274, 277, 278syl3anc 1398 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)) ∈ (Base‘𝑅))
280266, 279sylanl2 694 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘𝐼) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)) ∈ (Base‘𝑅))
281280adantlr 728 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)) ∈ (Base‘𝑅))
282 fveq2 6879 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑛 = 𝑧 → (𝑓𝑛) = (𝑓𝑧))
283 oveq1 7421 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑛 = 𝑧 → (𝑛𝑀𝑘) = (𝑧𝑀𝑘))
284282, 283oveq12d 7432 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑛 = 𝑧 → ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)) = ((𝑓𝑧)(.r𝑅)(𝑧𝑀𝑘)))
285284oveq2d 7430 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑛 = 𝑧 → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑧)(.r𝑅)(𝑧𝑀𝑘))))
286245ad2antrr 739 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅))
287270ad5ant24 773 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → (𝑓𝑧) ∈ (Base‘𝑅))
28810, 47ringass 20393 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑅 ∈ Ring ∧ (((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅) ∧ (𝑓𝑧) ∈ (Base‘𝑅) ∧ (𝑧𝑀𝑘) ∈ (Base‘𝑅))) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑧)(.r𝑅)(𝑧𝑀𝑘))))
289267, 286, 287, 277, 288syl13anc 1399 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑧)(.r𝑅)(𝑧𝑀𝑘))))
290289eqcomd 2766 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑧)(.r𝑅)(𝑧𝑀𝑘))) = ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)))
291266, 290sylanl2 694 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘𝐼) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑧)(.r𝑅)(𝑧𝑀𝑘))) = ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)))
292285, 291sylan9eqr 2817 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘𝐼) ∧ 𝑛 = 𝑧) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) = ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)))
293292adantllr 732 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) ∧ 𝑛 = 𝑧) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) = ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)))
29410, 200, 226, 231, 257, 259, 260, 281, 293gsumunsnd 20086 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → (𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘))))
295294oveq1d 7429 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = (((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)))(+g𝑅)(𝑖𝑀𝑘)))
296 ringabl 20423 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑅 ∈ Ring → 𝑅 ∈ Abel)
2974, 296syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑅 ∈ Field → 𝑅 ∈ Abel)
298297ad6antr 749 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) ∧ 𝑘𝐼) → 𝑅 ∈ Abel)
299225ad6antr 749 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) ∧ 𝑘𝐼) → 𝑅 ∈ CMnd)
300 vex 3454 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 𝑥 ∈ V
301300a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) ∧ 𝑘𝐼) → 𝑥 ∈ V)
302 ssel2 3926 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝑥𝐼𝑛𝑥) → 𝑛𝐼)
303302, 254sylan2 605 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ (𝑥𝐼𝑛𝑥)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘𝑅))
304303anassrs 473 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ 𝑥𝐼) ∧ 𝑛𝑥) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘𝑅))
305304fmpttd 7109 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ 𝑥𝐼) → (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))):𝑥⟶(Base‘𝑅))
306305an32s 665 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) ∧ 𝑘𝐼) → (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))):𝑥⟶(Base‘𝑅))
307 ovex 7447 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ V
308 eqid 2760 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))
309307, 308fnmpti 6676 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) Fn 𝑥
310309a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝐼 ∈ Fin ∧ 𝑥𝐼) → (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) Fn 𝑥)
311 fvexd 6894 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝐼 ∈ Fin ∧ 𝑥𝐼) → (0g𝑅) ∈ V)
312310, 229, 311fndmfifsupp 9349 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝐼 ∈ Fin ∧ 𝑥𝐼) → (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) finSupp (0g𝑅))
313312adantll 727 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑥𝐼) → (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) finSupp (0g𝑅))
314313ad5ant14 770 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) ∧ 𝑘𝐼) → (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) finSupp (0g𝑅))
31510, 100, 299, 301, 306, 314gsumcl 20043 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) ∧ 𝑘𝐼) → (𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) ∈ (Base‘𝑅))
316215, 315sylanl2 694 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) ∧ 𝑘𝐼) → (𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) ∈ (Base‘𝑅))
317265, 279sylanl2 694 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) ∧ 𝑘𝐼) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)) ∈ (Base‘𝑅))
318 simpllr 788 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅))
319 simpl 488 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅)) → 𝑖𝐼)
320318, 319anim12i 625 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑖𝐼))
321320adantr 486 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) → (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑖𝐼))
322 fovcdm 7585 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑖𝐼𝑘𝐼) → (𝑖𝑀𝑘) ∈ (Base‘𝑅))
3233223expa 1136 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑖𝐼) ∧ 𝑘𝐼) → (𝑖𝑀𝑘) ∈ (Base‘𝑅))
324321, 323sylan 592 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) ∧ 𝑘𝐼) → (𝑖𝑀𝑘) ∈ (Base‘𝑅))
32510, 200, 298, 316, 317, 324abl32 19931 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) ∧ 𝑘𝐼) → (((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)))(+g𝑅)(𝑖𝑀𝑘)) = (((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘))))
326325adantlrl 733 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘𝐼) → (((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)))(+g𝑅)(𝑖𝑀𝑘)) = (((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘))))
327326adantlr 728 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → (((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)))(+g𝑅)(𝑖𝑀𝑘)) = (((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘))))
328295, 327eqtrd 2795 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = (((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘))))
329328ifeq1d 4502 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))) = if(𝑗 = 𝑖, (((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘))), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))))
3303293adant2 1149 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑗𝐼𝑘𝐼) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))) = if(𝑗 = 𝑖, (((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘))), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))))
331330mpoeq3dva 7491 . . . . . . . . . . . . . . . . . . . . . . 23 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, (((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘))), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)))))
332331fveq2d 6883 . . . . . . . . . . . . . . . . . . . . . 22 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, (((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘))), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))))))
333 eqid 2760 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝐼 maDet 𝑅) = (𝐼 maDet 𝑅)
3341simprbi 503 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑅 ∈ Field → 𝑅 ∈ CRing)
335334ad5antr 747 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑅 ∈ CRing)
336 simp-4r 796 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝐼 ∈ Fin)
337193ad6antr 749 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) ∧ 𝑘𝐼) → 𝑅 ∈ Grp)
338320adantr 486 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) → (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑖𝐼))
339338, 323sylan 592 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) ∧ 𝑘𝐼) → (𝑖𝑀𝑘) ∈ (Base‘𝑅))
34010, 200grpcl 19066 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑅 ∈ Grp ∧ (𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) ∈ (Base‘𝑅) ∧ (𝑖𝑀𝑘) ∈ (Base‘𝑅)) → ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) ∈ (Base‘𝑅))
341337, 315, 339, 340syl3anc 1398 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) ∧ 𝑘𝐼) → ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) ∈ (Base‘𝑅))
342228, 341sylanl2 694 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘𝐼) → ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) ∈ (Base‘𝑅))
343248, 266anim12i 625 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑧𝐼))
344343, 276sylan 592 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘𝐼) → (𝑧𝑀𝑘) ∈ (Base‘𝑅))
345 simp-5r 798 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅))
346345, 198syl3an1 1181 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑗𝐼𝑘𝐼) → (𝑗𝑀𝑘) ∈ (Base‘𝑅))
347266, 273sylan2 605 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧)) ∈ (Base‘𝑅))
348 simplrl 789 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑖𝐼)
349265ad2antll 742 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑧𝐼)
350 simprl 783 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑖𝑧)
351333, 10, 200, 47, 335, 336, 342, 344, 346, 347, 348, 349, 350mdetero 22833 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, (((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘))), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))))))
352351adantr 486 . . . . . . . . . . . . . . . . . . . . . 22 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, (((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘))), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))))))
353332, 352eqtrd 2795 . . . . . . . . . . . . . . . . . . . . 21 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))))))
354 iftrue 4488 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑗 = 𝑧 → if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)) = (𝑧𝑀𝑘))
355 oveq1 7421 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑗 = 𝑧 → (𝑗𝑀𝑘) = (𝑧𝑀𝑘))
356354, 355eqtr4d 2798 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑗 = 𝑧 → if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)) = (𝑗𝑀𝑘))
357 iffalse 4491 . . . . . . . . . . . . . . . . . . . . . . . . 25 𝑗 = 𝑧 → if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)) = (𝑗𝑀𝑘))
358356, 357pm2.61i 184 . . . . . . . . . . . . . . . . . . . . . . . 24 if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)) = (𝑗𝑀𝑘)
359 ifeq2 4487 . . . . . . . . . . . . . . . . . . . . . . . 24 (if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)) = (𝑗𝑀𝑘) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))) = if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
360358, 359mp1i 14 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑗𝐼𝑘𝐼) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))) = if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
361360mpoeq3ia 7492 . . . . . . . . . . . . . . . . . . . . . 22 (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
362361fveq2i 6882 . . . . . . . . . . . . . . . . . . . . 21 ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))
363 ifeq2 4487 . . . . . . . . . . . . . . . . . . . . . . . 24 (if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)) = (𝑗𝑀𝑘) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))) = if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
364358, 363mp1i 14 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑗𝐼𝑘𝐼) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))) = if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
365364mpoeq3ia 7492 . . . . . . . . . . . . . . . . . . . . . 22 (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
366365fveq2i 6882 . . . . . . . . . . . . . . . . . . . . 21 ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))
367353, 362, 3663eqtr3g 2818 . . . . . . . . . . . . . . . . . . . 20 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
368223, 367sylanl2 694 . . . . . . . . . . . . . . . . . . 19 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
369368eqeq2d 2771 . . . . . . . . . . . . . . . . . 18 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) → (((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) ↔ ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))))
370369biimprd 251 . . . . . . . . . . . . . . . . 17 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) → (((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))))
371218, 370embantd 60 . . . . . . . . . . . . . . . 16 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) → (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑥𝑥𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))))
372371expcom 419 . . . . . . . . . . . . . . 15 𝑧𝑥 → ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑥𝑥𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))))
373372com23 87 . . . . . . . . . . . . . 14 𝑧𝑥 → (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑥𝑥𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))) → ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))))
374373adantl 487 . . . . . . . . . . . . 13 ((𝑥 ∈ Fin ∧ ¬ 𝑧𝑥) → (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑥𝑥𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))) → ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))))
375149, 162, 175, 188, 210, 374findcard2s 9161 . . . . . . . . . . . 12 ((𝐼 ∖ {𝑖}) ∈ Fin → ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝐼 ∖ {𝑖}) ∧ (𝐼 ∖ {𝑖}) ⊆ 𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))))
376132, 375mpcom 39 . . . . . . . . . . 11 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝐼 ∖ {𝑖}) ∧ (𝐼 ∖ {𝑖}) ⊆ 𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
377129, 130, 376mpanr12 718 . . . . . . . . . 10 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
378377adantlr 728 . . . . . . . . 9 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
379 eqid 2760 . . . . . . . . . . . 12 𝐼 = 𝐼
380 fconstmpt 5717 . . . . . . . . . . . . . . . . 17 (𝐼 × {(0g𝑅)}) = (𝑘𝐼 ↦ (0g𝑅))
381380eqeq2i 2773 . . . . . . . . . . . . . . . 16 ((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ↔ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑘𝐼 ↦ (0g𝑅)))
382 ovex 7447 . . . . . . . . . . . . . . . . . 18 (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) ∈ V
383382rgenw 3080 . . . . . . . . . . . . . . . . 17 𝑘𝐼 (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) ∈ V
384 mpteqb 7007 . . . . . . . . . . . . . . . . 17 (∀𝑘𝐼 (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) ∈ V → ((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑘𝐼 ↦ (0g𝑅)) ↔ ∀𝑘𝐼 (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅)))
385383, 384ax-mp 5 . . . . . . . . . . . . . . . 16 ((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑘𝐼 ↦ (0g𝑅)) ↔ ∀𝑘𝐼 (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅))
386381, 385bitri 278 . . . . . . . . . . . . . . 15 ((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ↔ ∀𝑘𝐼 (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅))
387225ad5antr 747 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → 𝑅 ∈ CMnd)
388 simp-4r 796 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → 𝐼 ∈ Fin)
389 eqid 2760 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑛𝐼 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛𝐼 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))
390307, 389fnmpti 6676 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑛𝐼 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) Fn 𝐼
391390a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐼 ∈ Fin → (𝑛𝐼 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) Fn 𝐼)
392 id 23 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐼 ∈ Fin → 𝐼 ∈ Fin)
393 fvexd 6894 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐼 ∈ Fin → (0g𝑅) ∈ V)
394391, 392, 393fndmfifsupp 9349 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝐼 ∈ Fin → (𝑛𝐼 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) finSupp (0g𝑅))
395394ad4antlr 746 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → (𝑛𝐼 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) finSupp (0g𝑅))
396 simplrl 789 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → 𝑖𝐼)
397320, 323sylan 592 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → (𝑖𝑀𝑘) ∈ (Base‘𝑅))
398 fveq2 6879 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑛 = 𝑖 → (𝑓𝑛) = (𝑓𝑖))
399 oveq1 7421 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑛 = 𝑖 → (𝑛𝑀𝑘) = (𝑖𝑀𝑘))
400398, 399oveq12d 7432 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑛 = 𝑖 → ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)) = ((𝑓𝑖)(.r𝑅)(𝑖𝑀𝑘)))
401400oveq2d 7430 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑛 = 𝑖 → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑖)(.r𝑅)(𝑖𝑀𝑘))))
402 simpll 779 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) → 𝑅 ∈ Field)
4032, 237anim12i 625 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑅 ∈ Field ∧ (𝑓:𝐼⟶(Base‘𝑅) ∧ 𝑖𝐼)) → (𝑅 ∈ DivRing ∧ (𝑓𝑖) ∈ (Base‘𝑅)))
404403anassrs 473 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((𝑅 ∈ Field ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑖𝐼) → (𝑅 ∈ DivRing ∧ (𝑓𝑖) ∈ (Base‘𝑅)))
405 eqid 2760 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (1r𝑅) = (1r𝑅)
40610, 100, 47, 405, 240drnginvrl 20924 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑅 ∈ DivRing ∧ (𝑓𝑖) ∈ (Base‘𝑅) ∧ (𝑓𝑖) ≠ (0g𝑅)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑖)) = (1r𝑅))
4074063expa 1136 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((𝑅 ∈ DivRing ∧ (𝑓𝑖) ∈ (Base‘𝑅)) ∧ (𝑓𝑖) ≠ (0g𝑅)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑖)) = (1r𝑅))
408404, 407sylan 592 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((𝑅 ∈ Field ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑖𝐼) ∧ (𝑓𝑖) ≠ (0g𝑅)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑖)) = (1r𝑅))
409408anasss 472 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝑅 ∈ Field ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑖)) = (1r𝑅))
410409oveq1d 7429 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((𝑅 ∈ Field ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑖))(.r𝑅)(𝑖𝑀𝑘)) = ((1r𝑅)(.r𝑅)(𝑖𝑀𝑘)))
411402, 410sylanl1 693 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑖))(.r𝑅)(𝑖𝑀𝑘)) = ((1r𝑅)(.r𝑅)(𝑖𝑀𝑘)))
412411adantr 486 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑖))(.r𝑅)(𝑖𝑀𝑘)) = ((1r𝑅)(.r𝑅)(𝑖𝑀𝑘)))
4134ad5antr 747 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → 𝑅 ∈ Ring)
414245adantr 486 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅))
415237ad2ant2lr 761 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → (𝑓𝑖) ∈ (Base‘𝑅))
416415adantr 486 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → (𝑓𝑖) ∈ (Base‘𝑅))
41710, 47ringass 20393 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑅 ∈ Ring ∧ (((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅) ∧ (𝑓𝑖) ∈ (Base‘𝑅) ∧ (𝑖𝑀𝑘) ∈ (Base‘𝑅))) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑖))(.r𝑅)(𝑖𝑀𝑘)) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑖)(.r𝑅)(𝑖𝑀𝑘))))
418413, 414, 416, 397, 417syl13anc 1399 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑖))(.r𝑅)(𝑖𝑀𝑘)) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑖)(.r𝑅)(𝑖𝑀𝑘))))
4194adantr 486 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) → 𝑅 ∈ Ring)
4204193ad2ant1 1151 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖𝐼𝑘𝐼) → 𝑅 ∈ Ring)
4213223adant1l 1195 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖𝐼𝑘𝐼) → (𝑖𝑀𝑘) ∈ (Base‘𝑅))
42210, 47, 405ringlidm 20411 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑅 ∈ Ring ∧ (𝑖𝑀𝑘) ∈ (Base‘𝑅)) → ((1r𝑅)(.r𝑅)(𝑖𝑀𝑘)) = (𝑖𝑀𝑘))
423420, 421, 422syl2anc 596 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖𝐼𝑘𝐼) → ((1r𝑅)(.r𝑅)(𝑖𝑀𝑘)) = (𝑖𝑀𝑘))
424423ad5ant145 1396 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑖𝐼) ∧ 𝑘𝐼) → ((1r𝑅)(.r𝑅)(𝑖𝑀𝑘)) = (𝑖𝑀𝑘))
425424adantlrr 734 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → ((1r𝑅)(.r𝑅)(𝑖𝑀𝑘)) = (𝑖𝑀𝑘))
426412, 418, 4253eqtr3d 2803 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑖)(.r𝑅)(𝑖𝑀𝑘))) = (𝑖𝑀𝑘))
427401, 426sylan9eqr 2817 . . . . . . . . . . . . . . . . . . . . . . 23 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ 𝑛 = 𝑖) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) = (𝑖𝑀𝑘))
42810, 200, 387, 388, 395, 254, 396, 397, 427gsumdifsnd 20089 . . . . . . . . . . . . . . . . . . . . . 22 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → (𝑅 Σg (𝑛𝐼 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)))
429 ovex 7447 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)) ∈ V
430 eqid 2760 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) = (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))
431429, 430fnmpti 6676 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) Fn 𝐼
432431a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐼 ∈ Fin → (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) Fn 𝐼)
433432, 392, 393fndmfifsupp 9349 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝐼 ∈ Fin → (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) finSupp (0g𝑅))
434433ad4antlr 746 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) finSupp (0g𝑅))
43510, 100, 47, 413, 388, 414, 252, 434gsummulc2 20458 . . . . . . . . . . . . . . . . . . . . . 22 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → (𝑅 Σg (𝑛𝐼 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))))
436428, 435eqtr3d 2797 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))))
437436adantr 486 . . . . . . . . . . . . . . . . . . . 20 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅)) → ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))))
438 oveq2 7422 . . . . . . . . . . . . . . . . . . . . 21 ((𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(0g𝑅)))
439438adantl 487 . . . . . . . . . . . . . . . . . . . 20 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(0g𝑅)))
4404ad4antr 745 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → 𝑅 ∈ Ring)
44110, 47, 100ringrz 20437 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑅 ∈ Ring ∧ ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(0g𝑅)) = (0g𝑅))
442440, 245, 441syl2anc 596 . . . . . . . . . . . . . . . . . . . . 21 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(0g𝑅)) = (0g𝑅))
443442ad2antrr 739 . . . . . . . . . . . . . . . . . . . 20 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(0g𝑅)) = (0g𝑅))
444437, 439, 4433eqtrd 2799 . . . . . . . . . . . . . . . . . . 19 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅)) → ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = (0g𝑅))
445444ifeq1d 4502 . . . . . . . . . . . . . . . . . 18 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅)) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘)))
446445ex 418 . . . . . . . . . . . . . . . . 17 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → ((𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘))))
447446ralimdva 3174 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → (∀𝑘𝐼 (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅) → ∀𝑘𝐼 if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘))))
448447imp 412 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ ∀𝑘𝐼 (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅)) → ∀𝑘𝐼 if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘)))
449386, 448sylan2b 606 . . . . . . . . . . . . . 14 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) → ∀𝑘𝐼 if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘)))
450449, 379jctil 529 . . . . . . . . . . . . 13 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) → (𝐼 = 𝐼 ∧ ∀𝑘𝐼 if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘))))
451450ralrimivw 3158 . . . . . . . . . . . 12 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) → ∀𝑗𝐼 (𝐼 = 𝐼 ∧ ∀𝑘𝐼 if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘))))
452 mpoeq123 7486 . . . . . . . . . . . 12 ((𝐼 = 𝐼 ∧ ∀𝑗𝐼 (𝐼 = 𝐼 ∧ ∀𝑘𝐼 if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘)))) → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘))))
453379, 451, 452sylancr 599 . . . . . . . . . . 11 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘))))
454453an32s 665 . . . . . . . . . 10 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘))))
455454fveq2d 6883 . . . . . . . . 9 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘)))))
456334ad3antrrr 743 . . . . . . . . . . 11 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → 𝑅 ∈ CRing)
457 simplr 781 . . . . . . . . . . 11 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → 𝐼 ∈ Fin)
458 simpllr 788 . . . . . . . . . . . 12 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅))
459458, 198syl3an1 1181 . . . . . . . . . . 11 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑗𝐼𝑘𝐼) → (𝑗𝑀𝑘) ∈ (Base‘𝑅))
460 simprl 783 . . . . . . . . . . 11 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → 𝑖𝐼)
461333, 10, 100, 456, 457, 459, 460mdetr0 22828 . . . . . . . . . 10 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘)))) = (0g𝑅))
462461ad4ant14 765 . . . . . . . . 9 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘)))) = (0g𝑅))
463378, 455, 4623eqtrd 2799 . . . . . . . 8 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((𝐼 maDet 𝑅)‘𝑀) = (0g𝑅))
464463rexlimdvaa 3164 . . . . . . 7 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) → (∃𝑖𝐼 (𝑓𝑖) ≠ (0g𝑅) → ((𝐼 maDet 𝑅)‘𝑀) = (0g𝑅)))
465464expimpd 459 . . . . . 6 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ∧ ∃𝑖𝐼 (𝑓𝑖) ≠ (0g𝑅)) → ((𝐼 maDet 𝑅)‘𝑀) = (0g𝑅)))
466128, 465sylan2d 617 . . . . 5 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ∧ ¬ 𝑓 = (𝐼 × {(0g𝑅)})) → ((𝐼 maDet 𝑅)‘𝑀) = (0g𝑅)))
46732, 466sylan2 605 . . . 4 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)) → (((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ∧ ¬ 𝑓 = (𝐼 × {(0g𝑅)})) → ((𝐼 maDet 𝑅)‘𝑀) = (0g𝑅)))
468467rexlimdva 3163 . . 3 (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) → (∃𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ∧ ¬ 𝑓 = (𝐼 × {(0g𝑅)})) → ((𝐼 maDet 𝑅)‘𝑀) = (0g𝑅)))
4699, 468sylan2 605 . 2 (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (∃𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ∧ ¬ 𝑓 = (𝐼 × {(0g𝑅)})) → ((𝐼 maDet 𝑅)‘𝑀) = (0g𝑅)))
470115, 469sylbid 243 1 (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (¬ curry 𝑀 LIndF (𝑅 freeLMod 𝐼) → ((𝐼 maDet 𝑅)‘𝑀) = (0g𝑅)))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wb 209  wa 401  w3a 1103   = wceq 1570  wcel 2145  wne 2955  wral 3076  wrex 3086  Vcvv 3450  cdif 3896  cun 3897  wss 3899  c0 4279  ifcif 4482  {csn 4584   class class class wbr 5103  cmpt 5186   × cxp 5653   Fn wfn 6528  wf 6529  cfv 6533  (class class class)co 7414  cmpo 7416  f cof 7677  curry ccur 8264  m cmap 8827  Fincfn 8953   finSupp cfsupp 9332  Basecbs 17302  +gcplusg 17343  .rcmulr 17344  Scalarcsca 17346   ·𝑠 cvsca 17347  0gc0g 17525   Σg cgsu 17526  Grpcgrp 19058  CMndccmn 19908  Abelcabl 19909  1rcur 20321  Ringcrg 20373  CRingccrg 20374  invrcinvr 20529  DivRingcdr 20891  Fieldcfield 20892  LModclmod 21045   freeLMod cfrlm 21960   LIndF clindf 22018   maDet cmdat 22807
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5232  ax-sep 5251  ax-nul 5263  ax-pow 5330  ax-pr 5398  ax-un 7737  ax-cnex 11181  ax-resscn 11182  ax-1cn 11183  ax-icn 11184  ax-addcl 11185  ax-addrcl 11186  ax-mulcl 11187  ax-mulrcl 11188  ax-mulcom 11189  ax-addass 11190  ax-mulass 11191  ax-distr 11192  ax-i2m1 11193  ax-1ne0 11194  ax-1rid 11195  ax-rnegex 11196  ax-rrecex 11197  ax-cnre 11198  ax-pre-lttri 11199  ax-pre-lttrn 11200  ax-pre-ltadd 11201  ax-pre-mulgt0 11202  ax-addf 11204  ax-mulf 11205
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-xor 1542  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4591  df-ot 4593  df-uni 4868  df-int 4908  df-iun 4953  df-iin 4954  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-se 5609  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6299  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-isom 6542  df-riota 7371  df-ov 7417  df-oprab 7418  df-mpo 7419  df-of 7679  df-om 7864  df-1st 7987  df-2nd 7988  df-supp 8160  df-tpos 8225  df-cur 8266  df-frecs 8281  df-wrecs 8312  df-recs 8361  df-rdg 8400  df-1o 8456  df-2o 8457  df-er 8697  df-map 8829  df-pm 8830  df-ixp 8906  df-en 8954  df-dom 8955  df-sdom 8956  df-fin 8957  df-fsupp 9333  df-sup 9413  df-oi 9483  df-card 9945  df-pnf 11270  df-mnf 11271  df-xr 11272  df-ltxr 11273  df-le 11274  df-sub 11468  df-neg 11469  df-div 11897  df-nn 12259  df-2 12328  df-3 12329  df-4 12330  df-5 12331  df-6 12332  df-7 12333  df-8 12334  df-9 12335  df-n0 12530  df-xnn0 12603  df-z 12617  df-dec 12738  df-uz 12889  df-rp 13044  df-fz 13563  df-fzo 13711  df-seq 14067  df-exp 14127  df-hash 14396  df-word 14580  df-lsw 14629  df-concat 14637  df-s1 14664  df-substr 14710  df-pfx 14742  df-splice 14820  df-reverse 14829  df-s2 14920  df-struct 17240  df-sets 17257  df-slot 17275  df-ndx 17287  df-base 17303  df-ress 17324  df-plusg 17356  df-mulr 17357  df-starv 17358  df-sca 17359  df-vsca 17360  df-ip 17361  df-tset 17362  df-ple 17363  df-ds 17365  df-unif 17366  df-hom 17367  df-cco 17368  df-0g 17527  df-gsum 17528  df-prds 17533  df-pws 17535  df-mre 17671  df-mrc 17672  df-acs 17674  df-mgm 18731  df-sgrp 18822  df-mnd 18838  df-mhm 18892  df-submnd 18893  df-efmnd 18979  df-grp 19061  df-minusg 19062  df-sbg 19063  df-mulg 19192  df-subg 19247  df-ghm 19342  df-gim 19387  df-cntz 19445  df-oppg 19474  df-symg 19498  df-pmtr 19570  df-psgn 19619  df-evpm 19620  df-cmn 19910  df-abl 19911  df-mgp 20275  df-rng 20289  df-ur 20322  df-ring 20375  df-cring 20376  df-oppr 20479  df-dvdsr 20499  df-unit 20500  df-invr 20530  df-dvr 20543  df-rhm 20614  df-nzr 20674  df-subrng 20709  df-subrg 20733  df-drng 20893  df-field 20894  df-lmod 21047  df-lss 21117  df-lsp 21157  df-lmhm 21207  df-lbs 21260  df-sra 21358  df-rgmod 21359  df-cnfld 21587  df-zring 21661  df-zrh 21717  df-dsmm 21946  df-frlm 21961  df-uvc 21997  df-lindf 22020  df-mat 22631  df-mdet 22808
This theorem is used by:  matunitlindf  22904
  Copyright terms: Public domain W3C validator