Users' Mathboxes Mathbox for Brendan Leahy < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  matunitlindflem1 Structured version   Visualization version   GIF version

Theorem matunitlindflem1 37606
Description: One direction of matunitlindf 37608. (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 20625 . . . . 5 (𝑅 ∈ Field ↔ (𝑅 ∈ DivRing ∧ 𝑅 ∈ CRing))
21simplbi 497 . . . 4 (𝑅 ∈ Field → 𝑅 ∈ DivRing)
3 drngring 20621 . . . 4 (𝑅 ∈ DivRing → 𝑅 ∈ Ring)
42, 3syl 17 . . 3 (𝑅 ∈ Field → 𝑅 ∈ Ring)
5 eqid 2729 . . . . . . . . 9 (𝑅 freeLMod 𝐼) = (𝑅 freeLMod 𝐼)
65frlmlmod 21656 . . . . . . . 8 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → (𝑅 freeLMod 𝐼) ∈ LMod)
76adantlr 715 . . . . . . 7 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (𝑅 freeLMod 𝐼) ∈ LMod)
8 simpr 484 . . . . . . 7 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → 𝐼 ∈ (Fin ∖ {∅}))
9 eldifi 4082 . . . . . . . . . 10 (𝐼 ∈ (Fin ∖ {∅}) → 𝐼 ∈ Fin)
10 eqid 2729 . . . . . . . . . . 11 (Base‘𝑅) = (Base‘𝑅)
115, 10frlmfibas 21669 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) → ((Base‘𝑅) ↑m 𝐼) = (Base‘(𝑅 freeLMod 𝐼)))
129, 11sylan2 593 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → ((Base‘𝑅) ↑m 𝐼) = (Base‘(𝑅 freeLMod 𝐼)))
13 fvex 6835 . . . . . . . . . 10 (Base‘𝑅) ∈ V
14 curf 37588 . . . . . . . . . 10 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ (Fin ∖ {∅}) ∧ (Base‘𝑅) ∈ V) → curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼))
1513, 14mp3an3 1452 . . . . . . . . 9 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ (Fin ∖ {∅})) → curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼))
16 feq3 6632 . . . . . . . . . 10 (((Base‘𝑅) ↑m 𝐼) = (Base‘(𝑅 freeLMod 𝐼)) → (curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼) ↔ curry 𝑀:𝐼⟶(Base‘(𝑅 freeLMod 𝐼))))
1716biimpa 476 . . . . . . . . 9 ((((Base‘𝑅) ↑m 𝐼) = (Base‘(𝑅 freeLMod 𝐼)) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) → curry 𝑀:𝐼⟶(Base‘(𝑅 freeLMod 𝐼)))
1812, 15, 17syl2an 596 . . . . . . . 8 (((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ (Fin ∖ {∅}))) → curry 𝑀:𝐼⟶(Base‘(𝑅 freeLMod 𝐼)))
1918anandirs 679 . . . . . . 7 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → curry 𝑀:𝐼⟶(Base‘(𝑅 freeLMod 𝐼)))
20 eqid 2729 . . . . . . . 8 (Base‘(𝑅 freeLMod 𝐼)) = (Base‘(𝑅 freeLMod 𝐼))
21 eqid 2729 . . . . . . . 8 (Scalar‘(𝑅 freeLMod 𝐼)) = (Scalar‘(𝑅 freeLMod 𝐼))
22 eqid 2729 . . . . . . . 8 ( ·𝑠 ‘(𝑅 freeLMod 𝐼)) = ( ·𝑠 ‘(𝑅 freeLMod 𝐼))
23 eqid 2729 . . . . . . . 8 (0g‘(𝑅 freeLMod 𝐼)) = (0g‘(𝑅 freeLMod 𝐼))
24 eqid 2729 . . . . . . . 8 (0g‘(Scalar‘(𝑅 freeLMod 𝐼))) = (0g‘(Scalar‘(𝑅 freeLMod 𝐼)))
25 eqid 2729 . . . . . . . 8 (Base‘((Scalar‘(𝑅 freeLMod 𝐼)) freeLMod 𝐼)) = (Base‘((Scalar‘(𝑅 freeLMod 𝐼)) freeLMod 𝐼))
2620, 21, 22, 23, 24, 25islindf4 21745 . . . . . . 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 1373 . . . . . 6 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (curry 𝑀 LIndF (𝑅 freeLMod 𝐼) ↔ ∀𝑓 ∈ (Base‘((Scalar‘(𝑅 freeLMod 𝐼)) freeLMod 𝐼))(((𝑅 freeLMod 𝐼) Σg (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀)) = (0g‘(𝑅 freeLMod 𝐼)) → 𝑓 = (𝐼 × {(0g‘(Scalar‘(𝑅 freeLMod 𝐼)))}))))
285frlmsca 21660 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → 𝑅 = (Scalar‘(𝑅 freeLMod 𝐼)))
2928fvoveq1d 7371 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → (Base‘(𝑅 freeLMod 𝐼)) = (Base‘((Scalar‘(𝑅 freeLMod 𝐼)) freeLMod 𝐼)))
3012, 29eqtrd 2764 . . . . . . . 8 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → ((Base‘𝑅) ↑m 𝐼) = (Base‘((Scalar‘(𝑅 freeLMod 𝐼)) freeLMod 𝐼)))
3130adantlr 715 . . . . . . 7 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → ((Base‘𝑅) ↑m 𝐼) = (Base‘((Scalar‘(𝑅 freeLMod 𝐼)) freeLMod 𝐼)))
32 elmapi 8776 . . . . . . . . . 10 (𝑓 ∈ ((Base‘𝑅) ↑m 𝐼) → 𝑓:𝐼⟶(Base‘𝑅))
33 ffn 6652 . . . . . . . . . . . . . . 15 (𝑓:𝐼⟶(Base‘𝑅) → 𝑓 Fn 𝐼)
3433adantl 481 . . . . . . . . . . . . . 14 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → 𝑓 Fn 𝐼)
3519ffnd 6653 . . . . . . . . . . . . . . 15 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → curry 𝑀 Fn 𝐼)
3635adantr 480 . . . . . . . . . . . . . 14 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → curry 𝑀 Fn 𝐼)
37 simplr 768 . . . . . . . . . . . . . 14 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → 𝐼 ∈ (Fin ∖ {∅}))
38 inidm 4178 . . . . . . . . . . . . . 14 (𝐼𝐼) = 𝐼
39 eqidd 2730 . . . . . . . . . . . . . 14 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (𝑓𝑛) = (𝑓𝑛))
40 eqidd 2730 . . . . . . . . . . . . . 14 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (curry 𝑀𝑛) = (curry 𝑀𝑛))
4134, 36, 37, 37, 38, 39, 40offval 7622 . . . . . . . . . . . . 13 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀) = (𝑛𝐼 ↦ ((𝑓𝑛)( ·𝑠 ‘(𝑅 freeLMod 𝐼))(curry 𝑀𝑛))))
42 simpllr 775 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → 𝐼 ∈ (Fin ∖ {∅}))
43 ffvelcdm 7015 . . . . . . . . . . . . . . . . 17 ((𝑓:𝐼⟶(Base‘𝑅) ∧ 𝑛𝐼) → (𝑓𝑛) ∈ (Base‘𝑅))
4443adantll 714 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (𝑓𝑛) ∈ (Base‘𝑅))
4519ffvelcdmda 7018 . . . . . . . . . . . . . . . . 17 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑛𝐼) → (curry 𝑀𝑛) ∈ (Base‘(𝑅 freeLMod 𝐼)))
4645adantlr 715 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (curry 𝑀𝑛) ∈ (Base‘(𝑅 freeLMod 𝐼)))
47 eqid 2729 . . . . . . . . . . . . . . . 16 (.r𝑅) = (.r𝑅)
485, 20, 10, 42, 44, 46, 22, 47frlmvscafval 21673 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → ((𝑓𝑛)( ·𝑠 ‘(𝑅 freeLMod 𝐼))(curry 𝑀𝑛)) = ((𝐼 × {(𝑓𝑛)}) ∘f (.r𝑅)(curry 𝑀𝑛)))
49 fvex 6835 . . . . . . . . . . . . . . . . 17 (𝑓𝑛) ∈ V
50 fnconstg 6712 . . . . . . . . . . . . . . . . 17 ((𝑓𝑛) ∈ V → (𝐼 × {(𝑓𝑛)}) Fn 𝐼)
5149, 50mp1i 13 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (𝐼 × {(𝑓𝑛)}) Fn 𝐼)
5215ffvelcdmda 7018 . . . . . . . . . . . . . . . . . . 19 (((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑛𝐼) → (curry 𝑀𝑛) ∈ ((Base‘𝑅) ↑m 𝐼))
53 elmapfn 8792 . . . . . . . . . . . . . . . . . . 19 ((curry 𝑀𝑛) ∈ ((Base‘𝑅) ↑m 𝐼) → (curry 𝑀𝑛) Fn 𝐼)
5452, 53syl 17 . . . . . . . . . . . . . . . . . 18 (((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑛𝐼) → (curry 𝑀𝑛) Fn 𝐼)
5554adantlll 718 . . . . . . . . . . . . . . . . 17 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑛𝐼) → (curry 𝑀𝑛) Fn 𝐼)
5655adantlr 715 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (curry 𝑀𝑛) Fn 𝐼)
5749fvconst2 7140 . . . . . . . . . . . . . . . . 17 (𝑘𝐼 → ((𝐼 × {(𝑓𝑛)})‘𝑘) = (𝑓𝑛))
5857adantl 481 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) ∧ 𝑘𝐼) → ((𝐼 × {(𝑓𝑛)})‘𝑘) = (𝑓𝑛))
59 ffn 6652 . . . . . . . . . . . . . . . . . . . 20 (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) → 𝑀 Fn (𝐼 × 𝐼))
6059anim2i 617 . . . . . . . . . . . . . . . . . . 19 ((𝐼 ∈ (Fin ∖ {∅}) ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) → (𝐼 ∈ (Fin ∖ {∅}) ∧ 𝑀 Fn (𝐼 × 𝐼)))
6160ancoms 458 . . . . . . . . . . . . . . . . . 18 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (𝐼 ∈ (Fin ∖ {∅}) ∧ 𝑀 Fn (𝐼 × 𝐼)))
6261ad4ant23 753 . . . . . . . . . . . . . . . . 17 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (𝐼 ∈ (Fin ∖ {∅}) ∧ 𝑀 Fn (𝐼 × 𝐼)))
63 curfv 37590 . . . . . . . . . . . . . . . . . . . 20 (((𝑀 Fn (𝐼 × 𝐼) ∧ 𝑛𝐼𝑘𝐼) ∧ 𝐼 ∈ (Fin ∖ {∅})) → ((curry 𝑀𝑛)‘𝑘) = (𝑛𝑀𝑘))
64633exp1 1353 . . . . . . . . . . . . . . . . . . 19 (𝑀 Fn (𝐼 × 𝐼) → (𝑛𝐼 → (𝑘𝐼 → (𝐼 ∈ (Fin ∖ {∅}) → ((curry 𝑀𝑛)‘𝑘) = (𝑛𝑀𝑘)))))
6564com4r 94 . . . . . . . . . . . . . . . . . 18 (𝐼 ∈ (Fin ∖ {∅}) → (𝑀 Fn (𝐼 × 𝐼) → (𝑛𝐼 → (𝑘𝐼 → ((curry 𝑀𝑛)‘𝑘) = (𝑛𝑀𝑘)))))
6665imp41 425 . . . . . . . . . . . . . . . . 17 ((((𝐼 ∈ (Fin ∖ {∅}) ∧ 𝑀 Fn (𝐼 × 𝐼)) ∧ 𝑛𝐼) ∧ 𝑘𝐼) → ((curry 𝑀𝑛)‘𝑘) = (𝑛𝑀𝑘))
6762, 66sylanl1 680 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) ∧ 𝑘𝐼) → ((curry 𝑀𝑛)‘𝑘) = (𝑛𝑀𝑘))
6851, 56, 42, 42, 38, 58, 67offval 7622 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → ((𝐼 × {(𝑓𝑛)}) ∘f (.r𝑅)(curry 𝑀𝑛)) = (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))
6948, 68eqtrd 2764 . . . . . . . . . . . . . 14 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → ((𝑓𝑛)( ·𝑠 ‘(𝑅 freeLMod 𝐼))(curry 𝑀𝑛)) = (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))
7069mpteq2dva 5185 . . . . . . . . . . . . 13 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (𝑛𝐼 ↦ ((𝑓𝑛)( ·𝑠 ‘(𝑅 freeLMod 𝐼))(curry 𝑀𝑛))) = (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))
7141, 70eqtrd 2764 . . . . . . . . . . . 12 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀) = (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))
7271oveq2d 7365 . . . . . . . . . . 11 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → ((𝑅 freeLMod 𝐼) Σg (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀)) = ((𝑅 freeLMod 𝐼) Σg (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))))
73 simplll 774 . . . . . . . . . . . 12 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → 𝑅 ∈ Ring)
74 simp-4l 782 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) ∧ 𝑘𝐼) → 𝑅 ∈ Ring)
7543ad4ant23 753 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) ∧ 𝑘𝐼) → (𝑓𝑛) ∈ (Base‘𝑅))
76 fovcdm 7519 . . . . . . . . . . . . . . . . 17 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑛𝐼𝑘𝐼) → (𝑛𝑀𝑘) ∈ (Base‘𝑅))
7776ad5ant245 1363 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) ∧ 𝑘𝐼) → (𝑛𝑀𝑘) ∈ (Base‘𝑅))
7810, 47ringcl 20135 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ Ring ∧ (𝑓𝑛) ∈ (Base‘𝑅) ∧ (𝑛𝑀𝑘) ∈ (Base‘𝑅)) → ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)) ∈ (Base‘𝑅))
7974, 75, 77, 78syl3anc 1373 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) ∧ 𝑘𝐼) → ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)) ∈ (Base‘𝑅))
8079fmpttd 7049 . . . . . . . . . . . . . 14 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))):𝐼⟶(Base‘𝑅))
8180adantllr 719 . . . . . . . . . . . . 13 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))):𝐼⟶(Base‘𝑅))
82 elmapg 8766 . . . . . . . . . . . . . . . . 17 (((Base‘𝑅) ∈ V ∧ 𝐼 ∈ (Fin ∖ {∅})) → ((𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ ((Base‘𝑅) ↑m 𝐼) ↔ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))):𝐼⟶(Base‘𝑅)))
8313, 82mpan 690 . . . . . . . . . . . . . . . 16 (𝐼 ∈ (Fin ∖ {∅}) → ((𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ ((Base‘𝑅) ↑m 𝐼) ↔ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))):𝐼⟶(Base‘𝑅)))
8483adantl 481 . . . . . . . . . . . . . . 15 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → ((𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ ((Base‘𝑅) ↑m 𝐼) ↔ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))):𝐼⟶(Base‘𝑅)))
8512eleq2d 2814 . . . . . . . . . . . . . . 15 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → ((𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ ((Base‘𝑅) ↑m 𝐼) ↔ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘(𝑅 freeLMod 𝐼))))
8684, 85bitr3d 281 . . . . . . . . . . . . . 14 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → ((𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))):𝐼⟶(Base‘𝑅) ↔ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘(𝑅 freeLMod 𝐼))))
8786ad5ant13 756 . . . . . . . . . . . . 13 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → ((𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))):𝐼⟶(Base‘𝑅) ↔ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘(𝑅 freeLMod 𝐼))))
8881, 87mpbid 232 . . . . . . . . . . . 12 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘(𝑅 freeLMod 𝐼)))
89 mptexg 7157 . . . . . . . . . . . . . . . 16 (𝐼 ∈ (Fin ∖ {∅}) → (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ V)
9089ralrimivw 3125 . . . . . . . . . . . . . . 15 (𝐼 ∈ (Fin ∖ {∅}) → ∀𝑛𝐼 (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ V)
91 eqid 2729 . . . . . . . . . . . . . . . 16 (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))
9291fnmpt 6622 . . . . . . . . . . . . . . 15 (∀𝑛𝐼 (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ V → (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) Fn 𝐼)
9390, 92syl 17 . . . . . . . . . . . . . 14 (𝐼 ∈ (Fin ∖ {∅}) → (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) Fn 𝐼)
94 fvexd 6837 . . . . . . . . . . . . . 14 (𝐼 ∈ (Fin ∖ {∅}) → (0g‘(𝑅 freeLMod 𝐼)) ∈ V)
9593, 9, 94fndmfifsupp 9268 . . . . . . . . . . . . 13 (𝐼 ∈ (Fin ∖ {∅}) → (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) finSupp (0g‘(𝑅 freeLMod 𝐼)))
9695ad2antlr 727 . . . . . . . . . . . 12 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) finSupp (0g‘(𝑅 freeLMod 𝐼)))
975, 20, 23, 37, 37, 73, 88, 96frlmgsum 21679 . . . . . . . . . . 11 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → ((𝑅 freeLMod 𝐼) Σg (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))))
9872, 97eqtr2d 2765 . . . . . . . . . 10 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = ((𝑅 freeLMod 𝐼) Σg (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀)))
9932, 98sylan2 593 . . . . . . . . 9 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)) → (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = ((𝑅 freeLMod 𝐼) Σg (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀)))
100 eqid 2729 . . . . . . . . . . 11 (0g𝑅) = (0g𝑅)
1015, 100frlm0 21661 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → (𝐼 × {(0g𝑅)}) = (0g‘(𝑅 freeLMod 𝐼)))
102101ad4ant13 751 . . . . . . . . 9 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)) → (𝐼 × {(0g𝑅)}) = (0g‘(𝑅 freeLMod 𝐼)))
10399, 102eqeq12d 2745 . . . . . . . 8 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)) → ((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ↔ ((𝑅 freeLMod 𝐼) Σg (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀)) = (0g‘(𝑅 freeLMod 𝐼))))
10428fveq2d 6826 . . . . . . . . . . . 12 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → (0g𝑅) = (0g‘(Scalar‘(𝑅 freeLMod 𝐼))))
105104sneqd 4589 . . . . . . . . . . 11 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → {(0g𝑅)} = {(0g‘(Scalar‘(𝑅 freeLMod 𝐼)))})
106105xpeq2d 5649 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → (𝐼 × {(0g𝑅)}) = (𝐼 × {(0g‘(Scalar‘(𝑅 freeLMod 𝐼)))}))
107106eqeq2d 2740 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → (𝑓 = (𝐼 × {(0g𝑅)}) ↔ 𝑓 = (𝐼 × {(0g‘(Scalar‘(𝑅 freeLMod 𝐼)))})))
108107ad4ant13 751 . . . . . . . 8 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)) → (𝑓 = (𝐼 × {(0g𝑅)}) ↔ 𝑓 = (𝐼 × {(0g‘(Scalar‘(𝑅 freeLMod 𝐼)))})))
109103, 108imbi12d 344 . . . . . . 7 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)) → (((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) → 𝑓 = (𝐼 × {(0g𝑅)})) ↔ (((𝑅 freeLMod 𝐼) Σg (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀)) = (0g‘(𝑅 freeLMod 𝐼)) → 𝑓 = (𝐼 × {(0g‘(Scalar‘(𝑅 freeLMod 𝐼)))}))))
11031, 109raleqbidva 3295 . . . . . 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 282 . . . . 5 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (curry 𝑀 LIndF (𝑅 freeLMod 𝐼) ↔ ∀𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) → 𝑓 = (𝐼 × {(0g𝑅)}))))
112111notbid 318 . . . 4 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (¬ curry 𝑀 LIndF (𝑅 freeLMod 𝐼) ↔ ¬ ∀𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) → 𝑓 = (𝐼 × {(0g𝑅)}))))
113 rexanali 3083 . . . 4 (∃𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ∧ ¬ 𝑓 = (𝐼 × {(0g𝑅)})) ↔ ¬ ∀𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) → 𝑓 = (𝐼 × {(0g𝑅)})))
114112, 113bitr4di 289 . . 3 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (¬ curry 𝑀 LIndF (𝑅 freeLMod 𝐼) ↔ ∃𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ∧ ¬ 𝑓 = (𝐼 × {(0g𝑅)}))))
1154, 114sylanl1 680 . 2 (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (¬ curry 𝑀 LIndF (𝑅 freeLMod 𝐼) ↔ ∃𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ∧ ¬ 𝑓 = (𝐼 × {(0g𝑅)}))))
116 fconstfv 7148 . . . . . . . . . . . 12 (𝑓:𝐼⟶{(0g𝑅)} ↔ (𝑓 Fn 𝐼 ∧ ∀𝑖𝐼 (𝑓𝑖) = (0g𝑅)))
117 fvex 6835 . . . . . . . . . . . . 13 (0g𝑅) ∈ V
118117fconst2 7141 . . . . . . . . . . . 12 (𝑓:𝐼⟶{(0g𝑅)} ↔ 𝑓 = (𝐼 × {(0g𝑅)}))
119116, 118sylbb1 237 . . . . . . . . . . 11 ((𝑓 Fn 𝐼 ∧ ∀𝑖𝐼 (𝑓𝑖) = (0g𝑅)) → 𝑓 = (𝐼 × {(0g𝑅)}))
120119ex 412 . . . . . . . . . 10 (𝑓 Fn 𝐼 → (∀𝑖𝐼 (𝑓𝑖) = (0g𝑅) → 𝑓 = (𝐼 × {(0g𝑅)})))
121120con3d 152 . . . . . . . . 9 (𝑓 Fn 𝐼 → (¬ 𝑓 = (𝐼 × {(0g𝑅)}) → ¬ ∀𝑖𝐼 (𝑓𝑖) = (0g𝑅)))
122 df-ne 2926 . . . . . . . . . . 11 ((𝑓𝑖) ≠ (0g𝑅) ↔ ¬ (𝑓𝑖) = (0g𝑅))
123122rexbii 3076 . . . . . . . . . 10 (∃𝑖𝐼 (𝑓𝑖) ≠ (0g𝑅) ↔ ∃𝑖𝐼 ¬ (𝑓𝑖) = (0g𝑅))
124 rexnal 3081 . . . . . . . . . 10 (∃𝑖𝐼 ¬ (𝑓𝑖) = (0g𝑅) ↔ ¬ ∀𝑖𝐼 (𝑓𝑖) = (0g𝑅))
125123, 124bitri 275 . . . . . . . . 9 (∃𝑖𝐼 (𝑓𝑖) ≠ (0g𝑅) ↔ ¬ ∀𝑖𝐼 (𝑓𝑖) = (0g𝑅))
126121, 125imbitrrdi 252 . . . . . . . 8 (𝑓 Fn 𝐼 → (¬ 𝑓 = (𝐼 × {(0g𝑅)}) → ∃𝑖𝐼 (𝑓𝑖) ≠ (0g𝑅)))
12733, 126syl 17 . . . . . . 7 (𝑓:𝐼⟶(Base‘𝑅) → (¬ 𝑓 = (𝐼 × {(0g𝑅)}) → ∃𝑖𝐼 (𝑓𝑖) ≠ (0g𝑅)))
128127adantl 481 . . . . . 6 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (¬ 𝑓 = (𝐼 × {(0g𝑅)}) → ∃𝑖𝐼 (𝑓𝑖) ≠ (0g𝑅)))
129 neldifsn 4743 . . . . . . . . . . 11 ¬ 𝑖 ∈ (𝐼 ∖ {𝑖})
130 difss 4087 . . . . . . . . . . 11 (𝐼 ∖ {𝑖}) ⊆ 𝐼
131 diffi 9089 . . . . . . . . . . . . 13 (𝐼 ∈ Fin → (𝐼 ∖ {𝑖}) ∈ Fin)
132131ad4antlr 733 . . . . . . . . . . . 12 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝐼 ∖ {𝑖}) ∧ (𝐼 ∖ {𝑖}) ⊆ 𝐼)) → (𝐼 ∖ {𝑖}) ∈ Fin)
133 eleq2 2817 . . . . . . . . . . . . . . . . 17 (𝑦 = ∅ → (𝑖𝑦𝑖 ∈ ∅))
134133notbid 318 . . . . . . . . . . . . . . . 16 (𝑦 = ∅ → (¬ 𝑖𝑦 ↔ ¬ 𝑖 ∈ ∅))
135 sseq1 3961 . . . . . . . . . . . . . . . 16 (𝑦 = ∅ → (𝑦𝐼 ↔ ∅ ⊆ 𝐼))
136134, 135anbi12d 632 . . . . . . . . . . . . . . 15 (𝑦 = ∅ → ((¬ 𝑖𝑦𝑦𝐼) ↔ (¬ 𝑖 ∈ ∅ ∧ ∅ ⊆ 𝐼)))
137136anbi2d 630 . . . . . . . . . . . . . 14 (𝑦 = ∅ → ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑦𝑦𝐼)) ↔ (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ ∅ ∧ ∅ ⊆ 𝐼))))
138 mpteq1 5181 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 = ∅ → (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛 ∈ ∅ ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))
139 mpt0 6624 . . . . . . . . . . . . . . . . . . . . . 22 (𝑛 ∈ ∅ ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = ∅
140138, 139eqtrdi 2780 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 = ∅ → (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = ∅)
141140oveq2d 7365 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = ∅ → (𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑅 Σg ∅))
142100gsum0 18558 . . . . . . . . . . . . . . . . . . . 20 (𝑅 Σg ∅) = (0g𝑅)
143141, 142eqtrdi 2780 . . . . . . . . . . . . . . . . . . 19 (𝑦 = ∅ → (𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (0g𝑅))
144143oveq1d 7364 . . . . . . . . . . . . . . . . . 18 (𝑦 = ∅ → ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)))
145144ifeq1d 4496 . . . . . . . . . . . . . . . . 17 (𝑦 = ∅ → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
146145mpoeq3dv 7428 . . . . . . . . . . . . . . . 16 (𝑦 = ∅ → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))
147146fveq2d 6826 . . . . . . . . . . . . . . 15 (𝑦 = ∅ → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
148147eqeq2d 2740 . . . . . . . . . . . . . 14 (𝑦 = ∅ → (((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) ↔ ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))))
149137, 148imbi12d 344 . . . . . . . . . . . . 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 2124 . . . . . . . . . . . . . . . . 17 (𝑦 = 𝑥 → (𝑖𝑦𝑖𝑥))
151150notbid 318 . . . . . . . . . . . . . . . 16 (𝑦 = 𝑥 → (¬ 𝑖𝑦 ↔ ¬ 𝑖𝑥))
152 sseq1 3961 . . . . . . . . . . . . . . . 16 (𝑦 = 𝑥 → (𝑦𝐼𝑥𝐼))
153151, 152anbi12d 632 . . . . . . . . . . . . . . 15 (𝑦 = 𝑥 → ((¬ 𝑖𝑦𝑦𝐼) ↔ (¬ 𝑖𝑥𝑥𝐼)))
154153anbi2d 630 . . . . . . . . . . . . . 14 (𝑦 = 𝑥 → ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑦𝑦𝐼)) ↔ (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑥𝑥𝐼))))
155 mpteq1 5181 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = 𝑥 → (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))
156155oveq2d 7365 . . . . . . . . . . . . . . . . . . 19 (𝑦 = 𝑥 → (𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))))
157156oveq1d 7364 . . . . . . . . . . . . . . . . . 18 (𝑦 = 𝑥 → ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)))
158157ifeq1d 4496 . . . . . . . . . . . . . . . . 17 (𝑦 = 𝑥 → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
159158mpoeq3dv 7428 . . . . . . . . . . . . . . . 16 (𝑦 = 𝑥 → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))
160159fveq2d 6826 . . . . . . . . . . . . . . 15 (𝑦 = 𝑥 → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
161160eqeq2d 2740 . . . . . . . . . . . . . 14 (𝑦 = 𝑥 → (((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) ↔ ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))))
162154, 161imbi12d 344 . . . . . . . . . . . . 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 2817 . . . . . . . . . . . . . . . . 17 (𝑦 = (𝑥 ∪ {𝑧}) → (𝑖𝑦𝑖 ∈ (𝑥 ∪ {𝑧})))
164163notbid 318 . . . . . . . . . . . . . . . 16 (𝑦 = (𝑥 ∪ {𝑧}) → (¬ 𝑖𝑦 ↔ ¬ 𝑖 ∈ (𝑥 ∪ {𝑧})))
165 sseq1 3961 . . . . . . . . . . . . . . . 16 (𝑦 = (𝑥 ∪ {𝑧}) → (𝑦𝐼 ↔ (𝑥 ∪ {𝑧}) ⊆ 𝐼))
166164, 165anbi12d 632 . . . . . . . . . . . . . . 15 (𝑦 = (𝑥 ∪ {𝑧}) → ((¬ 𝑖𝑦𝑦𝐼) ↔ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)))
167166anbi2d 630 . . . . . . . . . . . . . 14 (𝑦 = (𝑥 ∪ {𝑧}) → ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑦𝑦𝐼)) ↔ (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼))))
168 mpteq1 5181 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = (𝑥 ∪ {𝑧}) → (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))
169168oveq2d 7365 . . . . . . . . . . . . . . . . . . 19 (𝑦 = (𝑥 ∪ {𝑧}) → (𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))))
170169oveq1d 7364 . . . . . . . . . . . . . . . . . 18 (𝑦 = (𝑥 ∪ {𝑧}) → ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)))
171170ifeq1d 4496 . . . . . . . . . . . . . . . . 17 (𝑦 = (𝑥 ∪ {𝑧}) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
172171mpoeq3dv 7428 . . . . . . . . . . . . . . . 16 (𝑦 = (𝑥 ∪ {𝑧}) → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))
173172fveq2d 6826 . . . . . . . . . . . . . . 15 (𝑦 = (𝑥 ∪ {𝑧}) → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
174173eqeq2d 2740 . . . . . . . . . . . . . 14 (𝑦 = (𝑥 ∪ {𝑧}) → (((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) ↔ ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))))
175167, 174imbi12d 344 . . . . . . . . . . . . 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 2817 . . . . . . . . . . . . . . . . 17 (𝑦 = (𝐼 ∖ {𝑖}) → (𝑖𝑦𝑖 ∈ (𝐼 ∖ {𝑖})))
177176notbid 318 . . . . . . . . . . . . . . . 16 (𝑦 = (𝐼 ∖ {𝑖}) → (¬ 𝑖𝑦 ↔ ¬ 𝑖 ∈ (𝐼 ∖ {𝑖})))
178 sseq1 3961 . . . . . . . . . . . . . . . 16 (𝑦 = (𝐼 ∖ {𝑖}) → (𝑦𝐼 ↔ (𝐼 ∖ {𝑖}) ⊆ 𝐼))
179177, 178anbi12d 632 . . . . . . . . . . . . . . 15 (𝑦 = (𝐼 ∖ {𝑖}) → ((¬ 𝑖𝑦𝑦𝐼) ↔ (¬ 𝑖 ∈ (𝐼 ∖ {𝑖}) ∧ (𝐼 ∖ {𝑖}) ⊆ 𝐼)))
180179anbi2d 630 . . . . . . . . . . . . . 14 (𝑦 = (𝐼 ∖ {𝑖}) → ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑦𝑦𝐼)) ↔ (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝐼 ∖ {𝑖}) ∧ (𝐼 ∖ {𝑖}) ⊆ 𝐼))))
181 mpteq1 5181 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = (𝐼 ∖ {𝑖}) → (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))
182181oveq2d 7365 . . . . . . . . . . . . . . . . . . 19 (𝑦 = (𝐼 ∖ {𝑖}) → (𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))))
183182oveq1d 7364 . . . . . . . . . . . . . . . . . 18 (𝑦 = (𝐼 ∖ {𝑖}) → ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)))
184183ifeq1d 4496 . . . . . . . . . . . . . . . . 17 (𝑦 = (𝐼 ∖ {𝑖}) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
185184mpoeq3dv 7428 . . . . . . . . . . . . . . . 16 (𝑦 = (𝐼 ∖ {𝑖}) → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))
186185fveq2d 6826 . . . . . . . . . . . . . . 15 (𝑦 = (𝐼 ∖ {𝑖}) → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
187186eqeq2d 2740 . . . . . . . . . . . . . 14 (𝑦 = (𝐼 ∖ {𝑖}) → (((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) ↔ ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))))
188180, 187imbi12d 344 . . . . . . . . . . . . 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 7480 . . . . . . . . . . . . . . . . . 18 (𝑀 Fn (𝐼 × 𝐼) ↔ 𝑀 = (𝑗𝐼, 𝑘𝐼 ↦ (𝑗𝑀𝑘)))
19059, 189sylib 218 . . . . . . . . . . . . . . . . 17 (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) → 𝑀 = (𝑗𝐼, 𝑘𝐼 ↦ (𝑗𝑀𝑘)))
191190adantl 481 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) → 𝑀 = (𝑗𝐼, 𝑘𝐼 ↦ (𝑗𝑀𝑘)))
192 ringgrp 20123 . . . . . . . . . . . . . . . . . 18 (𝑅 ∈ Ring → 𝑅 ∈ Grp)
1934, 192syl 17 . . . . . . . . . . . . . . . . 17 (𝑅 ∈ Field → 𝑅 ∈ Grp)
194 oveq1 7356 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 = 𝑗 → (𝑖𝑀𝑘) = (𝑗𝑀𝑘))
195194equcoms 2020 . . . . . . . . . . . . . . . . . . . . 21 (𝑗 = 𝑖 → (𝑖𝑀𝑘) = (𝑗𝑀𝑘))
196195oveq2d 7365 . . . . . . . . . . . . . . . . . . . 20 (𝑗 = 𝑖 → ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)) = ((0g𝑅)(+g𝑅)(𝑗𝑀𝑘)))
197 simp1l 1198 . . . . . . . . . . . . . . . . . . . . 21 (((𝑅 ∈ Grp ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑗𝐼𝑘𝐼) → 𝑅 ∈ Grp)
198 fovcdm 7519 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑗𝐼𝑘𝐼) → (𝑗𝑀𝑘) ∈ (Base‘𝑅))
1991983adant1l 1177 . . . . . . . . . . . . . . . . . . . . 21 (((𝑅 ∈ Grp ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑗𝐼𝑘𝐼) → (𝑗𝑀𝑘) ∈ (Base‘𝑅))
200 eqid 2729 . . . . . . . . . . . . . . . . . . . . . 22 (+g𝑅) = (+g𝑅)
20110, 200, 100grplid 18846 . . . . . . . . . . . . . . . . . . . . 21 ((𝑅 ∈ Grp ∧ (𝑗𝑀𝑘) ∈ (Base‘𝑅)) → ((0g𝑅)(+g𝑅)(𝑗𝑀𝑘)) = (𝑗𝑀𝑘))
202197, 199, 201syl2anc 584 . . . . . . . . . . . . . . . . . . . 20 (((𝑅 ∈ Grp ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑗𝐼𝑘𝐼) → ((0g𝑅)(+g𝑅)(𝑗𝑀𝑘)) = (𝑗𝑀𝑘))
203196, 202sylan9eqr 2786 . . . . . . . . . . . . . . . . . . 19 ((((𝑅 ∈ Grp ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑗𝐼𝑘𝐼) ∧ 𝑗 = 𝑖) → ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)) = (𝑗𝑀𝑘))
204 eqidd 2730 . . . . . . . . . . . . . . . . . . 19 ((((𝑅 ∈ Grp ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑗𝐼𝑘𝐼) ∧ ¬ 𝑗 = 𝑖) → (𝑗𝑀𝑘) = (𝑗𝑀𝑘))
205203, 204ifeqda 4513 . . . . . . . . . . . . . . . . . 18 (((𝑅 ∈ Grp ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑗𝐼𝑘𝐼) → if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = (𝑗𝑀𝑘))
206205mpoeq3dva 7426 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ Grp ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ (𝑗𝑀𝑘)))
207193, 206sylan 580 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ (𝑗𝑀𝑘)))
208191, 207eqtr4d 2767 . . . . . . . . . . . . . . 15 ((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) → 𝑀 = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))
209208fveq2d 6826 . . . . . . . . . . . . . 14 ((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
210209ad4antr 732 . . . . . . . . . . . . 13 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ ∅ ∧ ∅ ⊆ 𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
211 elun1 4133 . . . . . . . . . . . . . . . . . . . . 21 (𝑖𝑥𝑖 ∈ (𝑥 ∪ {𝑧}))
212211con3i 154 . . . . . . . . . . . . . . . . . . . 20 𝑖 ∈ (𝑥 ∪ {𝑧}) → ¬ 𝑖𝑥)
213 ssun1 4129 . . . . . . . . . . . . . . . . . . . . 21 𝑥 ⊆ (𝑥 ∪ {𝑧})
214 sstr 3944 . . . . . . . . . . . . . . . . . . . . 21 ((𝑥 ⊆ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) → 𝑥𝐼)
215213, 214mpan 690 . . . . . . . . . . . . . . . . . . . 20 ((𝑥 ∪ {𝑧}) ⊆ 𝐼𝑥𝐼)
216212, 215anim12i 613 . . . . . . . . . . . . . . . . . . 19 ((¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) → (¬ 𝑖𝑥𝑥𝐼))
217216anim2i 617 . . . . . . . . . . . . . . . . . 18 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑥𝑥𝐼)))
218217adantr 480 . . . . . . . . . . . . . . . . 17 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) → (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑥𝑥𝐼)))
219 velsn 4593 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑖 ∈ {𝑧} ↔ 𝑖 = 𝑧)
220 elun2 4134 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑖 ∈ {𝑧} → 𝑖 ∈ (𝑥 ∪ {𝑧}))
221219, 220sylbir 235 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 = 𝑧𝑖 ∈ (𝑥 ∪ {𝑧}))
222221necon3bi 2951 . . . . . . . . . . . . . . . . . . . . 21 𝑖 ∈ (𝑥 ∪ {𝑧}) → 𝑖𝑧)
223222anim1i 615 . . . . . . . . . . . . . . . . . . . 20 ((¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) → (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼))
224 ringcmn 20167 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑅 ∈ Ring → 𝑅 ∈ CMnd)
2254, 224syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑅 ∈ Field → 𝑅 ∈ CMnd)
226225ad7antr 738 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → 𝑅 ∈ CMnd)
227 simplr 768 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → 𝐼 ∈ Fin)
228215adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) → 𝑥𝐼)
229 ssfi 9087 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝐼 ∈ Fin ∧ 𝑥𝐼) → 𝑥 ∈ Fin)
230227, 228, 229syl2an 596 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑥 ∈ Fin)
231230ad5ant13 756 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → 𝑥 ∈ Fin)
232215sselda 3935 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝑥 ∪ {𝑧}) ⊆ 𝐼𝑛𝑥) → 𝑛𝐼)
233232adantll 714 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) ∧ 𝑛𝑥) → 𝑛𝐼)
234233ad4ant24 754 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘𝐼) ∧ 𝑛𝑥) → 𝑛𝐼)
2354ad6antr 736 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ 𝑛𝐼) → 𝑅 ∈ Ring)
2362ad2antrr 726 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) → 𝑅 ∈ DivRing)
237 ffvelcdm 7015 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝑓:𝐼⟶(Base‘𝑅) ∧ 𝑖𝐼) → (𝑓𝑖) ∈ (Base‘𝑅))
238237anim2i 617 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((𝑅 ∈ DivRing ∧ (𝑓:𝐼⟶(Base‘𝑅) ∧ 𝑖𝐼)) → (𝑅 ∈ DivRing ∧ (𝑓𝑖) ∈ (Base‘𝑅)))
239238anassrs 467 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((𝑅 ∈ DivRing ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑖𝐼) → (𝑅 ∈ DivRing ∧ (𝑓𝑖) ∈ (Base‘𝑅)))
240 eqid 2729 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (invr𝑅) = (invr𝑅)
24110, 100, 240drnginvrcl 20638 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((𝑅 ∈ DivRing ∧ (𝑓𝑖) ∈ (Base‘𝑅) ∧ (𝑓𝑖) ≠ (0g𝑅)) → ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅))
2422413expa 1118 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((𝑅 ∈ DivRing ∧ (𝑓𝑖) ∈ (Base‘𝑅)) ∧ (𝑓𝑖) ≠ (0g𝑅)) → ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅))
243239, 242sylan 580 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((((𝑅 ∈ DivRing ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑖𝐼) ∧ (𝑓𝑖) ≠ (0g𝑅)) → ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅))
244243anasss 466 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝑅 ∈ DivRing ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅))
245236, 244sylanl1 680 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅))
246245ad2antrr 726 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ 𝑛𝐼) → ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅))
24743ad5ant25 761 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ 𝑛𝐼) → (𝑓𝑛) ∈ (Base‘𝑅))
248 simp-4r 783 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅))
249763expa 1118 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑛𝐼) ∧ 𝑘𝐼) → (𝑛𝑀𝑘) ∈ (Base‘𝑅))
250249an32s 652 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑘𝐼) ∧ 𝑛𝐼) → (𝑛𝑀𝑘) ∈ (Base‘𝑅))
251248, 250sylanl1 680 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ 𝑛𝐼) → (𝑛𝑀𝑘) ∈ (Base‘𝑅))
252235, 247, 251, 78syl3anc 1373 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ 𝑛𝐼) → ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)) ∈ (Base‘𝑅))
25310, 47ringcl 20135 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑅 ∈ Ring ∧ ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅) ∧ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)) ∈ (Base‘𝑅)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘𝑅))
254235, 246, 252, 253syl3anc 1373 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ 𝑛𝐼) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘𝑅))
255254adantllr 719 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘𝐼) ∧ 𝑛𝐼) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘𝑅))
256234, 255syldan 591 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘𝐼) ∧ 𝑛𝑥) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘𝑅))
257256adantllr 719 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) ∧ 𝑛𝑥) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘𝑅))
258 vex 3440 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 𝑧 ∈ V
259258a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → 𝑧 ∈ V)
260 simplr 768 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → ¬ 𝑧𝑥)
261 ssun2 4130 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 {𝑧} ⊆ (𝑥 ∪ {𝑧})
262 sstr 3944 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (({𝑧} ⊆ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) → {𝑧} ⊆ 𝐼)
263261, 262mpan 690 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → {𝑧} ⊆ 𝐼)
264258snss 4736 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑧𝐼 ↔ {𝑧} ⊆ 𝐼)
265263, 264sylibr 234 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑥 ∪ {𝑧}) ⊆ 𝐼𝑧𝐼)
266265adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) → 𝑧𝐼)
2674ad6antr 736 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → 𝑅 ∈ Ring)
2684ad5antr 734 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) → 𝑅 ∈ Ring)
269245adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) → ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅))
270 ffvelcdm 7015 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑓:𝐼⟶(Base‘𝑅) ∧ 𝑧𝐼) → (𝑓𝑧) ∈ (Base‘𝑅))
271270ad4ant24 754 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) → (𝑓𝑧) ∈ (Base‘𝑅))
27210, 47ringcl 20135 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑅 ∈ Ring ∧ ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅) ∧ (𝑓𝑧) ∈ (Base‘𝑅)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧)) ∈ (Base‘𝑅))
273268, 269, 271, 272syl3anc 1373 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧)) ∈ (Base‘𝑅))
274273adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧)) ∈ (Base‘𝑅))
275 fovcdm 7519 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑧𝐼𝑘𝐼) → (𝑧𝑀𝑘) ∈ (Base‘𝑅))
2762753expa 1118 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → (𝑧𝑀𝑘) ∈ (Base‘𝑅))
277248, 276sylanl1 680 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → (𝑧𝑀𝑘) ∈ (Base‘𝑅))
27810, 47ringcl 20135 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑅 ∈ Ring ∧ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧)) ∈ (Base‘𝑅) ∧ (𝑧𝑀𝑘) ∈ (Base‘𝑅)) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)) ∈ (Base‘𝑅))
279267, 274, 277, 278syl3anc 1373 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)) ∈ (Base‘𝑅))
280266, 279sylanl2 681 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘𝐼) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)) ∈ (Base‘𝑅))
281280adantlr 715 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)) ∈ (Base‘𝑅))
282 fveq2 6822 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑛 = 𝑧 → (𝑓𝑛) = (𝑓𝑧))
283 oveq1 7356 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑛 = 𝑧 → (𝑛𝑀𝑘) = (𝑧𝑀𝑘))
284282, 283oveq12d 7367 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑛 = 𝑧 → ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)) = ((𝑓𝑧)(.r𝑅)(𝑧𝑀𝑘)))
285284oveq2d 7365 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑛 = 𝑧 → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑧)(.r𝑅)(𝑧𝑀𝑘))))
286245ad2antrr 726 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅))
287270ad5ant24 760 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → (𝑓𝑧) ∈ (Base‘𝑅))
28810, 47ringass 20138 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑅 ∈ Ring ∧ (((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅) ∧ (𝑓𝑧) ∈ (Base‘𝑅) ∧ (𝑧𝑀𝑘) ∈ (Base‘𝑅))) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑧)(.r𝑅)(𝑧𝑀𝑘))))
289267, 286, 287, 277, 288syl13anc 1374 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑧)(.r𝑅)(𝑧𝑀𝑘))))
290289eqcomd 2735 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑧)(.r𝑅)(𝑧𝑀𝑘))) = ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)))
291266, 290sylanl2 681 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘𝐼) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑧)(.r𝑅)(𝑧𝑀𝑘))) = ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)))
292285, 291sylan9eqr 2786 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘𝐼) ∧ 𝑛 = 𝑧) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) = ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)))
293292adantllr 719 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) ∧ 𝑛 = 𝑧) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) = ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)))
29410, 200, 226, 231, 257, 259, 260, 281, 293gsumunsnd 19837 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → (𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘))))
295294oveq1d 7364 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = (((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)))(+g𝑅)(𝑖𝑀𝑘)))
296 ringabl 20166 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑅 ∈ Ring → 𝑅 ∈ Abel)
2974, 296syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑅 ∈ Field → 𝑅 ∈ Abel)
298297ad6antr 736 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) ∧ 𝑘𝐼) → 𝑅 ∈ Abel)
299225ad6antr 736 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) ∧ 𝑘𝐼) → 𝑅 ∈ CMnd)
300 vex 3440 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 𝑥 ∈ V
301300a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) ∧ 𝑘𝐼) → 𝑥 ∈ V)
302 ssel2 3930 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝑥𝐼𝑛𝑥) → 𝑛𝐼)
303302, 254sylan2 593 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ (𝑥𝐼𝑛𝑥)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘𝑅))
304303anassrs 467 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ 𝑥𝐼) ∧ 𝑛𝑥) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ (Base‘𝑅))
305304fmpttd 7049 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ 𝑥𝐼) → (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))):𝑥⟶(Base‘𝑅))
306305an32s 652 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) ∧ 𝑘𝐼) → (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))):𝑥⟶(Base‘𝑅))
307 ovex 7382 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ V
308 eqid 2729 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))
309307, 308fnmpti 6625 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) Fn 𝑥
310309a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝐼 ∈ Fin ∧ 𝑥𝐼) → (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) Fn 𝑥)
311 fvexd 6837 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝐼 ∈ Fin ∧ 𝑥𝐼) → (0g𝑅) ∈ V)
312310, 229, 311fndmfifsupp 9268 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝐼 ∈ Fin ∧ 𝑥𝐼) → (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) finSupp (0g𝑅))
313312adantll 714 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑥𝐼) → (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) finSupp (0g𝑅))
314313ad5ant14 757 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) ∧ 𝑘𝐼) → (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) finSupp (0g𝑅))
31510, 100, 299, 301, 306, 314gsumcl 19794 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) ∧ 𝑘𝐼) → (𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) ∈ (Base‘𝑅))
316215, 315sylanl2 681 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) ∧ 𝑘𝐼) → (𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) ∈ (Base‘𝑅))
317265, 279sylanl2 681 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) ∧ 𝑘𝐼) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)) ∈ (Base‘𝑅))
318 simpllr 775 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅))
319 simpl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅)) → 𝑖𝐼)
320318, 319anim12i 613 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑖𝐼))
321320adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) → (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑖𝐼))
322 fovcdm 7519 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑖𝐼𝑘𝐼) → (𝑖𝑀𝑘) ∈ (Base‘𝑅))
3233223expa 1118 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑖𝐼) ∧ 𝑘𝐼) → (𝑖𝑀𝑘) ∈ (Base‘𝑅))
324321, 323sylan 580 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) ∧ 𝑘𝐼) → (𝑖𝑀𝑘) ∈ (Base‘𝑅))
32510, 200, 298, 316, 317, 324abl32 19682 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 720 . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 715 . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2764 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = (((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘))))
329328ifeq1d 4496 . . . . . . . . . . . . . . . . . . . . . . . . 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 1131 . . . . . . . . . . . . . . . . . . . . . . . 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 7426 . . . . . . . . . . . . . . . . . . . . . . 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 6826 . . . . . . . . . . . . . . . . . . . . . 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 2729 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝐼 maDet 𝑅) = (𝐼 maDet 𝑅)
3341simprbi 496 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑅 ∈ Field → 𝑅 ∈ CRing)
335334ad5antr 734 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑅 ∈ CRing)
336 simp-4r 783 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝐼 ∈ Fin)
337193ad6antr 736 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) ∧ 𝑘𝐼) → 𝑅 ∈ Grp)
338320adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) → (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑖𝐼))
339338, 323sylan 580 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) ∧ 𝑘𝐼) → (𝑖𝑀𝑘) ∈ (Base‘𝑅))
34010, 200grpcl 18820 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑅 ∈ Grp ∧ (𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) ∈ (Base‘𝑅) ∧ (𝑖𝑀𝑘) ∈ (Base‘𝑅)) → ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) ∈ (Base‘𝑅))
341337, 315, 339, 340syl3anc 1373 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) ∧ 𝑘𝐼) → ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) ∈ (Base‘𝑅))
342228, 341sylanl2 681 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘𝐼) → ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) ∈ (Base‘𝑅))
343248, 266anim12i 613 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑧𝐼))
344343, 276sylan 580 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑘𝐼) → (𝑧𝑀𝑘) ∈ (Base‘𝑅))
345 simp-5r 785 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅))
346345, 198syl3an1 1163 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ 𝑗𝐼𝑘𝐼) → (𝑗𝑀𝑘) ∈ (Base‘𝑅))
347266, 273sylan2 593 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧)) ∈ (Base‘𝑅))
348 simplrl 776 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑖𝐼)
349265ad2antll 729 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑧𝐼)
350 simprl 770 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑖𝑧)
351333, 10, 200, 47, 335, 336, 342, 344, 346, 347, 348, 349, 350mdetero 22495 . . . . . . . . . . . . . . . . . . . . . . 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 480 . . . . . . . . . . . . . . . . . . . . . 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 2764 . . . . . . . . . . . . . . . . . . . . 21 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))))))
354 iftrue 4482 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑗 = 𝑧 → if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)) = (𝑧𝑀𝑘))
355 oveq1 7356 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑗 = 𝑧 → (𝑗𝑀𝑘) = (𝑧𝑀𝑘))
356354, 355eqtr4d 2767 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑗 = 𝑧 → if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)) = (𝑗𝑀𝑘))
357 iffalse 4485 . . . . . . . . . . . . . . . . . . . . . . . . 25 𝑗 = 𝑧 → if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)) = (𝑗𝑀𝑘))
358356, 357pm2.61i 182 . . . . . . . . . . . . . . . . . . . . . . . 24 if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)) = (𝑗𝑀𝑘)
359 ifeq2 4481 . . . . . . . . . . . . . . . . . . . . . . . 24 (if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)) = (𝑗𝑀𝑘) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))) = if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
360358, 359mp1i 13 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑗𝐼𝑘𝐼) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))) = if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
361360mpoeq3ia 7427 . . . . . . . . . . . . . . . . . . . . . 22 (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
362361fveq2i 6825 . . . . . . . . . . . . . . . . . . . . 21 ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))
363 ifeq2 4481 . . . . . . . . . . . . . . . . . . . . . . . 24 (if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)) = (𝑗𝑀𝑘) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))) = if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
364358, 363mp1i 13 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑗𝐼𝑘𝐼) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))) = if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
365364mpoeq3ia 7427 . . . . . . . . . . . . . . . . . . . . . 22 (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
366365fveq2i 6825 . . . . . . . . . . . . . . . . . . . . 21 ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))
367353, 362, 3663eqtr3g 2787 . . . . . . . . . . . . . . . . . . . 20 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
368223, 367sylanl2 681 . . . . . . . . . . . . . . . . . . 19 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
369368eqeq2d 2740 . . . . . . . . . . . . . . . . . 18 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) → (((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) ↔ ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))))
370369biimprd 248 . . . . . . . . . . . . . . . . 17 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) → (((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))))
371218, 370embantd 59 . . . . . . . . . . . . . . . 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 413 . . . . . . . . . . . . . . 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 86 . . . . . . . . . . . . . 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 481 . . . . . . . . . . . . 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 9079 . . . . . . . . . . . 12 ((𝐼 ∖ {𝑖}) ∈ Fin → ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝐼 ∖ {𝑖}) ∧ (𝐼 ∖ {𝑖}) ⊆ 𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))))
376132, 375mpcom 38 . . . . . . . . . . 11 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝐼 ∖ {𝑖}) ∧ (𝐼 ∖ {𝑖}) ⊆ 𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
377129, 130, 376mpanr12 705 . . . . . . . . . 10 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
378377adantlr 715 . . . . . . . . 9 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
379 eqid 2729 . . . . . . . . . . . 12 𝐼 = 𝐼
380 fconstmpt 5681 . . . . . . . . . . . . . . . . 17 (𝐼 × {(0g𝑅)}) = (𝑘𝐼 ↦ (0g𝑅))
381380eqeq2i 2742 . . . . . . . . . . . . . . . 16 ((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ↔ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑘𝐼 ↦ (0g𝑅)))
382 ovex 7382 . . . . . . . . . . . . . . . . . 18 (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) ∈ V
383382rgenw 3048 . . . . . . . . . . . . . . . . 17 𝑘𝐼 (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) ∈ V
384 mpteqb 6949 . . . . . . . . . . . . . . . . 17 (∀𝑘𝐼 (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) ∈ V → ((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑘𝐼 ↦ (0g𝑅)) ↔ ∀𝑘𝐼 (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅)))
385383, 384ax-mp 5 . . . . . . . . . . . . . . . 16 ((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑘𝐼 ↦ (0g𝑅)) ↔ ∀𝑘𝐼 (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅))
386381, 385bitri 275 . . . . . . . . . . . . . . 15 ((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ↔ ∀𝑘𝐼 (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅))
387225ad5antr 734 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → 𝑅 ∈ CMnd)
388 simp-4r 783 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → 𝐼 ∈ Fin)
389 eqid 2729 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑛𝐼 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛𝐼 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))
390307, 389fnmpti 6625 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑛𝐼 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) Fn 𝐼
391390a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐼 ∈ Fin → (𝑛𝐼 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) Fn 𝐼)
392 id 22 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐼 ∈ Fin → 𝐼 ∈ Fin)
393 fvexd 6837 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐼 ∈ Fin → (0g𝑅) ∈ V)
394391, 392, 393fndmfifsupp 9268 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝐼 ∈ Fin → (𝑛𝐼 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) finSupp (0g𝑅))
395394ad4antlr 733 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → (𝑛𝐼 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) finSupp (0g𝑅))
396 simplrl 776 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → 𝑖𝐼)
397320, 323sylan 580 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → (𝑖𝑀𝑘) ∈ (Base‘𝑅))
398 fveq2 6822 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑛 = 𝑖 → (𝑓𝑛) = (𝑓𝑖))
399 oveq1 7356 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑛 = 𝑖 → (𝑛𝑀𝑘) = (𝑖𝑀𝑘))
400398, 399oveq12d 7367 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑛 = 𝑖 → ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)) = ((𝑓𝑖)(.r𝑅)(𝑖𝑀𝑘)))
401400oveq2d 7365 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑛 = 𝑖 → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑖)(.r𝑅)(𝑖𝑀𝑘))))
402 simpll 766 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) → 𝑅 ∈ Field)
4032, 237anim12i 613 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑅 ∈ Field ∧ (𝑓:𝐼⟶(Base‘𝑅) ∧ 𝑖𝐼)) → (𝑅 ∈ DivRing ∧ (𝑓𝑖) ∈ (Base‘𝑅)))
404403anassrs 467 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((𝑅 ∈ Field ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑖𝐼) → (𝑅 ∈ DivRing ∧ (𝑓𝑖) ∈ (Base‘𝑅)))
405 eqid 2729 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (1r𝑅) = (1r𝑅)
40610, 100, 47, 405, 240drnginvrl 20641 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑅 ∈ DivRing ∧ (𝑓𝑖) ∈ (Base‘𝑅) ∧ (𝑓𝑖) ≠ (0g𝑅)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑖)) = (1r𝑅))
4074063expa 1118 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((𝑅 ∈ DivRing ∧ (𝑓𝑖) ∈ (Base‘𝑅)) ∧ (𝑓𝑖) ≠ (0g𝑅)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑖)) = (1r𝑅))
408404, 407sylan 580 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((𝑅 ∈ Field ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑖𝐼) ∧ (𝑓𝑖) ≠ (0g𝑅)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑖)) = (1r𝑅))
409408anasss 466 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝑅 ∈ Field ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑖)) = (1r𝑅))
410409oveq1d 7364 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((𝑅 ∈ Field ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑖))(.r𝑅)(𝑖𝑀𝑘)) = ((1r𝑅)(.r𝑅)(𝑖𝑀𝑘)))
411402, 410sylanl1 680 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑖))(.r𝑅)(𝑖𝑀𝑘)) = ((1r𝑅)(.r𝑅)(𝑖𝑀𝑘)))
412411adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑖))(.r𝑅)(𝑖𝑀𝑘)) = ((1r𝑅)(.r𝑅)(𝑖𝑀𝑘)))
4134ad5antr 734 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → 𝑅 ∈ Ring)
414245adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅))
415237ad2ant2lr 748 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → (𝑓𝑖) ∈ (Base‘𝑅))
416415adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → (𝑓𝑖) ∈ (Base‘𝑅))
41710, 47ringass 20138 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑅 ∈ Ring ∧ (((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅) ∧ (𝑓𝑖) ∈ (Base‘𝑅) ∧ (𝑖𝑀𝑘) ∈ (Base‘𝑅))) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑖))(.r𝑅)(𝑖𝑀𝑘)) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑖)(.r𝑅)(𝑖𝑀𝑘))))
418413, 414, 416, 397, 417syl13anc 1374 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → ((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑖))(.r𝑅)(𝑖𝑀𝑘)) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑖)(.r𝑅)(𝑖𝑀𝑘))))
4194adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) → 𝑅 ∈ Ring)
4204193ad2ant1 1133 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖𝐼𝑘𝐼) → 𝑅 ∈ Ring)
4213223adant1l 1177 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖𝐼𝑘𝐼) → (𝑖𝑀𝑘) ∈ (Base‘𝑅))
42210, 47, 405ringlidm 20154 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑅 ∈ Ring ∧ (𝑖𝑀𝑘) ∈ (Base‘𝑅)) → ((1r𝑅)(.r𝑅)(𝑖𝑀𝑘)) = (𝑖𝑀𝑘))
423420, 421, 422syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖𝐼𝑘𝐼) → ((1r𝑅)(.r𝑅)(𝑖𝑀𝑘)) = (𝑖𝑀𝑘))
424423ad5ant145 1371 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑖𝐼) ∧ 𝑘𝐼) → ((1r𝑅)(.r𝑅)(𝑖𝑀𝑘)) = (𝑖𝑀𝑘))
425424adantlrr 721 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → ((1r𝑅)(.r𝑅)(𝑖𝑀𝑘)) = (𝑖𝑀𝑘))
426412, 418, 4253eqtr3d 2772 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑖)(.r𝑅)(𝑖𝑀𝑘))) = (𝑖𝑀𝑘))
427401, 426sylan9eqr 2786 . . . . . . . . . . . . . . . . . . . . . . 23 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ 𝑛 = 𝑖) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) = (𝑖𝑀𝑘))
42810, 200, 387, 388, 395, 254, 396, 397, 427gsumdifsnd 19840 . . . . . . . . . . . . . . . . . . . . . 22 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → (𝑅 Σg (𝑛𝐼 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)))
429 ovex 7382 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)) ∈ V
430 eqid 2729 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) = (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))
431429, 430fnmpti 6625 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) Fn 𝐼
432431a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐼 ∈ Fin → (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) Fn 𝐼)
433432, 392, 393fndmfifsupp 9268 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝐼 ∈ Fin → (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) finSupp (0g𝑅))
434433ad4antlr 733 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) finSupp (0g𝑅))
43510, 100, 47, 413, 388, 414, 252, 434gsummulc2 20202 . . . . . . . . . . . . . . . . . . . . . 22 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → (𝑅 Σg (𝑛𝐼 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))))
436428, 435eqtr3d 2766 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))))
437436adantr 480 . . . . . . . . . . . . . . . . . . . 20 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅)) → ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))))
438 oveq2 7357 . . . . . . . . . . . . . . . . . . . . 21 ((𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(0g𝑅)))
439438adantl 481 . . . . . . . . . . . . . . . . . . . 20 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(0g𝑅)))
4404ad4antr 732 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → 𝑅 ∈ Ring)
44110, 47, 100ringrz 20179 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑅 ∈ Ring ∧ ((invr𝑅)‘(𝑓𝑖)) ∈ (Base‘𝑅)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(0g𝑅)) = (0g𝑅))
442440, 245, 441syl2anc 584 . . . . . . . . . . . . . . . . . . . . 21 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(0g𝑅)) = (0g𝑅))
443442ad2antrr 726 . . . . . . . . . . . . . . . . . . . 20 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅)) → (((invr𝑅)‘(𝑓𝑖))(.r𝑅)(0g𝑅)) = (0g𝑅))
444437, 439, 4433eqtrd 2768 . . . . . . . . . . . . . . . . . . 19 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅)) → ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = (0g𝑅))
445444ifeq1d 4496 . . . . . . . . . . . . . . . . . 18 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅)) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘)))
446445ex 412 . . . . . . . . . . . . . . . . 17 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → ((𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘))))
447446ralimdva 3141 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → (∀𝑘𝐼 (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅) → ∀𝑘𝐼 if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘))))
448447imp 406 . . . . . . . . . . . . . . 15 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ ∀𝑘𝐼 (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (0g𝑅)) → ∀𝑘𝐼 if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘)))
449386, 448sylan2b 594 . . . . . . . . . . . . . 14 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) → ∀𝑘𝐼 if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘)))
450449, 379jctil 519 . . . . . . . . . . . . 13 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) → (𝐼 = 𝐼 ∧ ∀𝑘𝐼 if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘))))
451450ralrimivw 3125 . . . . . . . . . . . 12 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) → ∀𝑗𝐼 (𝐼 = 𝐼 ∧ ∀𝑘𝐼 if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘))))
452 mpoeq123 7421 . . . . . . . . . . . 12 ((𝐼 = 𝐼 ∧ ∀𝑗𝐼 (𝐼 = 𝐼 ∧ ∀𝑘𝐼 if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘)))) → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘))))
453379, 451, 452sylancr 587 . . . . . . . . . . 11 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘))))
454453an32s 652 . . . . . . . . . 10 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘))))
455454fveq2d 6826 . . . . . . . . 9 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘)))))
456334ad3antrrr 730 . . . . . . . . . . 11 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → 𝑅 ∈ CRing)
457 simplr 768 . . . . . . . . . . 11 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → 𝐼 ∈ Fin)
458 simpllr 775 . . . . . . . . . . . 12 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅))
459458, 198syl3an1 1163 . . . . . . . . . . 11 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑗𝐼𝑘𝐼) → (𝑗𝑀𝑘) ∈ (Base‘𝑅))
460 simprl 770 . . . . . . . . . . 11 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → 𝑖𝐼)
461333, 10, 100, 456, 457, 459, 460mdetr0 22490 . . . . . . . . . 10 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘)))) = (0g𝑅))
462461ad4ant14 752 . . . . . . . . 9 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘)))) = (0g𝑅))
463378, 455, 4623eqtrd 2768 . . . . . . . 8 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) → ((𝐼 maDet 𝑅)‘𝑀) = (0g𝑅))
464463rexlimdvaa 3131 . . . . . . 7 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) → (∃𝑖𝐼 (𝑓𝑖) ≠ (0g𝑅) → ((𝐼 maDet 𝑅)‘𝑀) = (0g𝑅)))
465464expimpd 453 . . . . . 6 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ∧ ∃𝑖𝐼 (𝑓𝑖) ≠ (0g𝑅)) → ((𝐼 maDet 𝑅)‘𝑀) = (0g𝑅)))
466128, 465sylan2d 605 . . . . 5 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ∧ ¬ 𝑓 = (𝐼 × {(0g𝑅)})) → ((𝐼 maDet 𝑅)‘𝑀) = (0g𝑅)))
46732, 466sylan2 593 . . . 4 ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)) → (((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ∧ ¬ 𝑓 = (𝐼 × {(0g𝑅)})) → ((𝐼 maDet 𝑅)‘𝑀) = (0g𝑅)))
468467rexlimdva 3130 . . 3 (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) → (∃𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ∧ ¬ 𝑓 = (𝐼 × {(0g𝑅)})) → ((𝐼 maDet 𝑅)‘𝑀) = (0g𝑅)))
4699, 468sylan2 593 . 2 (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (∃𝑓 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ∧ ¬ 𝑓 = (𝐼 × {(0g𝑅)})) → ((𝐼 maDet 𝑅)‘𝑀) = (0g𝑅)))
470115, 469sylbid 240 1 (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (¬ curry 𝑀 LIndF (𝑅 freeLMod 𝐼) → ((𝐼 maDet 𝑅)‘𝑀) = (0g𝑅)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  w3a 1086   = wceq 1540  wcel 2109  wne 2925  wral 3044  wrex 3053  Vcvv 3436  cdif 3900  cun 3901  wss 3903  c0 4284  ifcif 4476  {csn 4577   class class class wbr 5092  cmpt 5173   × cxp 5617   Fn wfn 6477  wf 6478  cfv 6482  (class class class)co 7349  cmpo 7351  f cof 7611  curry ccur 8198  m cmap 8753  Fincfn 8872   finSupp cfsupp 9251  Basecbs 17120  +gcplusg 17161  .rcmulr 17162  Scalarcsca 17164   ·𝑠 cvsca 17165  0gc0g 17343   Σg cgsu 17344  Grpcgrp 18812  CMndccmn 19659  Abelcabl 19660  1rcur 20066  Ringcrg 20118  CRingccrg 20119  invrcinvr 20272  DivRingcdr 20614  Fieldcfield 20615  LModclmod 20763   freeLMod cfrlm 21653   LIndF clindf 21711   maDet cmdat 22469
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5218  ax-sep 5235  ax-nul 5245  ax-pow 5304  ax-pr 5371  ax-un 7671  ax-cnex 11065  ax-resscn 11066  ax-1cn 11067  ax-icn 11068  ax-addcl 11069  ax-addrcl 11070  ax-mulcl 11071  ax-mulrcl 11072  ax-mulcom 11073  ax-addass 11074  ax-mulass 11075  ax-distr 11076  ax-i2m1 11077  ax-1ne0 11078  ax-1rid 11079  ax-rnegex 11080  ax-rrecex 11081  ax-cnre 11082  ax-pre-lttri 11083  ax-pre-lttrn 11084  ax-pre-ltadd 11085  ax-pre-mulgt0 11086  ax-addf 11088  ax-mulf 11089
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-xor 1512  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-nel 3030  df-ral 3045  df-rex 3054  df-rmo 3343  df-reu 3344  df-rab 3395  df-v 3438  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4285  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-tp 4582  df-op 4584  df-ot 4586  df-uni 4859  df-int 4897  df-iun 4943  df-iin 4944  df-br 5093  df-opab 5155  df-mpt 5174  df-tr 5200  df-id 5514  df-eprel 5519  df-po 5527  df-so 5528  df-fr 5572  df-se 5573  df-we 5574  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-pred 6249  df-ord 6310  df-on 6311  df-lim 6312  df-suc 6313  df-iota 6438  df-fun 6484  df-fn 6485  df-f 6486  df-f1 6487  df-fo 6488  df-f1o 6489  df-fv 6490  df-isom 6491  df-riota 7306  df-ov 7352  df-oprab 7353  df-mpo 7354  df-of 7613  df-om 7800  df-1st 7924  df-2nd 7925  df-supp 8094  df-tpos 8159  df-cur 8200  df-frecs 8214  df-wrecs 8245  df-recs 8294  df-rdg 8332  df-1o 8388  df-2o 8389  df-er 8625  df-map 8755  df-pm 8756  df-ixp 8825  df-en 8873  df-dom 8874  df-sdom 8875  df-fin 8876  df-fsupp 9252  df-sup 9332  df-oi 9402  df-card 9835  df-pnf 11151  df-mnf 11152  df-xr 11153  df-ltxr 11154  df-le 11155  df-sub 11349  df-neg 11350  df-div 11778  df-nn 12129  df-2 12191  df-3 12192  df-4 12193  df-5 12194  df-6 12195  df-7 12196  df-8 12197  df-9 12198  df-n0 12385  df-xnn0 12458  df-z 12472  df-dec 12592  df-uz 12736  df-rp 12894  df-fz 13411  df-fzo 13558  df-seq 13909  df-exp 13969  df-hash 14238  df-word 14421  df-lsw 14470  df-concat 14478  df-s1 14503  df-substr 14548  df-pfx 14578  df-splice 14656  df-reverse 14665  df-s2 14755  df-struct 17058  df-sets 17075  df-slot 17093  df-ndx 17105  df-base 17121  df-ress 17142  df-plusg 17174  df-mulr 17175  df-starv 17176  df-sca 17177  df-vsca 17178  df-ip 17179  df-tset 17180  df-ple 17181  df-ds 17183  df-unif 17184  df-hom 17185  df-cco 17186  df-0g 17345  df-gsum 17346  df-prds 17351  df-pws 17353  df-mre 17488  df-mrc 17489  df-acs 17491  df-mgm 18514  df-sgrp 18593  df-mnd 18609  df-mhm 18657  df-submnd 18658  df-efmnd 18743  df-grp 18815  df-minusg 18816  df-sbg 18817  df-mulg 18947  df-subg 19002  df-ghm 19092  df-gim 19138  df-cntz 19196  df-oppg 19225  df-symg 19249  df-pmtr 19321  df-psgn 19370  df-evpm 19371  df-cmn 19661  df-abl 19662  df-mgp 20026  df-rng 20038  df-ur 20067  df-ring 20120  df-cring 20121  df-oppr 20222  df-dvdsr 20242  df-unit 20243  df-invr 20273  df-dvr 20286  df-rhm 20357  df-nzr 20398  df-subrng 20431  df-subrg 20455  df-drng 20616  df-field 20617  df-lmod 20765  df-lss 20835  df-lsp 20875  df-lmhm 20926  df-lbs 20979  df-sra 21077  df-rgmod 21078  df-cnfld 21262  df-zring 21354  df-zrh 21410  df-dsmm 21639  df-frlm 21654  df-uvc 21690  df-lindf 21713  df-mat 22293  df-mdet 22470
This theorem is referenced by:  matunitlindf  37608
  Copyright terms: Public domain W3C validator