Theorem dih1dimatlem0 35279

Description: Lemma for dih1dimat 35281. (Contributed by NM, 11-Apr-2014.)

Hypotheses

Ref	Expression
dih1dimat.h	|- H = ( LHyp ` K )
dih1dimat.u	|- U = ( ( DVecH ` K ) ` W )
dih1dimat.i	|- I = ( ( DIsoH ` K ) ` W )
dih1dimat.a	|- A = (LSAtoms ` U )
dih1dimat.b	|- B = ( Base ` K )
dih1dimat.l	|- .<_ = ( le ` K )
dih1dimat.c	|- C = ( Atoms ` K )
dih1dimat.p	|- P = ( ( oc ` K ) ` W )
dih1dimat.t	|- T = ( ( LTrn ` K ) ` W )
dih1dimat.r	|- R = ( ( trL ` K ) ` W )
dih1dimat.e	|- E = ( ( TEndo ` K ) ` W )
dih1dimat.o	|- O = ( h e. T |-> ( _I |` B ) )
dih1dimat.d	|- F = (Scalar ` U )
dih1dimat.j	|- J = ( invr ` F )
dih1dimat.v	|- V = ( Base ` U )
dih1dimat.m	|- .x. = ( .s ` U )
dih1dimat.s	|- S = ( LSubSp ` U )
dih1dimat.n	|- N = ( LSpan ` U )
dih1dimat.z	|- .0. = ( 0g ` U )
dih1dimat.g	|- G = ( iota_ h e. T ( h ` P ) = ( ( ( J ` s ) ` f ) ` P ) )

Assertion

Ref	Expression
dih1dimatlem0	|- ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) -> ( ( i = ( p ` G ) /\ p e. E ) <-> ( ( i e. T /\ p e. E ) /\ E. t e. E ( i = ( t ` f ) /\ p = ( t o. s ) ) ) ) )

Distinct variable groups:   .<_ , h   B, h   f, i, p, s, t, E   t, F   C, h   i, G, p, t   t, h, J   f, N, s, t   f, h, K, i, p, s, t   T, f, h, i, p, s, t   U, f, h, s, t   f, H, h, i, p, s, t   f, V, i, p, s, t   f, W, h, i, p, s, t   f, I, s   i, O, p, t   P, h   t, .x.

Allowed substitution hints:   A( t, f, h, i, s, p)   B( t, f, i, s, p)   C( t, f, i, s, p)   P( t, f, i, s, p)   R( t, f, h, i, s, p)   S( t, f, h, i, s, p)   .x. ( f, h, i, s, p)   U( i, p)   E( h)   F( f, h, i, s, p)   G( f, h, s)   I( t, h, i, p)   J( f, i, s, p)   .<_ ( t, f, i, s, p)   N( h, i, p)   O( f, h, s)   V( h)   .0. ( t, f, h, i, s, p)

Proof of Theorem dih1dimatlem0

Step	Hyp	Ref	Expression
1		simprl 755	. . . 4 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> i = ( p ` G ) )
2		simpl1 991	. . . . 5 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> ( K e. HL /\ W e. H ) )
3		simprr 756	. . . . 5 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> p e. E )
4		dih1dimat.l	. . . . . . . 8 |- .<_ = ( le ` K )
5		dih1dimat.c	. . . . . . . 8 |- C = ( Atoms ` K )
6		dih1dimat.h	. . . . . . . 8 |- H = ( LHyp ` K )
7		dih1dimat.p	. . . . . . . 8 |- P = ( ( oc ` K ) ` W )
8	4, 5, 6, 7	lhpocnel2 33969	. . . . . . 7 |- ( ( K e. HL /\ W e. H ) -> ( P e. C /\ -. P .<_ W ) )
9	2, 8	syl 16	. . . . . 6 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> ( P e. C /\ -. P .<_ W ) )
10		simpl2r 1042	. . . . . . . . 9 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> s e. E )
11		simpl3 993	. . . . . . . . 9 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> s =/= O )
12		dih1dimat.b	. . . . . . . . . . 11 |- B = ( Base ` K )
13		dih1dimat.t	. . . . . . . . . . 11 |- T = ( ( LTrn ` K ) ` W )
14		dih1dimat.e	. . . . . . . . . . 11 |- E = ( ( TEndo ` K ) ` W )
15		dih1dimat.o	. . . . . . . . . . 11 |- O = ( h e. T |-> ( _I |` B ) )
16		dih1dimat.u	. . . . . . . . . . 11 |- U = ( ( DVecH ` K ) ` W )
17		dih1dimat.d	. . . . . . . . . . 11 |- F = (Scalar ` U )
18		dih1dimat.j	. . . . . . . . . . 11 |- J = ( invr ` F )
19	12, 6, 13, 14, 15, 16, 17, 18	tendoinvcl 35055	. . . . . . . . . 10 |- ( ( ( K e. HL /\ W e. H ) /\ s e. E /\ s =/= O ) -> ( ( J ` s ) e. E /\ ( J ` s ) =/= O ) )
20	19	simpld 459	. . . . . . . . 9 |- ( ( ( K e. HL /\ W e. H ) /\ s e. E /\ s =/= O ) -> ( J ` s ) e. E )
21	2, 10, 11, 20	syl3anc 1219	. . . . . . . 8 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> ( J ` s ) e. E )
22		simpl2l 1041	. . . . . . . 8 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> f e. T )
23	6, 13, 14	tendocl 34717	. . . . . . . 8 |- ( ( ( K e. HL /\ W e. H ) /\ ( J ` s ) e. E /\ f e. T ) -> ( ( J ` s ) ` f ) e. T )
24	2, 21, 22, 23	syl3anc 1219	. . . . . . 7 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> ( ( J ` s ) ` f ) e. T )
25	4, 5, 6, 13	ltrnel 34089	. . . . . . 7 |- ( ( ( K e. HL /\ W e. H ) /\ ( ( J ` s ) ` f ) e. T /\ ( P e. C /\ -. P .<_ W ) ) -> ( ( ( ( J ` s ) ` f ) ` P ) e. C /\ -. ( ( ( J ` s ) ` f ) ` P ) .<_ W ) )
26	2, 24, 9, 25	syl3anc 1219	. . . . . 6 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> ( ( ( ( J ` s ) ` f ) ` P ) e. C /\ -. ( ( ( J ` s ) ` f ) ` P ) .<_ W ) )
27		dih1dimat.g	. . . . . . 7 |- G = ( iota_ h e. T ( h ` P ) = ( ( ( J ` s ) ` f ) ` P ) )
28	4, 5, 6, 13, 27	ltrniotacl 34529	. . . . . 6 |- ( ( ( K e. HL /\ W e. H ) /\ ( P e. C /\ -. P .<_ W ) /\ ( ( ( ( J ` s ) ` f ) ` P ) e. C /\ -. ( ( ( J ` s ) ` f ) ` P ) .<_ W ) ) -> G e. T )
29	2, 9, 26, 28	syl3anc 1219	. . . . 5 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> G e. T )
30	6, 13, 14	tendocl 34717	. . . . 5 |- ( ( ( K e. HL /\ W e. H ) /\ p e. E /\ G e. T ) -> ( p ` G ) e. T )
31	2, 3, 29, 30	syl3anc 1219	. . . 4 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> ( p ` G ) e. T )
32	1, 31	eqeltrd 2539	. . 3 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> i e. T )
33	6, 14	tendococl 34722	. . . . 5 |- ( ( ( K e. HL /\ W e. H ) /\ p e. E /\ ( J ` s ) e. E ) -> ( p o. ( J ` s ) ) e. E )
34	2, 3, 21, 33	syl3anc 1219	. . . 4 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> ( p o. ( J ` s ) ) e. E )
35		simp1 988	. . . . . . . 8 |- ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) -> ( K e. HL /\ W e. H ) )
36	8	3ad2ant1 1009	. . . . . . . . 9 |- ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) -> ( P e. C /\ -. P .<_ W ) )
37	20	3adant2l 1213	. . . . . . . . . . 11 |- ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) -> ( J ` s ) e. E )
38		simp2l 1014	. . . . . . . . . . 11 |- ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) -> f e. T )
39	35, 37, 38, 23	syl3anc 1219	. . . . . . . . . 10 |- ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) -> ( ( J ` s ) ` f ) e. T )
40	35, 39, 36, 25	syl3anc 1219	. . . . . . . . 9 |- ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) -> ( ( ( ( J ` s ) ` f ) ` P ) e. C /\ -. ( ( ( J ` s ) ` f ) ` P ) .<_ W ) )
41	35, 36, 40, 28	syl3anc 1219	. . . . . . . 8 |- ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) -> G e. T )
42	4, 5, 6, 13, 27	ltrniotaval 34531	. . . . . . . . 9 |- ( ( ( K e. HL /\ W e. H ) /\ ( P e. C /\ -. P .<_ W ) /\ ( ( ( ( J ` s ) ` f ) ` P ) e. C /\ -. ( ( ( J ` s ) ` f ) ` P ) .<_ W ) ) -> ( G ` P ) = ( ( ( J ` s ) ` f ) ` P ) )
43	35, 36, 40, 42	syl3anc 1219	. . . . . . . 8 |- ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) -> ( G ` P ) = ( ( ( J ` s ) ` f ) ` P ) )
44	4, 5, 6, 13	cdlemd 34157	. . . . . . . 8 |- ( ( ( ( K e. HL /\ W e. H ) /\ G e. T /\ ( ( J ` s ) ` f ) e. T ) /\ ( P e. C /\ -. P .<_ W ) /\ ( G ` P ) = ( ( ( J ` s ) ` f ) ` P ) ) -> G = ( ( J ` s ) ` f ) )
45	35, 41, 39, 36, 43, 44	syl311anc 1233	. . . . . . 7 |- ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) -> G = ( ( J ` s ) ` f ) )
46	45	adantr 465	. . . . . 6 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> G = ( ( J ` s ) ` f ) )
47	46	fveq2d 5793	. . . . 5 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> ( p ` G ) = ( p ` ( ( J ` s ) ` f ) ) )
48	6, 13, 14	tendocoval 34716	. . . . . 6 |- ( ( ( K e. HL /\ W e. H ) /\ ( p e. E /\ ( J ` s ) e. E ) /\ f e. T ) -> ( ( p o. ( J ` s ) ) ` f ) = ( p ` ( ( J ` s ) ` f ) ) )
49	2, 3, 21, 22, 48	syl121anc 1224	. . . . 5 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> ( ( p o. ( J ` s ) ) ` f ) = ( p ` ( ( J ` s ) ` f ) ) )
50	47, 1, 49	3eqtr4d 2502	. . . 4 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> i = ( ( p o. ( J ` s ) ) ` f ) )
51		coass 5454	. . . . 5 |- ( ( p o. ( J ` s ) ) o. s ) = ( p o. ( ( J ` s ) o. s ) )
52	12, 6, 13, 14, 15, 16, 17, 18	tendolinv 35056	. . . . . . . 8 |- ( ( ( K e. HL /\ W e. H ) /\ s e. E /\ s =/= O ) -> ( ( J ` s ) o. s ) = ( _I |` T ) )
53	2, 10, 11, 52	syl3anc 1219	. . . . . . 7 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> ( ( J ` s ) o. s ) = ( _I |` T ) )
54	53	coeq2d 5100	. . . . . 6 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> ( p o. ( ( J ` s ) o. s ) ) = ( p o. ( _I |` T ) ) )
55	6, 13, 14	tendo1mulr 34721	. . . . . . 7 |- ( ( ( K e. HL /\ W e. H ) /\ p e. E ) -> ( p o. ( _I |` T ) ) = p )
56	2, 3, 55	syl2anc 661	. . . . . 6 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> ( p o. ( _I |` T ) ) = p )
57	54, 56	eqtrd 2492	. . . . 5 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> ( p o. ( ( J ` s ) o. s ) ) = p )
58	51, 57	syl5req 2505	. . . 4 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> p = ( ( p o. ( J ` s ) ) o. s ) )
59		fveq1 5788	. . . . . . 7 |- ( t = ( p o. ( J ` s ) ) -> ( t ` f ) = ( ( p o. ( J ` s ) ) ` f ) )
60	59	eqeq2d 2465	. . . . . 6 |- ( t = ( p o. ( J ` s ) ) -> ( i = ( t ` f ) <-> i = ( ( p o. ( J ` s ) ) ` f ) ) )
61		coeq1 5095	. . . . . . 7 |- ( t = ( p o. ( J ` s ) ) -> ( t o. s ) = ( ( p o. ( J ` s ) ) o. s ) )
62	61	eqeq2d 2465	. . . . . 6 |- ( t = ( p o. ( J ` s ) ) -> ( p = ( t o. s ) <-> p = ( ( p o. ( J ` s ) ) o. s ) ) )
63	60, 62	anbi12d 710	. . . . 5 |- ( t = ( p o. ( J ` s ) ) -> ( ( i = ( t ` f ) /\ p = ( t o. s ) ) <-> ( i = ( ( p o. ( J ` s ) ) ` f ) /\ p = ( ( p o. ( J ` s ) ) o. s ) ) ) )
64	63	rspcev 3169	. . . 4 |- ( ( ( p o. ( J ` s ) ) e. E /\ ( i = ( ( p o. ( J ` s ) ) ` f ) /\ p = ( ( p o. ( J ` s ) ) o. s ) ) ) -> E. t e. E ( i = ( t ` f ) /\ p = ( t o. s ) ) )
65	34, 50, 58, 64	syl12anc 1217	. . 3 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> E. t e. E ( i = ( t ` f ) /\ p = ( t o. s ) ) )
66	32, 3, 65	jca31 534	. 2 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i = ( p ` G ) /\ p e. E ) ) -> ( ( i e. T /\ p e. E ) /\ E. t e. E ( i = ( t ` f ) /\ p = ( t o. s ) ) ) )
67		simp3r 1017	. . . . . . . 8 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> p = ( t o. s ) )
68	67	fveq1d 5791	. . . . . . 7 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> ( p ` ( ( J ` s ) ` f ) ) = ( ( t o. s ) ` ( ( J ` s ) ` f ) ) )
69		simp1l1 1081	. . . . . . . 8 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> ( K e. HL /\ W e. H ) )
70		simp2 989	. . . . . . . . 9 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> t e. E )
71		simpl2r 1042	. . . . . . . . . 10 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) -> s e. E )
72	71	3ad2ant1 1009	. . . . . . . . 9 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> s e. E )
73	6, 14	tendococl 34722	. . . . . . . . 9 |- ( ( ( K e. HL /\ W e. H ) /\ t e. E /\ s e. E ) -> ( t o. s ) e. E )
74	69, 70, 72, 73	syl3anc 1219	. . . . . . . 8 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> ( t o. s ) e. E )
75		simp1l3 1083	. . . . . . . . 9 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> s =/= O )
76	69, 72, 75, 20	syl3anc 1219	. . . . . . . 8 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> ( J ` s ) e. E )
77		simpl2l 1041	. . . . . . . . 9 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) -> f e. T )
78	77	3ad2ant1 1009	. . . . . . . 8 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> f e. T )
79	6, 13, 14	tendocoval 34716	. . . . . . . 8 |- ( ( ( K e. HL /\ W e. H ) /\ ( ( t o. s ) e. E /\ ( J ` s ) e. E ) /\ f e. T ) -> ( ( ( t o. s ) o. ( J ` s ) ) ` f ) = ( ( t o. s ) ` ( ( J ` s ) ` f ) ) )
80	69, 74, 76, 78, 79	syl121anc 1224	. . . . . . 7 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> ( ( ( t o. s ) o. ( J ` s ) ) ` f ) = ( ( t o. s ) ` ( ( J ` s ) ` f ) ) )
81		coass 5454	. . . . . . . . 9 |- ( ( t o. s ) o. ( J ` s ) ) = ( t o. ( s o. ( J ` s ) ) )
82	12, 6, 13, 14, 15, 16, 17, 18	tendorinv 35057	. . . . . . . . . . . 12 |- ( ( ( K e. HL /\ W e. H ) /\ s e. E /\ s =/= O ) -> ( s o. ( J ` s ) ) = ( _I |` T ) )
83	69, 72, 75, 82	syl3anc 1219	. . . . . . . . . . 11 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> ( s o. ( J ` s ) ) = ( _I |` T ) )
84	83	coeq2d 5100	. . . . . . . . . 10 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> ( t o. ( s o. ( J ` s ) ) ) = ( t o. ( _I |` T ) ) )
85	6, 13, 14	tendo1mulr 34721	. . . . . . . . . . 11 |- ( ( ( K e. HL /\ W e. H ) /\ t e. E ) -> ( t o. ( _I |` T ) ) = t )
86	69, 70, 85	syl2anc 661	. . . . . . . . . 10 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> ( t o. ( _I |` T ) ) = t )
87	84, 86	eqtrd 2492	. . . . . . . . 9 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> ( t o. ( s o. ( J ` s ) ) ) = t )
88	81, 87	syl5eq 2504	. . . . . . . 8 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> ( ( t o. s ) o. ( J ` s ) ) = t )
89	88	fveq1d 5791	. . . . . . 7 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> ( ( ( t o. s ) o. ( J ` s ) ) ` f ) = ( t ` f ) )
90	68, 80, 89	3eqtr2rd 2499	. . . . . 6 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> ( t ` f ) = ( p ` ( ( J ` s ) ` f ) ) )
91		simp3l 1016	. . . . . 6 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> i = ( t ` f ) )
92	45	adantr 465	. . . . . . . 8 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) -> G = ( ( J ` s ) ` f ) )
93	92	3ad2ant1 1009	. . . . . . 7 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> G = ( ( J ` s ) ` f ) )
94	93	fveq2d 5793	. . . . . 6 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> ( p ` G ) = ( p ` ( ( J ` s ) ` f ) ) )
95	90, 91, 94	3eqtr4d 2502	. . . . 5 |- ( ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) /\ t e. E /\ ( i = ( t ` f ) /\ p = ( t o. s ) ) ) -> i = ( p ` G ) )
96	95	rexlimdv3a 2939	. . . 4 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( i e. T /\ p e. E ) ) -> ( E. t e. E ( i = ( t ` f ) /\ p = ( t o. s ) ) -> i = ( p ` G ) ) )
97	96	impr 619	. . 3 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( ( i e. T /\ p e. E ) /\ E. t e. E ( i = ( t ` f ) /\ p = ( t o. s ) ) ) ) -> i = ( p ` G ) )
98		simprlr 762	. . 3 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( ( i e. T /\ p e. E ) /\ E. t e. E ( i = ( t ` f ) /\ p = ( t o. s ) ) ) ) -> p e. E )
99	97, 98	jca 532	. 2 |- ( ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) /\ ( ( i e. T /\ p e. E ) /\ E. t e. E ( i = ( t ` f ) /\ p = ( t o. s ) ) ) ) -> ( i = ( p ` G ) /\ p e. E ) )
100	66, 99	impbida 828	1 |- ( ( ( K e. HL /\ W e. H ) /\ ( f e. T /\ s e. E ) /\ s =/= O ) -> ( ( i = ( p ` G ) /\ p e. E ) <-> ( ( i e. T /\ p e. E ) /\ E. t e. E ( i = ( t ` f ) /\ p = ( t o. s ) ) ) ) )

Syntax hints:   -. wn 3   -> wi 4   <-> wb 184   /\ wa 369   /\ w3a 965   = wceq 1370   e. wcel 1758   =/= wne 2644   E.wrex 2796   class class class wbr 4390   |-> cmpt 4448   _I cid 4729   |` cres 4940   o. ccom 4942   ` cfv 5516   iota_crio 6150   Basecbs 14276  Scalarcsca 14343   .scvsca 14344   lecple 14347   occoc 14348   0gc0g 14480   invrcinvr 16869   LSubSpclss 17119   LSpanclspn 17158  LSAtomsclsa 32925   Atomscatm 33214   HLchlt 33301   LHypclh 33934   LTrncltrn 34051   trLctrl 34108   TEndoctendo 34702   DVecHcdvh 35029   DIsoHcdih 35179

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1592  ax-4 1603  ax-5 1671  ax-6 1710  ax-7 1730  ax-8 1760  ax-9 1762  ax-10 1777  ax-11 1782  ax-12 1794  ax-13 1952  ax-ext 2430  ax-rep 4501  ax-sep 4511  ax-nul 4519  ax-pow 4568  ax-pr 4629  ax-un 6472  ax-cnex 9439  ax-resscn 9440  ax-1cn 9441  ax-icn 9442  ax-addcl 9443  ax-addrcl 9444  ax-mulcl 9445  ax-mulrcl 9446  ax-mulcom 9447  ax-addass 9448  ax-mulass 9449  ax-distr 9450  ax-i2m1 9451  ax-1ne0 9452  ax-1rid 9453  ax-rnegex 9454  ax-rrecex 9455  ax-cnre 9456  ax-pre-lttri 9457  ax-pre-lttrn 9458  ax-pre-ltadd 9459  ax-pre-mulgt0 9460  ax-riotaBAD 32910

This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 966  df-3an 967  df-tru 1373  df-fal 1376  df-ex 1588  df-nf 1591  df-sb 1703  df-eu 2264  df-mo 2265  df-clab 2437  df-cleq 2443  df-clel 2446  df-nfc 2601  df-ne 2646  df-nel 2647  df-ral 2800  df-rex 2801  df-reu 2802  df-rmo 2803  df-rab 2804  df-v 3070  df-sbc 3285  df-csb 3387  df-dif 3429  df-un 3431  df-in 3433  df-ss 3440  df-pss 3442  df-nul 3736  df-if 3890  df-pw 3960  df-sn 3976  df-pr 3978  df-tp 3980  df-op 3982  df-uni 4190  df-int 4227  df-iun 4271  df-iin 4272  df-br 4391  df-opab 4449  df-mpt 4450  df-tr 4484  df-eprel 4730  df-id 4734  df-po 4739  df-so 4740  df-fr 4777  df-we 4779  df-ord 4820  df-on 4821  df-lim 4822  df-suc 4823  df-xp 4944  df-rel 4945  df-cnv 4946  df-co 4947  df-dm 4948  df-rn 4949  df-res 4950  df-ima 4951  df-iota 5479  df-fun 5518  df-fn 5519  df-f 5520  df-f1 5521  df-fo 5522  df-f1o 5523  df-fv 5524  df-riota 6151  df-ov 6193  df-oprab 6194  df-mpt2 6195  df-om 6577  df-1st 6677  df-2nd 6678  df-tpos 6845  df-undef 6892  df-recs 6932  df-rdg 6966  df-1o 7020  df-oadd 7024  df-er 7201  df-map 7316  df-en 7411  df-dom 7412  df-sdom 7413  df-fin 7414  df-pnf 9521  df-mnf 9522  df-xr 9523  df-ltxr 9524  df-le 9525  df-sub 9698  df-neg 9699  df-nn 10424  df-2 10481  df-3 10482  df-4 10483  df-5 10484  df-6 10485  df-n0 10681  df-z 10748  df-uz 10963  df-fz 11539  df-struct 14278  df-ndx 14279  df-slot 14280  df-base 14281  df-sets 14282  df-ress 14283  df-plusg 14353  df-mulr 14354  df-sca 14356  df-vsca 14357  df-0g 14482  df-poset 15218  df-plt 15230  df-lub 15246  df-glb 15247  df-join 15248  df-meet 15249  df-p0 15311  df-p1 15312  df-lat 15318  df-clat 15380  df-mnd 15517  df-grp 15647  df-minusg 15648  df-mgp 16697  df-ur 16709  df-rng 16753  df-oppr 16821  df-dvdsr 16839  df-unit 16840  df-invr 16870  df-dvr 16881  df-drng 16940  df-oposet 33127  df-ol 33129  df-oml 33130  df-covers 33217  df-ats 33218  df-atl 33249  df-cvlat 33273  df-hlat 33302  df-llines 33448  df-lplanes 33449  df-lvols 33450  df-lines 33451  df-psubsp 33453  df-pmap 33454  df-padd 33746  df-lhyp 33938  df-laut 33939  df-ldil 34054  df-ltrn 34055  df-trl 34109  df-tendo 34705  df-edring 34707  df-dvech 35030

This theorem is referenced by:  dih1dimatlem  35280