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 37610
Description: One direction of matunitlindf 37612. (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 20649 . . . . 5 (𝑅 ∈ Field ↔ (𝑅 ∈ DivRing ∧ 𝑅 ∈ CRing))
21simplbi 497 . . . 4 (𝑅 ∈ Field → 𝑅 ∈ DivRing)
3 drngring 20645 . . . 4 (𝑅 ∈ DivRing → 𝑅 ∈ Ring)
42, 3syl 17 . . 3 (𝑅 ∈ Field → 𝑅 ∈ Ring)
5 eqid 2729 . . . . . . . . 9 (𝑅 freeLMod 𝐼) = (𝑅 freeLMod 𝐼)
65frlmlmod 21658 . . . . . . . 8 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → (𝑅 freeLMod 𝐼) ∈ LMod)
76adantlr 715 . . . . . . 7 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (𝑅 freeLMod 𝐼) ∈ LMod)
8 simpr 484 . . . . . . 7 (((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → 𝐼 ∈ (Fin ∖ {∅}))
9 eldifi 4094 . . . . . . . . . 10 (𝐼 ∈ (Fin ∖ {∅}) → 𝐼 ∈ Fin)
10 eqid 2729 . . . . . . . . . . 11 (Base‘𝑅) = (Base‘𝑅)
115, 10frlmfibas 21671 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) → ((Base‘𝑅) ↑m 𝐼) = (Base‘(𝑅 freeLMod 𝐼)))
129, 11sylan2 593 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → ((Base‘𝑅) ↑m 𝐼) = (Base‘(𝑅 freeLMod 𝐼)))
13 fvex 6871 . . . . . . . . . 10 (Base‘𝑅) ∈ V
14 curf 37592 . . . . . . . . . 10 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ (Fin ∖ {∅}) ∧ (Base‘𝑅) ∈ V) → curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼))
1513, 14mp3an3 1452 . . . . . . . . 9 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ (Fin ∖ {∅})) → curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼))
16 feq3 6668 . . . . . . . . . 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 21747 . . . . . . 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 21662 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → 𝑅 = (Scalar‘(𝑅 freeLMod 𝐼)))
2928fvoveq1d 7409 . . . . . . . . 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 8822 . . . . . . . . . 10 (𝑓 ∈ ((Base‘𝑅) ↑m 𝐼) → 𝑓:𝐼⟶(Base‘𝑅))
33 ffn 6688 . . . . . . . . . . . . . . 15 (𝑓:𝐼⟶(Base‘𝑅) → 𝑓 Fn 𝐼)
3433adantl 481 . . . . . . . . . . . . . 14 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → 𝑓 Fn 𝐼)
3519ffnd 6689 . . . . . . . . . . . . . . 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 4190 . . . . . . . . . . . . . 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 7662 . . . . . . . . . . . . 13 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀) = (𝑛𝐼 ↦ ((𝑓𝑛)( ·𝑠 ‘(𝑅 freeLMod 𝐼))(curry 𝑀𝑛))))
42 simpllr 775 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → 𝐼 ∈ (Fin ∖ {∅}))
43 ffvelcdm 7053 . . . . . . . . . . . . . . . . 17 ((𝑓:𝐼⟶(Base‘𝑅) ∧ 𝑛𝐼) → (𝑓𝑛) ∈ (Base‘𝑅))
4443adantll 714 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (𝑓𝑛) ∈ (Base‘𝑅))
4519ffvelcdmda 7056 . . . . . . . . . . . . . . . . 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 21675 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → ((𝑓𝑛)( ·𝑠 ‘(𝑅 freeLMod 𝐼))(curry 𝑀𝑛)) = ((𝐼 × {(𝑓𝑛)}) ∘f (.r𝑅)(curry 𝑀𝑛)))
49 fvex 6871 . . . . . . . . . . . . . . . . 17 (𝑓𝑛) ∈ V
50 fnconstg 6748 . . . . . . . . . . . . . . . . 17 ((𝑓𝑛) ∈ V → (𝐼 × {(𝑓𝑛)}) Fn 𝐼)
5149, 50mp1i 13 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (𝐼 × {(𝑓𝑛)}) Fn 𝐼)
5215ffvelcdmda 7056 . . . . . . . . . . . . . . . . . . 19 (((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑛𝐼) → (curry 𝑀𝑛) ∈ ((Base‘𝑅) ↑m 𝐼))
53 elmapfn 8838 . . . . . . . . . . . . . . . . . . 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 7178 . . . . . . . . . . . . . . . . 17 (𝑘𝐼 → ((𝐼 × {(𝑓𝑛)})‘𝑘) = (𝑓𝑛))
5857adantl 481 . . . . . . . . . . . . . . . 16 ((((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) ∧ 𝑘𝐼) → ((𝐼 × {(𝑓𝑛)})‘𝑘) = (𝑓𝑛))
59 ffn 6688 . . . . . . . . . . . . . . . . . . . 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 37594 . . . . . . . . . . . . . . . . . . . 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 7662 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → ((𝐼 × {(𝑓𝑛)}) ∘f (.r𝑅)(curry 𝑀𝑛)) = (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))
6948, 68eqtrd 2764 . . . . . . . . . . . . . 14 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → ((𝑓𝑛)( ·𝑠 ‘(𝑅 freeLMod 𝐼))(curry 𝑀𝑛)) = (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))
7069mpteq2dva 5200 . . . . . . . . . . . . 13 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (𝑛𝐼 ↦ ((𝑓𝑛)( ·𝑠 ‘(𝑅 freeLMod 𝐼))(curry 𝑀𝑛))) = (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))
7141, 70eqtrd 2764 . . . . . . . . . . . 12 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) → (𝑓f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀) = (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))
7271oveq2d 7403 . . . . . . . . . . 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 7559 . . . . . . . . . . . . . . . . 17 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑛𝐼𝑘𝐼) → (𝑛𝑀𝑘) ∈ (Base‘𝑅))
7776ad5ant245 1363 . . . . . . . . . . . . . . . 16 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) ∧ 𝑘𝐼) → (𝑛𝑀𝑘) ∈ (Base‘𝑅))
7810, 47ringcl 20159 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ Ring ∧ (𝑓𝑛) ∈ (Base‘𝑅) ∧ (𝑛𝑀𝑘) ∈ (Base‘𝑅)) → ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)) ∈ (Base‘𝑅))
7974, 75, 77, 78syl3anc 1373 . . . . . . . . . . . . . . 15 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) ∧ 𝑘𝐼) → ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)) ∈ (Base‘𝑅))
8079fmpttd 7087 . . . . . . . . . . . . . 14 ((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))):𝐼⟶(Base‘𝑅))
8180adantllr 719 . . . . . . . . . . . . 13 (((((𝑅 ∈ Ring ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ 𝑛𝐼) → (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))):𝐼⟶(Base‘𝑅))
82 elmapg 8812 . . . . . . . . . . . . . . . . 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 7195 . . . . . . . . . . . . . . . 16 (𝐼 ∈ (Fin ∖ {∅}) → (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ V)
9089ralrimivw 3129 . . . . . . . . . . . . . . 15 (𝐼 ∈ (Fin ∖ {∅}) → ∀𝑛𝐼 (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ V)
91 eqid 2729 . . . . . . . . . . . . . . . 16 (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))
9291fnmpt 6658 . . . . . . . . . . . . . . 15 (∀𝑛𝐼 (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ V → (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) Fn 𝐼)
9390, 92syl 17 . . . . . . . . . . . . . 14 (𝐼 ∈ (Fin ∖ {∅}) → (𝑛𝐼 ↦ (𝑘𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) Fn 𝐼)
94 fvexd 6873 . . . . . . . . . . . . . 14 (𝐼 ∈ (Fin ∖ {∅}) → (0g‘(𝑅 freeLMod 𝐼)) ∈ V)
9593, 9, 94fndmfifsupp 9329 . . . . . . . . . . . . 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 21681 . . . . . . . . . . 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 21663 . . . . . . . . . 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 6862 . . . . . . . . . . . 12 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → (0g𝑅) = (0g‘(Scalar‘(𝑅 freeLMod 𝐼))))
105104sneqd 4601 . . . . . . . . . . 11 ((𝑅 ∈ Ring ∧ 𝐼 ∈ (Fin ∖ {∅})) → {(0g𝑅)} = {(0g‘(Scalar‘(𝑅 freeLMod 𝐼)))})
106105xpeq2d 5668 . . . . . . . . . 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 3305 . . . . . 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 3084 . . . 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 7186 . . . . . . . . . . . 12 (𝑓:𝐼⟶{(0g𝑅)} ↔ (𝑓 Fn 𝐼 ∧ ∀𝑖𝐼 (𝑓𝑖) = (0g𝑅)))
117 fvex 6871 . . . . . . . . . . . . 13 (0g𝑅) ∈ V
118117fconst2 7179 . . . . . . . . . . . 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 3082 . . . . . . . . . 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 4756 . . . . . . . . . . 11 ¬ 𝑖 ∈ (𝐼 ∖ {𝑖})
130 difss 4099 . . . . . . . . . . 11 (𝐼 ∖ {𝑖}) ⊆ 𝐼
131 diffi 9139 . . . . . . . . . . . . 13 (𝐼 ∈ Fin → (𝐼 ∖ {𝑖}) ∈ Fin)
132131ad4antlr 733 . . . . . . . . . . . 12 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝐼 ∖ {𝑖}) ∧ (𝐼 ∖ {𝑖}) ⊆ 𝐼)) → (𝐼 ∖ {𝑖}) ∈ Fin)
133 eleq2 2817 . . . . . . . . . . . . . . . . 17 (𝑦 = ∅ → (𝑖𝑦𝑖 ∈ ∅))
134133notbid 318 . . . . . . . . . . . . . . . 16 (𝑦 = ∅ → (¬ 𝑖𝑦 ↔ ¬ 𝑖 ∈ ∅))
135 sseq1 3972 . . . . . . . . . . . . . . . 16 (𝑦 = ∅ → (𝑦𝐼 ↔ ∅ ⊆ 𝐼))
136134, 135anbi12d 632 . . . . . . . . . . . . . . 15 (𝑦 = ∅ → ((¬ 𝑖𝑦𝑦𝐼) ↔ (¬ 𝑖 ∈ ∅ ∧ ∅ ⊆ 𝐼)))
137136anbi2d 630 . . . . . . . . . . . . . 14 (𝑦 = ∅ → ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑦𝑦𝐼)) ↔ (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ ∅ ∧ ∅ ⊆ 𝐼))))
138 mpteq1 5196 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 = ∅ → (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛 ∈ ∅ ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))
139 mpt0 6660 . . . . . . . . . . . . . . . . . . . . . 22 (𝑛 ∈ ∅ ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = ∅
140138, 139eqtrdi 2780 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 = ∅ → (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = ∅)
141140oveq2d 7403 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = ∅ → (𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑅 Σg ∅))
142100gsum0 18611 . . . . . . . . . . . . . . . . . . . 20 (𝑅 Σg ∅) = (0g𝑅)
143141, 142eqtrdi 2780 . . . . . . . . . . . . . . . . . . 19 (𝑦 = ∅ → (𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (0g𝑅))
144143oveq1d 7402 . . . . . . . . . . . . . . . . . 18 (𝑦 = ∅ → ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)))
145144ifeq1d 4508 . . . . . . . . . . . . . . . . 17 (𝑦 = ∅ → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
146145mpoeq3dv 7468 . . . . . . . . . . . . . . . 16 (𝑦 = ∅ → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))
147146fveq2d 6862 . . . . . . . . . . . . . . 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 3972 . . . . . . . . . . . . . . . 16 (𝑦 = 𝑥 → (𝑦𝐼𝑥𝐼))
153151, 152anbi12d 632 . . . . . . . . . . . . . . 15 (𝑦 = 𝑥 → ((¬ 𝑖𝑦𝑦𝐼) ↔ (¬ 𝑖𝑥𝑥𝐼)))
154153anbi2d 630 . . . . . . . . . . . . . 14 (𝑦 = 𝑥 → ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑦𝑦𝐼)) ↔ (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑥𝑥𝐼))))
155 mpteq1 5196 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = 𝑥 → (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))
156155oveq2d 7403 . . . . . . . . . . . . . . . . . . 19 (𝑦 = 𝑥 → (𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))))
157156oveq1d 7402 . . . . . . . . . . . . . . . . . 18 (𝑦 = 𝑥 → ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)))
158157ifeq1d 4508 . . . . . . . . . . . . . . . . 17 (𝑦 = 𝑥 → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
159158mpoeq3dv 7468 . . . . . . . . . . . . . . . 16 (𝑦 = 𝑥 → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))
160159fveq2d 6862 . . . . . . . . . . . . . . 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 3972 . . . . . . . . . . . . . . . 16 (𝑦 = (𝑥 ∪ {𝑧}) → (𝑦𝐼 ↔ (𝑥 ∪ {𝑧}) ⊆ 𝐼))
166164, 165anbi12d 632 . . . . . . . . . . . . . . 15 (𝑦 = (𝑥 ∪ {𝑧}) → ((¬ 𝑖𝑦𝑦𝐼) ↔ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)))
167166anbi2d 630 . . . . . . . . . . . . . 14 (𝑦 = (𝑥 ∪ {𝑧}) → ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑦𝑦𝐼)) ↔ (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼))))
168 mpteq1 5196 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = (𝑥 ∪ {𝑧}) → (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))
169168oveq2d 7403 . . . . . . . . . . . . . . . . . . 19 (𝑦 = (𝑥 ∪ {𝑧}) → (𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))))
170169oveq1d 7402 . . . . . . . . . . . . . . . . . 18 (𝑦 = (𝑥 ∪ {𝑧}) → ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)))
171170ifeq1d 4508 . . . . . . . . . . . . . . . . 17 (𝑦 = (𝑥 ∪ {𝑧}) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
172171mpoeq3dv 7468 . . . . . . . . . . . . . . . 16 (𝑦 = (𝑥 ∪ {𝑧}) → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))
173172fveq2d 6862 . . . . . . . . . . . . . . 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 3972 . . . . . . . . . . . . . . . 16 (𝑦 = (𝐼 ∖ {𝑖}) → (𝑦𝐼 ↔ (𝐼 ∖ {𝑖}) ⊆ 𝐼))
179177, 178anbi12d 632 . . . . . . . . . . . . . . 15 (𝑦 = (𝐼 ∖ {𝑖}) → ((¬ 𝑖𝑦𝑦𝐼) ↔ (¬ 𝑖 ∈ (𝐼 ∖ {𝑖}) ∧ (𝐼 ∖ {𝑖}) ⊆ 𝐼)))
180179anbi2d 630 . . . . . . . . . . . . . 14 (𝑦 = (𝐼 ∖ {𝑖}) → ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖𝑦𝑦𝐼)) ↔ (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ (𝐼 ∖ {𝑖}) ∧ (𝐼 ∖ {𝑖}) ⊆ 𝐼))))
181 mpteq1 5196 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = (𝐼 ∖ {𝑖}) → (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))
182181oveq2d 7403 . . . . . . . . . . . . . . . . . . 19 (𝑦 = (𝐼 ∖ {𝑖}) → (𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))))
183182oveq1d 7402 . . . . . . . . . . . . . . . . . 18 (𝑦 = (𝐼 ∖ {𝑖}) → ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)))
184183ifeq1d 4508 . . . . . . . . . . . . . . . . 17 (𝑦 = (𝐼 ∖ {𝑖}) → if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
185184mpoeq3dv 7468 . . . . . . . . . . . . . . . 16 (𝑦 = (𝐼 ∖ {𝑖}) → (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑦 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))
186185fveq2d 6862 . . . . . . . . . . . . . . 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 7520 . . . . . . . . . . . . . . . . . 18 (𝑀 Fn (𝐼 × 𝐼) ↔ 𝑀 = (𝑗𝐼, 𝑘𝐼 ↦ (𝑗𝑀𝑘)))
19059, 189sylib 218 . . . . . . . . . . . . . . . . 17 (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) → 𝑀 = (𝑗𝐼, 𝑘𝐼 ↦ (𝑗𝑀𝑘)))
191190adantl 481 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) → 𝑀 = (𝑗𝐼, 𝑘𝐼 ↦ (𝑗𝑀𝑘)))
192 ringgrp 20147 . . . . . . . . . . . . . . . . . 18 (𝑅 ∈ Ring → 𝑅 ∈ Grp)
1934, 192syl 17 . . . . . . . . . . . . . . . . 17 (𝑅 ∈ Field → 𝑅 ∈ Grp)
194 oveq1 7394 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 = 𝑗 → (𝑖𝑀𝑘) = (𝑗𝑀𝑘))
195194equcoms 2020 . . . . . . . . . . . . . . . . . . . . 21 (𝑗 = 𝑖 → (𝑖𝑀𝑘) = (𝑗𝑀𝑘))
196195oveq2d 7403 . . . . . . . . . . . . . . . . . . . 20 (𝑗 = 𝑖 → ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)) = ((0g𝑅)(+g𝑅)(𝑗𝑀𝑘)))
197 simp1l 1198 . . . . . . . . . . . . . . . . . . . . 21 (((𝑅 ∈ Grp ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑗𝐼𝑘𝐼) → 𝑅 ∈ Grp)
198 fovcdm 7559 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑗𝐼𝑘𝐼) → (𝑗𝑀𝑘) ∈ (Base‘𝑅))
1991983adant1l 1177 . . . . . . . . . . . . . . . . . . . . 21 (((𝑅 ∈ Grp ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑗𝐼𝑘𝐼) → (𝑗𝑀𝑘) ∈ (Base‘𝑅))
200 eqid 2729 . . . . . . . . . . . . . . . . . . . . . 22 (+g𝑅) = (+g𝑅)
20110, 200, 100grplid 18899 . . . . . . . . . . . . . . . . . . . . 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 4525 . . . . . . . . . . . . . . . . . 18 (((𝑅 ∈ Grp ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑗𝐼𝑘𝐼) → if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = (𝑗𝑀𝑘))
206205mpoeq3dva 7466 . . . . . . . . . . . . . . . . 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 6862 . . . . . . . . . . . . . 14 ((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
210209ad4antr 732 . . . . . . . . . . . . 13 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (¬ 𝑖 ∈ ∅ ∧ ∅ ⊆ 𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((0g𝑅)(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))))
211 elun1 4145 . . . . . . . . . . . . . . . . . . . . 21 (𝑖𝑥𝑖 ∈ (𝑥 ∪ {𝑧}))
212211con3i 154 . . . . . . . . . . . . . . . . . . . 20 𝑖 ∈ (𝑥 ∪ {𝑧}) → ¬ 𝑖𝑥)
213 ssun1 4141 . . . . . . . . . . . . . . . . . . . . 21 𝑥 ⊆ (𝑥 ∪ {𝑧})
214 sstr 3955 . . . . . . . . . . . . . . . . . . . . 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 4605 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑖 ∈ {𝑧} ↔ 𝑖 = 𝑧)
220 elun2 4146 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑖 ∈ {𝑧} → 𝑖 ∈ (𝑥 ∪ {𝑧}))
221219, 220sylbir 235 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 = 𝑧𝑖 ∈ (𝑥 ∪ {𝑧}))
222221necon3bi 2951 . . . . . . . . . . . . . . . . . . . . 21 𝑖 ∈ (𝑥 ∪ {𝑧}) → 𝑖𝑧)
223222anim1i 615 . . . . . . . . . . . . . . . . . . . 20 ((¬ 𝑖 ∈ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) → (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼))
224 ringcmn 20191 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 9137 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝐼 ∈ Fin ∧ 𝑥𝐼) → 𝑥 ∈ Fin)
230227, 228, 229syl2an 596 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) → 𝑥 ∈ Fin)
231230ad5ant13 756 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → 𝑥 ∈ Fin)
232215sselda 3946 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 7053 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 20662 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 20159 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 3451 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 𝑧 ∈ V
259258a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → 𝑧 ∈ V)
260 simplr 768 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → ¬ 𝑧𝑥)
261 ssun2 4142 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 {𝑧} ⊆ (𝑥 ∪ {𝑧})
262 sstr 3955 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (({𝑧} ⊆ (𝑥 ∪ {𝑧}) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) → {𝑧} ⊆ 𝐼)
263261, 262mpan 690 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑥 ∪ {𝑧}) ⊆ 𝐼 → {𝑧} ⊆ 𝐼)
264258snss 4749 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 7053 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑓:𝐼⟶(Base‘𝑅) ∧ 𝑧𝐼) → (𝑓𝑧) ∈ (Base‘𝑅))
271270ad4ant24 754 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) → (𝑓𝑧) ∈ (Base‘𝑅))
27210, 47ringcl 20159 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 7559 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑧𝐼𝑘𝐼) → (𝑧𝑀𝑘) ∈ (Base‘𝑅))
2762753expa 1118 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → (𝑧𝑀𝑘) ∈ (Base‘𝑅))
277248, 276sylanl1 680 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑧𝐼) ∧ 𝑘𝐼) → (𝑧𝑀𝑘) ∈ (Base‘𝑅))
27810, 47ringcl 20159 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 6858 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑛 = 𝑧 → (𝑓𝑛) = (𝑓𝑧))
283 oveq1 7394 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑛 = 𝑧 → (𝑛𝑀𝑘) = (𝑧𝑀𝑘))
284282, 283oveq12d 7405 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑛 = 𝑧 → ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)) = ((𝑓𝑧)(.r𝑅)(𝑧𝑀𝑘)))
285284oveq2d 7403 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 20162 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 19888 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → (𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘))))
295294oveq1d 7402 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑖𝑧 ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼)) ∧ ¬ 𝑧𝑥) ∧ 𝑘𝐼) → ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)) = (((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)((((invr𝑅)‘(𝑓𝑖))(.r𝑅)(𝑓𝑧))(.r𝑅)(𝑧𝑀𝑘)))(+g𝑅)(𝑖𝑀𝑘)))
296 ringabl 20190 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 3451 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 𝑥 ∈ V
301300a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) ∧ 𝑘𝐼) → 𝑥 ∈ V)
302 ssel2 3941 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 7087 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) ∧ 𝑥𝐼) → (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))):𝑥⟶(Base‘𝑅))
306305an32s 652 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑥𝐼) ∧ 𝑘𝐼) → (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))):𝑥⟶(Base‘𝑅))
307 ovex 7420 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) ∈ V
308 eqid 2729 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) = (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))
309307, 308fnmpti 6661 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) Fn 𝑥
310309a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝐼 ∈ Fin ∧ 𝑥𝐼) → (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) Fn 𝑥)
311 fvexd 6873 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝐼 ∈ Fin ∧ 𝑥𝐼) → (0g𝑅) ∈ V)
312310, 229, 311fndmfifsupp 9329 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 19845 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 7559 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑖𝐼𝑘𝐼) → (𝑖𝑀𝑘) ∈ (Base‘𝑅))
3233223expa 1118 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝑖𝐼) ∧ 𝑘𝐼) → (𝑖𝑀𝑘) ∈ (Base‘𝑅))
324321, 323sylan 580 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑥 ∪ {𝑧}) ⊆ 𝐼) ∧ 𝑘𝐼) → (𝑖𝑀𝑘) ∈ (Base‘𝑅))
32510, 200, 298, 316, 317, 324abl32 19733 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 4508 . . . . . . . . . . . . . . . . . . . . . . . . 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 7466 . . . . . . . . . . . . . . . . . . . . . . 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 6862 . . . . . . . . . . . . . . . . . . . . . 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 18873 . . . . . . . . . . . . . . . . . . . . . . . . . 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 22497 . . . . . . . . . . . . . . . . . . . . . . 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 4494 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑗 = 𝑧 → if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)) = (𝑧𝑀𝑘))
355 oveq1 7394 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑗 = 𝑧 → (𝑗𝑀𝑘) = (𝑧𝑀𝑘))
356354, 355eqtr4d 2767 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑗 = 𝑧 → if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)) = (𝑗𝑀𝑘))
357 iffalse 4497 . . . . . . . . . . . . . . . . . . . . . . . . 25 𝑗 = 𝑧 → if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)) = (𝑗𝑀𝑘))
358356, 357pm2.61i 182 . . . . . . . . . . . . . . . . . . . . . . . 24 if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)) = (𝑗𝑀𝑘)
359 ifeq2 4493 . . . . . . . . . . . . . . . . . . . . . . . 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 7467 . . . . . . . . . . . . . . . . . . . . . 22 (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
362361fveq2i 6861 . . . . . . . . . . . . . . . . . . . . 21 ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘))))) = ((𝐼 maDet 𝑅)‘(𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝑥 ∪ {𝑧}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘))))
363 ifeq2 4493 . . . . . . . . . . . . . . . . . . . . . . . 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 7467 . . . . . . . . . . . . . . . . . . . . . 22 (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), if(𝑗 = 𝑧, (𝑧𝑀𝑘), (𝑗𝑀𝑘)))) = (𝑗𝐼, 𝑘𝐼 ↦ if(𝑗 = 𝑖, ((𝑅 Σg (𝑛𝑥 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)))
366365fveq2i 6861 . . . . . . . . . . . . . . . . . . . . 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 9129 . . . . . . . . . . . 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 5700 . . . . . . . . . . . . . . . . 17 (𝐼 × {(0g𝑅)}) = (𝑘𝐼 ↦ (0g𝑅))
381380eqeq2i 2742 . . . . . . . . . . . . . . . 16 ((𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)}) ↔ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝑘𝐼 ↦ (0g𝑅)))
382 ovex 7420 . . . . . . . . . . . . . . . . . 18 (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) ∈ V
383382rgenw 3048 . . . . . . . . . . . . . . . . 17 𝑘𝐼 (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) ∈ V
384 mpteqb 6987 . . . . . . . . . . . . . . . . 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 6661 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑛𝐼 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) Fn 𝐼
391390a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐼 ∈ Fin → (𝑛𝐼 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))) Fn 𝐼)
392 id 22 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐼 ∈ Fin → 𝐼 ∈ Fin)
393 fvexd 6873 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐼 ∈ Fin → (0g𝑅) ∈ V)
394391, 392, 393fndmfifsupp 9329 . . . . . . . . . . . . . . . . . . . . . . . 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 6858 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑛 = 𝑖 → (𝑓𝑛) = (𝑓𝑖))
399 oveq1 7394 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑛 = 𝑖 → (𝑛𝑀𝑘) = (𝑖𝑀𝑘))
400398, 399oveq12d 7405 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑛 = 𝑖 → ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)) = ((𝑓𝑖)(.r𝑅)(𝑖𝑀𝑘)))
401400oveq2d 7403 . . . . . . . . . . . . . . . . . . . . . . . 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 20665 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 7402 . . . . . . . . . . . . . . . . . . . . . . . . . . 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 20162 . . . . . . . . . . . . . . . . . . . . . . . . . 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 20178 . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 19891 . . . . . . . . . . . . . . . . . . . . . 22 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → (𝑅 Σg (𝑛𝐼 ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)))
429 ovex 7420 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)) ∈ V
430 eqid 2729 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) = (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))
431429, 430fnmpti 6661 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) Fn 𝐼
432431a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝐼 ∈ Fin → (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) Fn 𝐼)
433432, 392, 393fndmfifsupp 9329 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝐼 ∈ Fin → (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) finSupp (0g𝑅))
434433ad4antlr 733 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ 𝑘𝐼) → (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))) finSupp (0g𝑅))
43510, 100, 47, 413, 388, 414, 252, 434gsummulc2 20226 . . . . . . . . . . . . . . . . . . . . . 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 7395 . . . . . . . . . . . . . . . . . . . . 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 20203 . . . . . . . . . . . . . . . . . . . . . 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 4508 . . . . . . . . . . . . . . . . . 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 3145 . . . . . . . . . . . . . . . 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 3129 . . . . . . . . . . . 12 ((((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝑓:𝐼⟶(Base‘𝑅)) ∧ (𝑖𝐼 ∧ (𝑓𝑖) ≠ (0g𝑅))) ∧ (𝑘𝐼 ↦ (𝑅 Σg (𝑛𝐼 ↦ ((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘))))) = (𝐼 × {(0g𝑅)})) → ∀𝑗𝐼 (𝐼 = 𝐼 ∧ ∀𝑘𝐼 if(𝑗 = 𝑖, ((𝑅 Σg (𝑛 ∈ (𝐼 ∖ {𝑖}) ↦ (((invr𝑅)‘(𝑓𝑖))(.r𝑅)((𝑓𝑛)(.r𝑅)(𝑛𝑀𝑘)))))(+g𝑅)(𝑖𝑀𝑘)), (𝑗𝑀𝑘)) = if(𝑗 = 𝑖, (0g𝑅), (𝑗𝑀𝑘))))
452 mpoeq123 7461 . . . . . . . . . . . 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 6862 . . . . . . . . 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 22492 . . . . . . . . . 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 3135 . . . . . . 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 3134 . . 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 3447  cdif 3911  cun 3912  wss 3914  c0 4296  ifcif 4488  {csn 4589   class class class wbr 5107  cmpt 5188   × cxp 5636   Fn wfn 6506  wf 6507  cfv 6511  (class class class)co 7387  cmpo 7389  f cof 7651  curry ccur 8244  m cmap 8799  Fincfn 8918   finSupp cfsupp 9312  Basecbs 17179  +gcplusg 17220  .rcmulr 17221  Scalarcsca 17223   ·𝑠 cvsca 17224  0gc0g 17402   Σg cgsu 17403  Grpcgrp 18865  CMndccmn 19710  Abelcabl 19711  1rcur 20090  Ringcrg 20142  CRingccrg 20143  invrcinvr 20296  DivRingcdr 20638  Fieldcfield 20639  LModclmod 20766   freeLMod cfrlm 21655   LIndF clindf 21713   maDet cmdat 22471
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 5234  ax-sep 5251  ax-nul 5261  ax-pow 5320  ax-pr 5387  ax-un 7711  ax-cnex 11124  ax-resscn 11125  ax-1cn 11126  ax-icn 11127  ax-addcl 11128  ax-addrcl 11129  ax-mulcl 11130  ax-mulrcl 11131  ax-mulcom 11132  ax-addass 11133  ax-mulass 11134  ax-distr 11135  ax-i2m1 11136  ax-1ne0 11137  ax-1rid 11138  ax-rnegex 11139  ax-rrecex 11140  ax-cnre 11141  ax-pre-lttri 11142  ax-pre-lttrn 11143  ax-pre-ltadd 11144  ax-pre-mulgt0 11145  ax-addf 11147  ax-mulf 11148
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 3354  df-reu 3355  df-rab 3406  df-v 3449  df-sbc 3754  df-csb 3863  df-dif 3917  df-un 3919  df-in 3921  df-ss 3931  df-pss 3934  df-nul 4297  df-if 4489  df-pw 4565  df-sn 4590  df-pr 4592  df-tp 4594  df-op 4596  df-ot 4598  df-uni 4872  df-int 4911  df-iun 4957  df-iin 4958  df-br 5108  df-opab 5170  df-mpt 5189  df-tr 5215  df-id 5533  df-eprel 5538  df-po 5546  df-so 5547  df-fr 5591  df-se 5592  df-we 5593  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6274  df-ord 6335  df-on 6336  df-lim 6337  df-suc 6338  df-iota 6464  df-fun 6513  df-fn 6514  df-f 6515  df-f1 6516  df-fo 6517  df-f1o 6518  df-fv 6519  df-isom 6520  df-riota 7344  df-ov 7390  df-oprab 7391  df-mpo 7392  df-of 7653  df-om 7843  df-1st 7968  df-2nd 7969  df-supp 8140  df-tpos 8205  df-cur 8246  df-frecs 8260  df-wrecs 8291  df-recs 8340  df-rdg 8378  df-1o 8434  df-2o 8435  df-er 8671  df-map 8801  df-pm 8802  df-ixp 8871  df-en 8919  df-dom 8920  df-sdom 8921  df-fin 8922  df-fsupp 9313  df-sup 9393  df-oi 9463  df-card 9892  df-pnf 11210  df-mnf 11211  df-xr 11212  df-ltxr 11213  df-le 11214  df-sub 11407  df-neg 11408  df-div 11836  df-nn 12187  df-2 12249  df-3 12250  df-4 12251  df-5 12252  df-6 12253  df-7 12254  df-8 12255  df-9 12256  df-n0 12443  df-xnn0 12516  df-z 12530  df-dec 12650  df-uz 12794  df-rp 12952  df-fz 13469  df-fzo 13616  df-seq 13967  df-exp 14027  df-hash 14296  df-word 14479  df-lsw 14528  df-concat 14536  df-s1 14561  df-substr 14606  df-pfx 14636  df-splice 14715  df-reverse 14724  df-s2 14814  df-struct 17117  df-sets 17134  df-slot 17152  df-ndx 17164  df-base 17180  df-ress 17201  df-plusg 17233  df-mulr 17234  df-starv 17235  df-sca 17236  df-vsca 17237  df-ip 17238  df-tset 17239  df-ple 17240  df-ds 17242  df-unif 17243  df-hom 17244  df-cco 17245  df-0g 17404  df-gsum 17405  df-prds 17410  df-pws 17412  df-mre 17547  df-mrc 17548  df-acs 17550  df-mgm 18567  df-sgrp 18646  df-mnd 18662  df-mhm 18710  df-submnd 18711  df-efmnd 18796  df-grp 18868  df-minusg 18869  df-sbg 18870  df-mulg 19000  df-subg 19055  df-ghm 19145  df-gim 19191  df-cntz 19249  df-oppg 19278  df-symg 19300  df-pmtr 19372  df-psgn 19421  df-evpm 19422  df-cmn 19712  df-abl 19713  df-mgp 20050  df-rng 20062  df-ur 20091  df-ring 20144  df-cring 20145  df-oppr 20246  df-dvdsr 20266  df-unit 20267  df-invr 20297  df-dvr 20310  df-rhm 20381  df-nzr 20422  df-subrng 20455  df-subrg 20479  df-drng 20640  df-field 20641  df-lmod 20768  df-lss 20838  df-lsp 20878  df-lmhm 20929  df-lbs 20982  df-sra 21080  df-rgmod 21081  df-cnfld 21265  df-zring 21357  df-zrh 21413  df-dsmm 21641  df-frlm 21656  df-uvc 21692  df-lindf 21715  df-mat 22295  df-mdet 22472
This theorem is referenced by:  matunitlindf  37612
  Copyright terms: Public domain W3C validator