Theorem ldepspr 40319

Description: If a vector is a scalar multiple of another vector, the (unordered pair containing the) two vectors are linearly dependent. (Contributed by AV, 16-Apr-2019.) (Revised by AV, 27-Apr-2019.) (Proof shortened by AV, 30-Jul-2019.)

Hypotheses

Ref	Expression
snlindsntor.b	|- B = ( Base ` M )
snlindsntor.r	|- R = (Scalar ` M )
snlindsntor.s	|- S = ( Base ` R )
snlindsntor.0	|- .0. = ( 0g ` R )
snlindsntor.z	|- Z = ( 0g ` M )
snlindsntor.t	|- .x. = ( .s ` M )

Assertion

Ref	Expression
ldepspr	|- ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) -> ( ( A e. S /\ X = ( A .x. Y ) ) -> { X , Y } linDepS M ) )

Proof of Theorem ldepspr

Dummy variables f v are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		3simpa 1005	. . . . . . 7 |- ( ( X e. B /\ Y e. B /\ X =/= Y ) -> ( X e. B /\ Y e. B ) )
2	1	ad2antlr 733	. . . . . 6 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( X e. B /\ Y e. B ) )
3		fvex 5875	. . . . . . . 8 |- ( 1r ` R ) e. _V
4		fvex 5875	. . . . . . . 8 |- ( ( invg ` R ) ` A ) e. _V
5	3, 4	pm3.2i 457	. . . . . . 7 |- ( ( 1r ` R ) e. _V /\ ( ( invg ` R ) ` A ) e. _V )
6	5	a1i 11	. . . . . 6 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( ( 1r ` R ) e. _V /\ ( ( invg ` R ) ` A ) e. _V ) )
7		simp3 1010	. . . . . . 7 |- ( ( X e. B /\ Y e. B /\ X =/= Y ) -> X =/= Y )
8	7	ad2antlr 733	. . . . . 6 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> X =/= Y )
9		fprg 6073	. . . . . 6 |- ( ( ( X e. B /\ Y e. B ) /\ ( ( 1r ` R ) e. _V /\ ( ( invg ` R ) ` A ) e. _V ) /\ X =/= Y ) -> { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } : { X , Y } --> { ( 1r ` R ) , ( ( invg ` R ) ` A ) } )
10	2, 6, 8, 9	syl3anc 1268	. . . . 5 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } : { X , Y } --> { ( 1r ` R ) , ( ( invg ` R ) ` A ) } )
11		prfi 7846	. . . . . 6 |- { X , Y } e. Fin
12	11	a1i 11	. . . . 5 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> { X , Y } e. Fin )
13		snlindsntor.0	. . . . . . 7 |- .0. = ( 0g ` R )
14		fvex 5875	. . . . . . 7 |- ( 0g ` R ) e. _V
15	13, 14	eqeltri 2525	. . . . . 6 |- .0. e. _V
16	15	a1i 11	. . . . 5 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> .0. e. _V )
17	10, 12, 16	fdmfifsupp 7893	. . . 4 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } finSupp .0. )
18	7	anim2i 573	. . . . . . 7 |- ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) -> ( M e. LMod /\ X =/= Y ) )
19	18	adantr 467	. . . . . 6 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( M e. LMod /\ X =/= Y ) )
20		snlindsntor.r	. . . . . . . . 9 |- R = (Scalar ` M )
21		snlindsntor.s	. . . . . . . . 9 |- S = ( Base ` R )
22		eqid 2451	. . . . . . . . 9 |- ( 1r ` R ) = ( 1r ` R )
23	20, 21, 22	lmod1cl 18118	. . . . . . . 8 |- ( M e. LMod -> ( 1r ` R ) e. S )
24		simp1 1008	. . . . . . . 8 |- ( ( X e. B /\ Y e. B /\ X =/= Y ) -> X e. B )
25	23, 24	anim12ci 571	. . . . . . 7 |- ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) -> ( X e. B /\ ( 1r ` R ) e. S ) )
26	25	adantr 467	. . . . . 6 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( X e. B /\ ( 1r ` R ) e. S ) )
27		simp2 1009	. . . . . . 7 |- ( ( X e. B /\ Y e. B /\ X =/= Y ) -> Y e. B )
28	27	ad2antlr 733	. . . . . 6 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> Y e. B )
29	20	lmodfgrp 18100	. . . . . . . 8 |- ( M e. LMod -> R e. Grp )
30	29	adantr 467	. . . . . . 7 |- ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) -> R e. Grp )
31		simpl 459	. . . . . . 7 |- ( ( A e. S /\ X = ( A .x. Y ) ) -> A e. S )
32		eqid 2451	. . . . . . . 8 |- ( invg ` R ) = ( invg ` R )
33	21, 32	grpinvcl 16711	. . . . . . 7 |- ( ( R e. Grp /\ A e. S ) -> ( ( invg ` R ) ` A ) e. S )
34	30, 31, 33	syl2an 480	. . . . . 6 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( ( invg ` R ) ` A ) e. S )
35		snlindsntor.b	. . . . . . 7 |- B = ( Base ` M )
36		snlindsntor.t	. . . . . . 7 |- .x. = ( .s ` M )
37		eqid 2451	. . . . . . 7 |- ( +g ` M ) = ( +g ` M )
38		eqid 2451	. . . . . . 7 |- { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } = { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. }
39	35, 20, 21, 36, 37, 38	lincvalpr 40264	. . . . . 6 |- ( ( ( M e. LMod /\ X =/= Y ) /\ ( X e. B /\ ( 1r ` R ) e. S ) /\ ( Y e. B /\ ( ( invg ` R ) ` A ) e. S ) ) -> ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ( linC ` M ) { X , Y } ) = ( ( ( 1r ` R ) .x. X ) ( +g ` M ) ( ( ( invg ` R ) ` A ) .x. Y ) ) )
40	19, 26, 28, 34, 39	syl112anc 1272	. . . . 5 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ( linC ` M ) { X , Y } ) = ( ( ( 1r ` R ) .x. X ) ( +g ` M ) ( ( ( invg ` R ) ` A ) .x. Y ) ) )
41		simpll 760	. . . . . . 7 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> M e. LMod )
42	24	ad2antlr 733	. . . . . . . 8 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> X e. B )
43	31	adantl 468	. . . . . . . 8 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> A e. S )
44	42, 28, 43	3jca 1188	. . . . . . 7 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( X e. B /\ Y e. B /\ A e. S ) )
45	41, 44	jca 535	. . . . . 6 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( M e. LMod /\ ( X e. B /\ Y e. B /\ A e. S ) ) )
46		simprr 766	. . . . . 6 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> X = ( A .x. Y ) )
47		snlindsntor.z	. . . . . . 7 |- Z = ( 0g ` M )
48	35, 20, 21, 13, 47, 36, 22, 32	ldepsprlem 40318	. . . . . 6 |- ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ A e. S ) ) -> ( X = ( A .x. Y ) -> ( ( ( 1r ` R ) .x. X ) ( +g ` M ) ( ( ( invg ` R ) ` A ) .x. Y ) ) = Z ) )
49	45, 46, 48	sylc 62	. . . . 5 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( ( ( 1r ` R ) .x. X ) ( +g ` M ) ( ( ( invg ` R ) ` A ) .x. Y ) ) = Z )
50	40, 49	eqtrd 2485	. . . 4 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ( linC ` M ) { X , Y } ) = Z )
51	20	lmodring 18099	. . . . . . . . . 10 |- ( M e. LMod -> R e. Ring )
52		eqcom 2458	. . . . . . . . . . . 12 |- ( ( 1r ` R ) = ( 0g ` R ) <-> ( 0g ` R ) = ( 1r ` R ) )
53		eqid 2451	. . . . . . . . . . . . . . 15 |- ( 0g ` R ) = ( 0g ` R )
54	21, 53, 22	01eq0ring 18496	. . . . . . . . . . . . . 14 |- ( ( R e. Ring /\ ( 0g ` R ) = ( 1r ` R ) ) -> S = { ( 0g ` R ) } )
55		sneq 3978	. . . . . . . . . . . . . . . . 17 |- ( ( 0g ` R ) = ( 1r ` R ) -> { ( 0g ` R ) } = { ( 1r ` R ) } )
56	55	eqeq2d 2461	. . . . . . . . . . . . . . . 16 |- ( ( 0g ` R ) = ( 1r ` R ) -> ( S = { ( 0g ` R ) } <-> S = { ( 1r ` R ) } ) )
57		eleq2 2518	. . . . . . . . . . . . . . . . . . 19 |- ( S = { ( 1r ` R ) } -> ( A e. S <-> A e. { ( 1r ` R ) } ) )
58		elsni 3993	. . . . . . . . . . . . . . . . . . . 20 |- ( A e. { ( 1r ` R ) } -> A = ( 1r ` R ) )
59		oveq1 6297	. . . . . . . . . . . . . . . . . . . . . 22 |- ( A = ( 1r ` R ) -> ( A .x. Y ) = ( ( 1r ` R ) .x. Y ) )
60	59	eqeq2d 2461	. . . . . . . . . . . . . . . . . . . . 21 |- ( A = ( 1r ` R ) -> ( X = ( A .x. Y ) <-> X = ( ( 1r ` R ) .x. Y ) ) )
61	27	anim1i 572	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ( ( ( X e. B /\ Y e. B /\ X =/= Y ) /\ M e. LMod ) -> ( Y e. B /\ M e. LMod ) )
62	61	ancomd 453	. . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ( ( ( X e. B /\ Y e. B /\ X =/= Y ) /\ M e. LMod ) -> ( M e. LMod /\ Y e. B ) )
63	35, 20, 36, 22	lmodvs1 18119	. . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ( ( M e. LMod /\ Y e. B ) -> ( ( 1r ` R ) .x. Y ) = Y )
64	62, 63	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . 25 |- ( ( ( X e. B /\ Y e. B /\ X =/= Y ) /\ M e. LMod ) -> ( ( 1r ` R ) .x. Y ) = Y )
65	64	eqeq2d 2461	. . . . . . . . . . . . . . . . . . . . . . . 24 |- ( ( ( X e. B /\ Y e. B /\ X =/= Y ) /\ M e. LMod ) -> ( X = ( ( 1r ` R ) .x. Y ) <-> X = Y ) )
66		eqneqall 2634	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ( X = Y -> ( X =/= Y -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) )
67	66	com12 32	. . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ( X =/= Y -> ( X = Y -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) )
68	67	3ad2ant3 1031	. . . . . . . . . . . . . . . . . . . . . . . . 25 |- ( ( X e. B /\ Y e. B /\ X =/= Y ) -> ( X = Y -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) )
69	68	adantr 467	. . . . . . . . . . . . . . . . . . . . . . . 24 |- ( ( ( X e. B /\ Y e. B /\ X =/= Y ) /\ M e. LMod ) -> ( X = Y -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) )
70	65, 69	sylbid 219	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( ( ( X e. B /\ Y e. B /\ X =/= Y ) /\ M e. LMod ) -> ( X = ( ( 1r ` R ) .x. Y ) -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) )
71	70	ex 436	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( X e. B /\ Y e. B /\ X =/= Y ) -> ( M e. LMod -> ( X = ( ( 1r ` R ) .x. Y ) -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) ) )
72	71	com3r 82	. . . . . . . . . . . . . . . . . . . . 21 |- ( X = ( ( 1r ` R ) .x. Y ) -> ( ( X e. B /\ Y e. B /\ X =/= Y ) -> ( M e. LMod -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) ) )
73	60, 72	syl6bi 232	. . . . . . . . . . . . . . . . . . . 20 |- ( A = ( 1r ` R ) -> ( X = ( A .x. Y ) -> ( ( X e. B /\ Y e. B /\ X =/= Y ) -> ( M e. LMod -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) ) ) )
74	58, 73	syl 17	. . . . . . . . . . . . . . . . . . 19 |- ( A e. { ( 1r ` R ) } -> ( X = ( A .x. Y ) -> ( ( X e. B /\ Y e. B /\ X =/= Y ) -> ( M e. LMod -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) ) ) )
75	57, 74	syl6bi 232	. . . . . . . . . . . . . . . . . 18 |- ( S = { ( 1r ` R ) } -> ( A e. S -> ( X = ( A .x. Y ) -> ( ( X e. B /\ Y e. B /\ X =/= Y ) -> ( M e. LMod -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) ) ) ) )
76	75	impd 433	. . . . . . . . . . . . . . . . 17 |- ( S = { ( 1r ` R ) } -> ( ( A e. S /\ X = ( A .x. Y ) ) -> ( ( X e. B /\ Y e. B /\ X =/= Y ) -> ( M e. LMod -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) ) ) )
77	76	com23 81	. . . . . . . . . . . . . . . 16 |- ( S = { ( 1r ` R ) } -> ( ( X e. B /\ Y e. B /\ X =/= Y ) -> ( ( A e. S /\ X = ( A .x. Y ) ) -> ( M e. LMod -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) ) ) )
78	56, 77	syl6bi 232	. . . . . . . . . . . . . . 15 |- ( ( 0g ` R ) = ( 1r ` R ) -> ( S = { ( 0g ` R ) } -> ( ( X e. B /\ Y e. B /\ X =/= Y ) -> ( ( A e. S /\ X = ( A .x. Y ) ) -> ( M e. LMod -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) ) ) ) )
79	78	adantl 468	. . . . . . . . . . . . . 14 |- ( ( R e. Ring /\ ( 0g ` R ) = ( 1r ` R ) ) -> ( S = { ( 0g ` R ) } -> ( ( X e. B /\ Y e. B /\ X =/= Y ) -> ( ( A e. S /\ X = ( A .x. Y ) ) -> ( M e. LMod -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) ) ) ) )
80	54, 79	mpd 15	. . . . . . . . . . . . 13 |- ( ( R e. Ring /\ ( 0g ` R ) = ( 1r ` R ) ) -> ( ( X e. B /\ Y e. B /\ X =/= Y ) -> ( ( A e. S /\ X = ( A .x. Y ) ) -> ( M e. LMod -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) ) ) )
81	80	ex 436	. . . . . . . . . . . 12 |- ( R e. Ring -> ( ( 0g ` R ) = ( 1r ` R ) -> ( ( X e. B /\ Y e. B /\ X =/= Y ) -> ( ( A e. S /\ X = ( A .x. Y ) ) -> ( M e. LMod -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) ) ) ) )
82	52, 81	syl5bi 221	. . . . . . . . . . 11 |- ( R e. Ring -> ( ( 1r ` R ) = ( 0g ` R ) -> ( ( X e. B /\ Y e. B /\ X =/= Y ) -> ( ( A e. S /\ X = ( A .x. Y ) ) -> ( M e. LMod -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) ) ) ) )
83	82	com25 94	. . . . . . . . . 10 |- ( R e. Ring -> ( M e. LMod -> ( ( X e. B /\ Y e. B /\ X =/= Y ) -> ( ( A e. S /\ X = ( A .x. Y ) ) -> ( ( 1r ` R ) = ( 0g ` R ) -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) ) ) ) )
84	51, 83	mpcom 37	. . . . . . . . 9 |- ( M e. LMod -> ( ( X e. B /\ Y e. B /\ X =/= Y ) -> ( ( A e. S /\ X = ( A .x. Y ) ) -> ( ( 1r ` R ) = ( 0g ` R ) -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) ) ) )
85	84	imp31 434	. . . . . . . 8 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( ( 1r ` R ) = ( 0g ` R ) -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) ) )
86		orc 387	. . . . . . . 8 |- ( -. ( 1r ` R ) = ( 0g ` R ) -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) )
87	85, 86	pm2.61d1 163	. . . . . . 7 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) )
88	13	eqeq2i 2463	. . . . . . . . 9 |- ( ( 1r ` R ) = .0. <-> ( 1r ` R ) = ( 0g ` R ) )
89	88	necon3abii 2670	. . . . . . . 8 |- ( ( 1r ` R ) =/= .0. <-> -. ( 1r ` R ) = ( 0g ` R ) )
90	89	orbi1i 523	. . . . . . 7 |- ( ( ( 1r ` R ) =/= .0. \/ ( ( invg ` R ) ` A ) =/= .0. ) <-> ( -. ( 1r ` R ) = ( 0g ` R ) \/ ( ( invg ` R ) ` A ) =/= .0. ) )
91	87, 90	sylibr 216	. . . . . 6 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( ( 1r ` R ) =/= .0. \/ ( ( invg ` R ) ` A ) =/= .0. ) )
92	3	a1i 11	. . . . . . . . 9 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( 1r ` R ) e. _V )
93		fvpr1g 6109	. . . . . . . . 9 |- ( ( X e. B /\ ( 1r ` R ) e. _V /\ X =/= Y ) -> ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` X ) = ( 1r ` R ) )
94	42, 92, 8, 93	syl3anc 1268	. . . . . . . 8 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` X ) = ( 1r ` R ) )
95	94	neeq1d 2683	. . . . . . 7 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` X ) =/= .0. <-> ( 1r ` R ) =/= .0. ) )
96	4	a1i 11	. . . . . . . . 9 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( ( invg ` R ) ` A ) e. _V )
97		fvpr2g 6110	. . . . . . . . 9 |- ( ( Y e. B /\ ( ( invg ` R ) ` A ) e. _V /\ X =/= Y ) -> ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` Y ) = ( ( invg ` R ) ` A ) )
98	28, 96, 8, 97	syl3anc 1268	. . . . . . . 8 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` Y ) = ( ( invg ` R ) ` A ) )
99	98	neeq1d 2683	. . . . . . 7 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` Y ) =/= .0. <-> ( ( invg ` R ) ` A ) =/= .0. ) )
100	95, 99	orbi12d 716	. . . . . 6 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( ( ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` X ) =/= .0. \/ ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` Y ) =/= .0. ) <-> ( ( 1r ` R ) =/= .0. \/ ( ( invg ` R ) ` A ) =/= .0. ) ) )
101	91, 100	mpbird 236	. . . . 5 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` X ) =/= .0. \/ ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` Y ) =/= .0. ) )
102		fveq2 5865	. . . . . . . 8 |- ( v = X -> ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` v ) = ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` X ) )
103	102	neeq1d 2683	. . . . . . 7 |- ( v = X -> ( ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` v ) =/= .0. <-> ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` X ) =/= .0. ) )
104		fveq2 5865	. . . . . . . 8 |- ( v = Y -> ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` v ) = ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` Y ) )
105	104	neeq1d 2683	. . . . . . 7 |- ( v = Y -> ( ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` v ) =/= .0. <-> ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` Y ) =/= .0. ) )
106	103, 105	rexprg 4022	. . . . . 6 |- ( ( X e. B /\ Y e. B ) -> ( E. v e. { X , Y } ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` v ) =/= .0. <-> ( ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` X ) =/= .0. \/ ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` Y ) =/= .0. ) ) )
107	2, 106	syl 17	. . . . 5 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( E. v e. { X , Y } ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` v ) =/= .0. <-> ( ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` X ) =/= .0. \/ ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` Y ) =/= .0. ) ) )
108	101, 107	mpbird 236	. . . 4 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> E. v e. { X , Y } ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` v ) =/= .0. )
109	23	adantr 467	. . . . . . 7 |- ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) -> ( 1r ` R ) e. S )
110	109	adantr 467	. . . . . 6 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( 1r ` R ) e. S )
111		fvex 5875	. . . . . . . 8 |- ( Base ` R ) e. _V
112	21, 111	eqeltri 2525	. . . . . . 7 |- S e. _V
113	8, 112	jctir 541	. . . . . 6 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( X =/= Y /\ S e. _V ) )
114	38	mapprop 40180	. . . . . 6 |- ( ( ( X e. B /\ ( 1r ` R ) e. S ) /\ ( Y e. B /\ ( ( invg ` R ) ` A ) e. S ) /\ ( X =/= Y /\ S e. _V ) ) -> { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } e. ( S ^m { X , Y } ) )
115	42, 110, 28, 34, 113, 114	syl221anc 1279	. . . . 5 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } e. ( S ^m { X , Y } ) )
116		breq1 4405	. . . . . . 7 |- ( f = { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } -> ( f finSupp .0. <-> { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } finSupp .0. ) )
117		oveq1 6297	. . . . . . . 8 |- ( f = { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } -> ( f ( linC ` M ) { X , Y } ) = ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ( linC ` M ) { X , Y } ) )
118	117	eqeq1d 2453	. . . . . . 7 |- ( f = { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } -> ( ( f ( linC ` M ) { X , Y } ) = Z <-> ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ( linC ` M ) { X , Y } ) = Z ) )
119		fveq1 5864	. . . . . . . . 9 |- ( f = { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } -> ( f ` v ) = ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` v ) )
120	119	neeq1d 2683	. . . . . . . 8 |- ( f = { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } -> ( ( f ` v ) =/= .0. <-> ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` v ) =/= .0. ) )
121	120	rexbidv 2901	. . . . . . 7 |- ( f = { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } -> ( E. v e. { X , Y } ( f ` v ) =/= .0. <-> E. v e. { X , Y } ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` v ) =/= .0. ) )
122	116, 118, 121	3anbi123d 1339	. . . . . 6 |- ( f = { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } -> ( ( f finSupp .0. /\ ( f ( linC ` M ) { X , Y } ) = Z /\ E. v e. { X , Y } ( f ` v ) =/= .0. ) <-> ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } finSupp .0. /\ ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ( linC ` M ) { X , Y } ) = Z /\ E. v e. { X , Y } ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` v ) =/= .0. ) ) )
123	122	adantl 468	. . . . 5 |- ( ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) /\ f = { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ) -> ( ( f finSupp .0. /\ ( f ( linC ` M ) { X , Y } ) = Z /\ E. v e. { X , Y } ( f ` v ) =/= .0. ) <-> ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } finSupp .0. /\ ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ( linC ` M ) { X , Y } ) = Z /\ E. v e. { X , Y } ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` v ) =/= .0. ) ) )
124	115, 123	rspcedv 3154	. . . 4 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } finSupp .0. /\ ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ( linC ` M ) { X , Y } ) = Z /\ E. v e. { X , Y } ( { <. X , ( 1r ` R ) >. , <. Y , ( ( invg ` R ) ` A ) >. } ` v ) =/= .0. ) -> E. f e. ( S ^m { X , Y } ) ( f finSupp .0. /\ ( f ( linC ` M ) { X , Y } ) = Z /\ E. v e. { X , Y } ( f ` v ) =/= .0. ) ) )
125	17, 50, 108, 124	mp3and 1367	. . 3 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> E. f e. ( S ^m { X , Y } ) ( f finSupp .0. /\ ( f ( linC ` M ) { X , Y } ) = Z /\ E. v e. { X , Y } ( f ` v ) =/= .0. ) )
126		prelpwi 4647	. . . . . 6 |- ( ( X e. B /\ Y e. B ) -> { X , Y } e. ~P B )
127	126	3adant3 1028	. . . . 5 |- ( ( X e. B /\ Y e. B /\ X =/= Y ) -> { X , Y } e. ~P B )
128	127	ad2antlr 733	. . . 4 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> { X , Y } e. ~P B )
129	35, 47, 20, 21, 13	islindeps 40299	. . . 4 |- ( ( M e. LMod /\ { X , Y } e. ~P B ) -> ( { X , Y } linDepS M <-> E. f e. ( S ^m { X , Y } ) ( f finSupp .0. /\ ( f ( linC ` M ) { X , Y } ) = Z /\ E. v e. { X , Y } ( f ` v ) =/= .0. ) ) )
130	41, 128, 129	syl2anc 667	. . 3 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> ( { X , Y } linDepS M <-> E. f e. ( S ^m { X , Y } ) ( f finSupp .0. /\ ( f ( linC ` M ) { X , Y } ) = Z /\ E. v e. { X , Y } ( f ` v ) =/= .0. ) ) )
131	125, 130	mpbird 236	. 2 |- ( ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) /\ ( A e. S /\ X = ( A .x. Y ) ) ) -> { X , Y } linDepS M )
132	131	ex 436	1 |- ( ( M e. LMod /\ ( X e. B /\ Y e. B /\ X =/= Y ) ) -> ( ( A e. S /\ X = ( A .x. Y ) ) -> { X , Y } linDepS M ) )

Syntax hints:   -. wn 3   -> wi 4   <-> wb 188   \/ wo 370   /\ wa 371   /\ w3a 985   = wceq 1444   e. wcel 1887   =/= wne 2622   E.wrex 2738   _Vcvv 3045   ~Pcpw 3951   {csn 3968   {cpr 3970   <.cop 3974   class class class wbr 4402   -->wf 5578   ` cfv 5582  (class class class)co 6290   ^m cmap 7472   Fincfn 7569   finSupp cfsupp 7883   Basecbs 15121   +g cplusg 15190  Scalarcsca 15193   .scvsca 15194   0gc0g 15338   Grpcgrp 16669   invgcminusg 16670   1rcur 17735   Ringcrg 17780   LModclmod 18091   linC clinc 40250   linDepS clindeps 40287

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1669  ax-4 1682  ax-5 1758  ax-6 1805  ax-7 1851  ax-8 1889  ax-9 1896  ax-10 1915  ax-11 1920  ax-12 1933  ax-13 2091  ax-ext 2431  ax-rep 4515  ax-sep 4525  ax-nul 4534  ax-pow 4581  ax-pr 4639  ax-un 6583  ax-inf2 8146  ax-cnex 9595  ax-resscn 9596  ax-1cn 9597  ax-icn 9598  ax-addcl 9599  ax-addrcl 9600  ax-mulcl 9601  ax-mulrcl 9602  ax-mulcom 9603  ax-addass 9604  ax-mulass 9605  ax-distr 9606  ax-i2m1 9607  ax-1ne0 9608  ax-1rid 9609  ax-rnegex 9610  ax-rrecex 9611  ax-cnre 9612  ax-pre-lttri 9613  ax-pre-lttrn 9614  ax-pre-ltadd 9615  ax-pre-mulgt0 9616

This theorem depends on definitions:  df-bi 189  df-or 372  df-an 373  df-3or 986  df-3an 987  df-tru 1447  df-ex 1664  df-nf 1668  df-sb 1798  df-eu 2303  df-mo 2304  df-clab 2438  df-cleq 2444  df-clel 2447  df-nfc 2581  df-ne 2624  df-nel 2625  df-ral 2742  df-rex 2743  df-reu 2744  df-rmo 2745  df-rab 2746  df-v 3047  df-sbc 3268  df-csb 3364  df-dif 3407  df-un 3409  df-in 3411  df-ss 3418  df-pss 3420  df-nul 3732  df-if 3882  df-pw 3953  df-sn 3969  df-pr 3971  df-tp 3973  df-op 3975  df-uni 4199  df-int 4235  df-iun 4280  df-iin 4281  df-br 4403  df-opab 4462  df-mpt 4463  df-tr 4498  df-eprel 4745  df-id 4749  df-po 4755  df-so 4756  df-fr 4793  df-se 4794  df-we 4795  df-xp 4840  df-rel 4841  df-cnv 4842  df-co 4843  df-dm 4844  df-rn 4845  df-res 4846  df-ima 4847  df-pred 5380  df-ord 5426  df-on 5427  df-lim 5428  df-suc 5429  df-iota 5546  df-fun 5584  df-fn 5585  df-f 5586  df-f1 5587  df-fo 5588  df-f1o 5589  df-fv 5590  df-isom 5591  df-riota 6252  df-ov 6293  df-oprab 6294  df-mpt2 6295  df-of 6531  df-om 6693  df-1st 6793  df-2nd 6794  df-supp 6915  df-wrecs 7028  df-recs 7090  df-rdg 7128  df-1o 7182  df-oadd 7186  df-er 7363  df-map 7474  df-en 7570  df-dom 7571  df-sdom 7572  df-fin 7573  df-fsupp 7884  df-oi 8025  df-card 8373  df-pnf 9677  df-mnf 9678  df-xr 9679  df-ltxr 9680  df-le 9681  df-sub 9862  df-neg 9863  df-nn 10610  df-2 10668  df-n0 10870  df-z 10938  df-uz 11160  df-fz 11785  df-fzo 11916  df-seq 12214  df-hash 12516  df-ndx 15124  df-slot 15125  df-base 15126  df-sets 15127  df-ress 15128  df-plusg 15203  df-0g 15340  df-gsum 15341  df-mre 15492  df-mrc 15493  df-acs 15495  df-mgm 16488  df-sgrp 16527  df-mnd 16537  df-submnd 16583  df-grp 16673  df-minusg 16674  df-mulg 16676  df-cntz 16971  df-cmn 17432  df-abl 17433  df-mgp 17724  df-ur 17736  df-ring 17782  df-lmod 18093  df-linc 40252  df-lininds 40288  df-lindeps 40290

This theorem is referenced by: (None)