Theorem dihjatcclem4 35389

Description: Lemma for isomorphism H of lattice join of two atoms not under the fiducial hyperplane. (Contributed by NM, 29-Sep-2014.)

Hypotheses

Ref	Expression
dihjatcclem.b	|- B = ( Base ` K )
dihjatcclem.l	|- .<_ = ( le ` K )
dihjatcclem.h	|- H = ( LHyp ` K )
dihjatcclem.j	|- .\/ = ( join ` K )
dihjatcclem.m	|- ./\ = ( meet ` K )
dihjatcclem.a	|- A = ( Atoms ` K )
dihjatcclem.u	|- U = ( ( DVecH ` K ) ` W )
dihjatcclem.s	|- .(+) = ( LSSum ` U )
dihjatcclem.i	|- I = ( ( DIsoH ` K ) ` W )
dihjatcclem.v	|- V = ( ( P .\/ Q ) ./\ W )
dihjatcclem.k	|- ( ph -> ( K e. HL /\ W e. H ) )
dihjatcclem.p	|- ( ph -> ( P e. A /\ -. P .<_ W ) )
dihjatcclem.q	|- ( ph -> ( Q e. A /\ -. Q .<_ W ) )
dihjatcc.w	|- C = ( ( oc ` K ) ` W )
dihjatcc.t	|- T = ( ( LTrn ` K ) ` W )
dihjatcc.r	|- R = ( ( trL ` K ) ` W )
dihjatcc.e	|- E = ( ( TEndo ` K ) ` W )
dihjatcc.g	|- G = ( iota_ d e. T ( d ` C ) = P )
dihjatcc.dd	|- D = ( iota_ d e. T ( d ` C ) = Q )
dihjatcc.n	|- N = ( a e. E |-> ( d e. T |-> `' ( a ` d ) ) )
dihjatcc.o	|- .0. = ( d e. T |-> ( _I |` B ) )
dihjatcc.d	|- J = ( a e. E , b e. E |-> ( d e. T |-> ( ( a ` d ) o. ( b ` d ) ) ) )

Assertion

Ref	Expression
dihjatcclem4	|- ( ph -> ( I ` V ) C_ ( ( I ` P ) .(+) ( I ` Q ) ) )

Distinct variable groups:   .<_ , d   A, d   B, d   C, d   a, b, E   H, d   P, d   a, d, K, b   Q, d   T, a, b, d   W, a, b, d

Allowed substitution hints:   ph( a, b, d)   A( a, b)   B( a, b)   C( a, b)   D( a, b, d)   P( a, b)   .(+) ( a, b, d)   Q( a, b)   R( a, b, d)   U( a, b, d)   E( d)   G( a, b, d)   H( a, b)   I( a, b, d)   J( a, b, d)   .\/ ( a, b, d)   .<_ ( a, b)   ./\ ( a, b, d)   N( a, b, d)   V( a, b, d)   .0. ( a, b, d)

Proof of Theorem dihjatcclem4

Dummy variables t f s g h u are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		dihjatcclem.k	. . 3 |- ( ph -> ( K e. HL /\ W e. H ) )
2		dihjatcclem.h	. . . 4 |- H = ( LHyp ` K )
3		dihjatcclem.i	. . . 4 |- I = ( ( DIsoH ` K ) ` W )
4	2, 3	dihvalrel 35247	. . 3 |- ( ( K e. HL /\ W e. H ) -> Rel ( I ` V ) )
5	1, 4	syl 16	. 2 |- ( ph -> Rel ( I ` V ) )
6	1	adantr 465	. . . . . . 7 |- ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) -> ( K e. HL /\ W e. H ) )
7		dihjatcclem.l	. . . . . . . . . . . 12 |- .<_ = ( le ` K )
8		dihjatcclem.a	. . . . . . . . . . . 12 |- A = ( Atoms ` K )
9		dihjatcc.w	. . . . . . . . . . . 12 |- C = ( ( oc ` K ) ` W )
10	7, 8, 2, 9	lhpocnel2 33986	. . . . . . . . . . 11 |- ( ( K e. HL /\ W e. H ) -> ( C e. A /\ -. C .<_ W ) )
11	1, 10	syl 16	. . . . . . . . . 10 |- ( ph -> ( C e. A /\ -. C .<_ W ) )
12		dihjatcclem.p	. . . . . . . . . 10 |- ( ph -> ( P e. A /\ -. P .<_ W ) )
13		dihjatcc.t	. . . . . . . . . . 11 |- T = ( ( LTrn ` K ) ` W )
14		dihjatcc.g	. . . . . . . . . . 11 |- G = ( iota_ d e. T ( d ` C ) = P )
15	7, 8, 2, 13, 14	ltrniotacl 34546	. . . . . . . . . 10 |- ( ( ( K e. HL /\ W e. H ) /\ ( C e. A /\ -. C .<_ W ) /\ ( P e. A /\ -. P .<_ W ) ) -> G e. T )
16	1, 11, 12, 15	syl3anc 1219	. . . . . . . . 9 |- ( ph -> G e. T )
17		dihjatcclem.q	. . . . . . . . . . 11 |- ( ph -> ( Q e. A /\ -. Q .<_ W ) )
18		dihjatcc.dd	. . . . . . . . . . . 12 |- D = ( iota_ d e. T ( d ` C ) = Q )
19	7, 8, 2, 13, 18	ltrniotacl 34546	. . . . . . . . . . 11 |- ( ( ( K e. HL /\ W e. H ) /\ ( C e. A /\ -. C .<_ W ) /\ ( Q e. A /\ -. Q .<_ W ) ) -> D e. T )
20	1, 11, 17, 19	syl3anc 1219	. . . . . . . . . 10 |- ( ph -> D e. T )
21	2, 13	ltrncnv 34113	. . . . . . . . . 10 |- ( ( ( K e. HL /\ W e. H ) /\ D e. T ) -> `' D e. T )
22	1, 20, 21	syl2anc 661	. . . . . . . . 9 |- ( ph -> `' D e. T )
23	2, 13	ltrnco 34686	. . . . . . . . 9 |- ( ( ( K e. HL /\ W e. H ) /\ G e. T /\ `' D e. T ) -> ( G o. `' D ) e. T )
24	1, 16, 22, 23	syl3anc 1219	. . . . . . . 8 |- ( ph -> ( G o. `' D ) e. T )
25	24	adantr 465	. . . . . . 7 |- ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) -> ( G o. `' D ) e. T )
26		simprll 761	. . . . . . 7 |- ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) -> f e. T )
27		simprlr 762	. . . . . . . 8 |- ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) -> ( R ` f ) .<_ V )
28		dihjatcclem.b	. . . . . . . . . 10 |- B = ( Base ` K )
29		dihjatcclem.j	. . . . . . . . . 10 |- .\/ = ( join ` K )
30		dihjatcclem.m	. . . . . . . . . 10 |- ./\ = ( meet ` K )
31		dihjatcclem.u	. . . . . . . . . 10 |- U = ( ( DVecH ` K ) ` W )
32		dihjatcclem.s	. . . . . . . . . 10 |- .(+) = ( LSSum ` U )
33		dihjatcclem.v	. . . . . . . . . 10 |- V = ( ( P .\/ Q ) ./\ W )
34		dihjatcc.r	. . . . . . . . . 10 |- R = ( ( trL ` K ) ` W )
35		dihjatcc.e	. . . . . . . . . 10 |- E = ( ( TEndo ` K ) ` W )
36	28, 7, 2, 29, 30, 8, 31, 32, 3, 33, 1, 12, 17, 9, 13, 34, 35, 14, 18	dihjatcclem3 35388	. . . . . . . . 9 |- ( ph -> ( R ` ( G o. `' D ) ) = V )
37	36	adantr 465	. . . . . . . 8 |- ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) -> ( R ` ( G o. `' D ) ) = V )
38	27, 37	breqtrrd 4425	. . . . . . 7 |- ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) -> ( R ` f ) .<_ ( R ` ( G o. `' D ) ) )
39	7, 2, 13, 34, 35	tendoex 34942	. . . . . . 7 |- ( ( ( K e. HL /\ W e. H ) /\ ( ( G o. `' D ) e. T /\ f e. T ) /\ ( R ` f ) .<_ ( R ` ( G o. `' D ) ) ) -> E. t e. E ( t ` ( G o. `' D ) ) = f )
40	6, 25, 26, 38, 39	syl121anc 1224	. . . . . 6 |- ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) -> E. t e. E ( t ` ( G o. `' D ) ) = f )
41		df-rex 2804	. . . . . 6 |- ( E. t e. E ( t ` ( G o. `' D ) ) = f <-> E. t ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) )
42	40, 41	sylib 196	. . . . 5 |- ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) -> E. t ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) )
43		eqidd 2455	. . . . . . . . . 10 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> ( t ` G ) = ( t ` G ) )
44		simprl 755	. . . . . . . . . 10 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> t e. E )
45	1	ad2antrr 725	. . . . . . . . . . 11 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> ( K e. HL /\ W e. H ) )
46	12	ad2antrr 725	. . . . . . . . . . 11 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> ( P e. A /\ -. P .<_ W ) )
47		fvex 5808	. . . . . . . . . . . 12 |- ( t ` G ) e. _V
48		vex 3079	. . . . . . . . . . . 12 |- t e. _V
49	7, 8, 2, 9, 13, 35, 3, 14, 47, 48	dihopelvalcqat 35214	. . . . . . . . . . 11 |- ( ( ( K e. HL /\ W e. H ) /\ ( P e. A /\ -. P .<_ W ) ) -> ( <. ( t ` G ) , t >. e. ( I ` P ) <-> ( ( t ` G ) = ( t ` G ) /\ t e. E ) ) )
50	45, 46, 49	syl2anc 661	. . . . . . . . . 10 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> ( <. ( t ` G ) , t >. e. ( I ` P ) <-> ( ( t ` G ) = ( t ` G ) /\ t e. E ) ) )
51	43, 44, 50	mpbir2and 913	. . . . . . . . 9 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> <. ( t ` G ) , t >. e. ( I ` P ) )
52		eqidd 2455	. . . . . . . . . 10 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> ( ( N ` t ) ` D ) = ( ( N ` t ) ` D ) )
53		dihjatcc.n	. . . . . . . . . . . 12 |- N = ( a e. E |-> ( d e. T |-> `' ( a ` d ) ) )
54	2, 13, 35, 53	tendoicl 34763	. . . . . . . . . . 11 |- ( ( ( K e. HL /\ W e. H ) /\ t e. E ) -> ( N ` t ) e. E )
55	45, 44, 54	syl2anc 661	. . . . . . . . . 10 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> ( N ` t ) e. E )
56	17	ad2antrr 725	. . . . . . . . . . 11 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> ( Q e. A /\ -. Q .<_ W ) )
57		fvex 5808	. . . . . . . . . . . 12 |- ( ( N ` t ) ` D ) e. _V
58		fvex 5808	. . . . . . . . . . . 12 |- ( N ` t ) e. _V
59	7, 8, 2, 9, 13, 35, 3, 18, 57, 58	dihopelvalcqat 35214	. . . . . . . . . . 11 |- ( ( ( K e. HL /\ W e. H ) /\ ( Q e. A /\ -. Q .<_ W ) ) -> ( <. ( ( N ` t ) ` D ) , ( N ` t ) >. e. ( I ` Q ) <-> ( ( ( N ` t ) ` D ) = ( ( N ` t ) ` D ) /\ ( N ` t ) e. E ) ) )
60	45, 56, 59	syl2anc 661	. . . . . . . . . 10 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> ( <. ( ( N ` t ) ` D ) , ( N ` t ) >. e. ( I ` Q ) <-> ( ( ( N ` t ) ` D ) = ( ( N ` t ) ` D ) /\ ( N ` t ) e. E ) ) )
61	52, 55, 60	mpbir2and 913	. . . . . . . . 9 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> <. ( ( N ` t ) ` D ) , ( N ` t ) >. e. ( I ` Q ) )
62	16	ad2antrr 725	. . . . . . . . . . 11 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> G e. T )
63	22	ad2antrr 725	. . . . . . . . . . 11 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> `' D e. T )
64	2, 13, 35	tendospdi1 34988	. . . . . . . . . . 11 |- ( ( ( K e. HL /\ W e. H ) /\ ( t e. E /\ G e. T /\ `' D e. T ) ) -> ( t ` ( G o. `' D ) ) = ( ( t ` G ) o. ( t ` `' D ) ) )
65	45, 44, 62, 63, 64	syl13anc 1221	. . . . . . . . . 10 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> ( t ` ( G o. `' D ) ) = ( ( t ` G ) o. ( t ` `' D ) ) )
66		simprr 756	. . . . . . . . . 10 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> ( t ` ( G o. `' D ) ) = f )
67	20	ad2antrr 725	. . . . . . . . . . . . 13 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> D e. T )
68	53, 13	tendoi2 34762	. . . . . . . . . . . . 13 |- ( ( t e. E /\ D e. T ) -> ( ( N ` t ) ` D ) = `' ( t ` D ) )
69	44, 67, 68	syl2anc 661	. . . . . . . . . . . 12 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> ( ( N ` t ) ` D ) = `' ( t ` D ) )
70	2, 13, 35	tendocnv 34989	. . . . . . . . . . . . 13 |- ( ( ( K e. HL /\ W e. H ) /\ t e. E /\ D e. T ) -> `' ( t ` D ) = ( t ` `' D ) )
71	45, 44, 67, 70	syl3anc 1219	. . . . . . . . . . . 12 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> `' ( t ` D ) = ( t ` `' D ) )
72	69, 71	eqtr2d 2496	. . . . . . . . . . 11 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> ( t ` `' D ) = ( ( N ` t ) ` D ) )
73	72	coeq2d 5109	. . . . . . . . . 10 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> ( ( t ` G ) o. ( t ` `' D ) ) = ( ( t ` G ) o. ( ( N ` t ) ` D ) ) )
74	65, 66, 73	3eqtr3d 2503	. . . . . . . . 9 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> f = ( ( t ` G ) o. ( ( N ` t ) ` D ) ) )
75		simplrr 760	. . . . . . . . . 10 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> s = .0. )
76		dihjatcc.d	. . . . . . . . . . . 12 |- J = ( a e. E , b e. E |-> ( d e. T |-> ( ( a ` d ) o. ( b ` d ) ) ) )
77		dihjatcc.o	. . . . . . . . . . . 12 |- .0. = ( d e. T |-> ( _I |` B ) )
78	2, 13, 35, 53, 28, 76, 77	tendoipl2 34765	. . . . . . . . . . 11 |- ( ( ( K e. HL /\ W e. H ) /\ t e. E ) -> ( t J ( N ` t ) ) = .0. )
79	45, 44, 78	syl2anc 661	. . . . . . . . . 10 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> ( t J ( N ` t ) ) = .0. )
80	75, 79	eqtr4d 2498	. . . . . . . . 9 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> s = ( t J ( N ` t ) ) )
81		opeq1 4166	. . . . . . . . . . . . . . 15 |- ( g = ( t ` G ) -> <. g , t >. = <. ( t ` G ) , t >. )
82	81	eleq1d 2523	. . . . . . . . . . . . . 14 |- ( g = ( t ` G ) -> ( <. g , t >. e. ( I ` P ) <-> <. ( t ` G ) , t >. e. ( I ` P ) ) )
83	82	anbi1d 704	. . . . . . . . . . . . 13 |- ( g = ( t ` G ) -> ( ( <. g , t >. e. ( I ` P ) /\ <. h , u >. e. ( I ` Q ) ) <-> ( <. ( t ` G ) , t >. e. ( I ` P ) /\ <. h , u >. e. ( I ` Q ) ) ) )
84		coeq1 5104	. . . . . . . . . . . . . . 15 |- ( g = ( t ` G ) -> ( g o. h ) = ( ( t ` G ) o. h ) )
85	84	eqeq2d 2468	. . . . . . . . . . . . . 14 |- ( g = ( t ` G ) -> ( f = ( g o. h ) <-> f = ( ( t ` G ) o. h ) ) )
86	85	anbi1d 704	. . . . . . . . . . . . 13 |- ( g = ( t ` G ) -> ( ( f = ( g o. h ) /\ s = ( t J u ) ) <-> ( f = ( ( t ` G ) o. h ) /\ s = ( t J u ) ) ) )
87	83, 86	anbi12d 710	. . . . . . . . . . . 12 |- ( g = ( t ` G ) -> ( ( ( <. g , t >. e. ( I ` P ) /\ <. h , u >. e. ( I ` Q ) ) /\ ( f = ( g o. h ) /\ s = ( t J u ) ) ) <-> ( ( <. ( t ` G ) , t >. e. ( I ` P ) /\ <. h , u >. e. ( I ` Q ) ) /\ ( f = ( ( t ` G ) o. h ) /\ s = ( t J u ) ) ) ) )
88		opeq1 4166	. . . . . . . . . . . . . . 15 |- ( h = ( ( N ` t ) ` D ) -> <. h , u >. = <. ( ( N ` t ) ` D ) , u >. )
89	88	eleq1d 2523	. . . . . . . . . . . . . 14 |- ( h = ( ( N ` t ) ` D ) -> ( <. h , u >. e. ( I ` Q ) <-> <. ( ( N ` t ) ` D ) , u >. e. ( I ` Q ) ) )
90	89	anbi2d 703	. . . . . . . . . . . . 13 |- ( h = ( ( N ` t ) ` D ) -> ( ( <. ( t ` G ) , t >. e. ( I ` P ) /\ <. h , u >. e. ( I ` Q ) ) <-> ( <. ( t ` G ) , t >. e. ( I ` P ) /\ <. ( ( N ` t ) ` D ) , u >. e. ( I ` Q ) ) ) )
91		coeq2 5105	. . . . . . . . . . . . . . 15 |- ( h = ( ( N ` t ) ` D ) -> ( ( t ` G ) o. h ) = ( ( t ` G ) o. ( ( N ` t ) ` D ) ) )
92	91	eqeq2d 2468	. . . . . . . . . . . . . 14 |- ( h = ( ( N ` t ) ` D ) -> ( f = ( ( t ` G ) o. h ) <-> f = ( ( t ` G ) o. ( ( N ` t ) ` D ) ) ) )
93	92	anbi1d 704	. . . . . . . . . . . . 13 |- ( h = ( ( N ` t ) ` D ) -> ( ( f = ( ( t ` G ) o. h ) /\ s = ( t J u ) ) <-> ( f = ( ( t ` G ) o. ( ( N ` t ) ` D ) ) /\ s = ( t J u ) ) ) )
94	90, 93	anbi12d 710	. . . . . . . . . . . 12 |- ( h = ( ( N ` t ) ` D ) -> ( ( ( <. ( t ` G ) , t >. e. ( I ` P ) /\ <. h , u >. e. ( I ` Q ) ) /\ ( f = ( ( t ` G ) o. h ) /\ s = ( t J u ) ) ) <-> ( ( <. ( t ` G ) , t >. e. ( I ` P ) /\ <. ( ( N ` t ) ` D ) , u >. e. ( I ` Q ) ) /\ ( f = ( ( t ` G ) o. ( ( N ` t ) ` D ) ) /\ s = ( t J u ) ) ) ) )
95		opeq2 4167	. . . . . . . . . . . . . . 15 |- ( u = ( N ` t ) -> <. ( ( N ` t ) ` D ) , u >. = <. ( ( N ` t ) ` D ) , ( N ` t ) >. )
96	95	eleq1d 2523	. . . . . . . . . . . . . 14 |- ( u = ( N ` t ) -> ( <. ( ( N ` t ) ` D ) , u >. e. ( I ` Q ) <-> <. ( ( N ` t ) ` D ) , ( N ` t ) >. e. ( I ` Q ) ) )
97	96	anbi2d 703	. . . . . . . . . . . . 13 |- ( u = ( N ` t ) -> ( ( <. ( t ` G ) , t >. e. ( I ` P ) /\ <. ( ( N ` t ) ` D ) , u >. e. ( I ` Q ) ) <-> ( <. ( t ` G ) , t >. e. ( I ` P ) /\ <. ( ( N ` t ) ` D ) , ( N ` t ) >. e. ( I ` Q ) ) ) )
98		oveq2 6207	. . . . . . . . . . . . . . 15 |- ( u = ( N ` t ) -> ( t J u ) = ( t J ( N ` t ) ) )
99	98	eqeq2d 2468	. . . . . . . . . . . . . 14 |- ( u = ( N ` t ) -> ( s = ( t J u ) <-> s = ( t J ( N ` t ) ) ) )
100	99	anbi2d 703	. . . . . . . . . . . . 13 |- ( u = ( N ` t ) -> ( ( f = ( ( t ` G ) o. ( ( N ` t ) ` D ) ) /\ s = ( t J u ) ) <-> ( f = ( ( t ` G ) o. ( ( N ` t ) ` D ) ) /\ s = ( t J ( N ` t ) ) ) ) )
101	97, 100	anbi12d 710	. . . . . . . . . . . 12 |- ( u = ( N ` t ) -> ( ( ( <. ( t ` G ) , t >. e. ( I ` P ) /\ <. ( ( N ` t ) ` D ) , u >. e. ( I ` Q ) ) /\ ( f = ( ( t ` G ) o. ( ( N ` t ) ` D ) ) /\ s = ( t J u ) ) ) <-> ( ( <. ( t ` G ) , t >. e. ( I ` P ) /\ <. ( ( N ` t ) ` D ) , ( N ` t ) >. e. ( I ` Q ) ) /\ ( f = ( ( t ` G ) o. ( ( N ` t ) ` D ) ) /\ s = ( t J ( N ` t ) ) ) ) ) )
102	87, 94, 101	syl3an9b 1288	. . . . . . . . . . 11 |- ( ( g = ( t ` G ) /\ h = ( ( N ` t ) ` D ) /\ u = ( N ` t ) ) -> ( ( ( <. g , t >. e. ( I ` P ) /\ <. h , u >. e. ( I ` Q ) ) /\ ( f = ( g o. h ) /\ s = ( t J u ) ) ) <-> ( ( <. ( t ` G ) , t >. e. ( I ` P ) /\ <. ( ( N ` t ) ` D ) , ( N ` t ) >. e. ( I ` Q ) ) /\ ( f = ( ( t ` G ) o. ( ( N ` t ) ` D ) ) /\ s = ( t J ( N ` t ) ) ) ) ) )
103	102	spc3egv 3165	. . . . . . . . . 10 |- ( ( ( t ` G ) e. _V /\ ( ( N ` t ) ` D ) e. _V /\ ( N ` t ) e. _V ) -> ( ( ( <. ( t ` G ) , t >. e. ( I ` P ) /\ <. ( ( N ` t ) ` D ) , ( N ` t ) >. e. ( I ` Q ) ) /\ ( f = ( ( t ` G ) o. ( ( N ` t ) ` D ) ) /\ s = ( t J ( N ` t ) ) ) ) -> E. g E. h E. u ( ( <. g , t >. e. ( I ` P ) /\ <. h , u >. e. ( I ` Q ) ) /\ ( f = ( g o. h ) /\ s = ( t J u ) ) ) ) )
104	47, 57, 58, 103	mp3an 1315	. . . . . . . . 9 |- ( ( ( <. ( t ` G ) , t >. e. ( I ` P ) /\ <. ( ( N ` t ) ` D ) , ( N ` t ) >. e. ( I ` Q ) ) /\ ( f = ( ( t ` G ) o. ( ( N ` t ) ` D ) ) /\ s = ( t J ( N ` t ) ) ) ) -> E. g E. h E. u ( ( <. g , t >. e. ( I ` P ) /\ <. h , u >. e. ( I ` Q ) ) /\ ( f = ( g o. h ) /\ s = ( t J u ) ) ) )
105	51, 61, 74, 80, 104	syl22anc 1220	. . . . . . . 8 |- ( ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) /\ ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) ) -> E. g E. h E. u ( ( <. g , t >. e. ( I ` P ) /\ <. h , u >. e. ( I ` Q ) ) /\ ( f = ( g o. h ) /\ s = ( t J u ) ) ) )
106	105	ex 434	. . . . . . 7 |- ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) -> ( ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) -> E. g E. h E. u ( ( <. g , t >. e. ( I ` P ) /\ <. h , u >. e. ( I ` Q ) ) /\ ( f = ( g o. h ) /\ s = ( t J u ) ) ) ) )
107	106	eximdv 1677	. . . . . 6 |- ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) -> ( E. t ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) -> E. t E. g E. h E. u ( ( <. g , t >. e. ( I ` P ) /\ <. h , u >. e. ( I ` Q ) ) /\ ( f = ( g o. h ) /\ s = ( t J u ) ) ) ) )
108		excom 1789	. . . . . 6 |- ( E. t E. g E. h E. u ( ( <. g , t >. e. ( I ` P ) /\ <. h , u >. e. ( I ` Q ) ) /\ ( f = ( g o. h ) /\ s = ( t J u ) ) ) <-> E. g E. t E. h E. u ( ( <. g , t >. e. ( I ` P ) /\ <. h , u >. e. ( I ` Q ) ) /\ ( f = ( g o. h ) /\ s = ( t J u ) ) ) )
109	107, 108	syl6ib 226	. . . . 5 |- ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) -> ( E. t ( t e. E /\ ( t ` ( G o. `' D ) ) = f ) -> E. g E. t E. h E. u ( ( <. g , t >. e. ( I ` P ) /\ <. h , u >. e. ( I ` Q ) ) /\ ( f = ( g o. h ) /\ s = ( t J u ) ) ) ) )
110	42, 109	mpd 15	. . . 4 |- ( ( ph /\ ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) -> E. g E. t E. h E. u ( ( <. g , t >. e. ( I ` P ) /\ <. h , u >. e. ( I ` Q ) ) /\ ( f = ( g o. h ) /\ s = ( t J u ) ) ) )
111	110	ex 434	. . 3 |- ( ph -> ( ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) -> E. g E. t E. h E. u ( ( <. g , t >. e. ( I ` P ) /\ <. h , u >. e. ( I ` Q ) ) /\ ( f = ( g o. h ) /\ s = ( t J u ) ) ) ) )
112	1	simpld 459	. . . . . . . . 9 |- ( ph -> K e. HL )
113		hllat 33331	. . . . . . . . 9 |- ( K e. HL -> K e. Lat )
114	112, 113	syl 16	. . . . . . . 8 |- ( ph -> K e. Lat )
115	12	simpld 459	. . . . . . . . 9 |- ( ph -> P e. A )
116	17	simpld 459	. . . . . . . . 9 |- ( ph -> Q e. A )
117	28, 29, 8	hlatjcl 33334	. . . . . . . . 9 |- ( ( K e. HL /\ P e. A /\ Q e. A ) -> ( P .\/ Q ) e. B )
118	112, 115, 116, 117	syl3anc 1219	. . . . . . . 8 |- ( ph -> ( P .\/ Q ) e. B )
119	1	simprd 463	. . . . . . . . 9 |- ( ph -> W e. H )
120	28, 2	lhpbase 33965	. . . . . . . . 9 |- ( W e. H -> W e. B )
121	119, 120	syl 16	. . . . . . . 8 |- ( ph -> W e. B )
122	28, 30	latmcl 15340	. . . . . . . 8 |- ( ( K e. Lat /\ ( P .\/ Q ) e. B /\ W e. B ) -> ( ( P .\/ Q ) ./\ W ) e. B )
123	114, 118, 121, 122	syl3anc 1219	. . . . . . 7 |- ( ph -> ( ( P .\/ Q ) ./\ W ) e. B )
124	33, 123	syl5eqel 2546	. . . . . 6 |- ( ph -> V e. B )
125	28, 7, 30	latmle2 15365	. . . . . . . 8 |- ( ( K e. Lat /\ ( P .\/ Q ) e. B /\ W e. B ) -> ( ( P .\/ Q ) ./\ W ) .<_ W )
126	114, 118, 121, 125	syl3anc 1219	. . . . . . 7 |- ( ph -> ( ( P .\/ Q ) ./\ W ) .<_ W )
127	33, 126	syl5eqbr 4432	. . . . . 6 |- ( ph -> V .<_ W )
128		eqid 2454	. . . . . . 7 |- ( ( DIsoB ` K ) ` W ) = ( ( DIsoB ` K ) ` W )
129	28, 7, 2, 3, 128	dihvalb 35205	. . . . . 6 |- ( ( ( K e. HL /\ W e. H ) /\ ( V e. B /\ V .<_ W ) ) -> ( I ` V ) = ( ( ( DIsoB ` K ) ` W ) ` V ) )
130	1, 124, 127, 129	syl12anc 1217	. . . . 5 |- ( ph -> ( I ` V ) = ( ( ( DIsoB ` K ) ` W ) ` V ) )
131	130	eleq2d 2524	. . . 4 |- ( ph -> ( <. f , s >. e. ( I ` V ) <-> <. f , s >. e. ( ( ( DIsoB ` K ) ` W ) ` V ) ) )
132	28, 7, 2, 13, 34, 77, 128	dibopelval3 35116	. . . . 5 |- ( ( ( K e. HL /\ W e. H ) /\ ( V e. B /\ V .<_ W ) ) -> ( <. f , s >. e. ( ( ( DIsoB ` K ) ` W ) ` V ) <-> ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) )
133	1, 124, 127, 132	syl12anc 1217	. . . 4 |- ( ph -> ( <. f , s >. e. ( ( ( DIsoB ` K ) ` W ) ` V ) <-> ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) )
134	131, 133	bitrd 253	. . 3 |- ( ph -> ( <. f , s >. e. ( I ` V ) <-> ( ( f e. T /\ ( R ` f ) .<_ V ) /\ s = .0. ) ) )
135		eqid 2454	. . . 4 |- ( LSubSp ` U ) = ( LSubSp ` U )
136	28, 8	atbase 33257	. . . . 5 |- ( P e. A -> P e. B )
137	115, 136	syl 16	. . . 4 |- ( ph -> P e. B )
138	28, 8	atbase 33257	. . . . 5 |- ( Q e. A -> Q e. B )
139	116, 138	syl 16	. . . 4 |- ( ph -> Q e. B )
140	28, 2, 13, 35, 76, 31, 135, 32, 3, 1, 137, 139	dihopellsm 35223	. . 3 |- ( ph -> ( <. f , s >. e. ( ( I ` P ) .(+) ( I ` Q ) ) <-> E. g E. t E. h E. u ( ( <. g , t >. e. ( I ` P ) /\ <. h , u >. e. ( I ` Q ) ) /\ ( f = ( g o. h ) /\ s = ( t J u ) ) ) ) )
141	111, 134, 140	3imtr4d 268	. 2 |- ( ph -> ( <. f , s >. e. ( I ` V ) -> <. f , s >. e. ( ( I ` P ) .(+) ( I ` Q ) ) ) )
142	5, 141	relssdv 5039	1 |- ( ph -> ( I ` V ) C_ ( ( I ` P ) .(+) ( I ` Q ) ) )

Syntax hints:   -. wn 3   -> wi 4   <-> wb 184   /\ wa 369   = wceq 1370   E.wex 1587   e. wcel 1758   E.wrex 2799   _Vcvv 3076   C_ wss 3435   <.cop 3990   class class class wbr 4399   |-> cmpt 4457   _I cid 4738   `'ccnv 4946   |` cres 4949   o. ccom 4951   Rel wrel 4952   ` cfv 5525   iota_crio 6159  (class class class)co 6199   |-> cmpt2 6201   Basecbs 14291   lecple 14363   occoc 14364   joincjn 15232   meetcmee 15233   Latclat 15333   LSSumclsm 16253   LSubSpclss 17135   Atomscatm 33231   HLchlt 33318   LHypclh 33951   LTrncltrn 34068   trLctrl 34125   TEndoctendo 34719   DVecHcdvh 35046   DIsoBcdib 35106   DIsoHcdih 35196

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 1955  ax-ext 2432  ax-rep 4510  ax-sep 4520  ax-nul 4528  ax-pow 4577  ax-pr 4638  ax-un 6481  ax-cnex 9448  ax-resscn 9449  ax-1cn 9450  ax-icn 9451  ax-addcl 9452  ax-addrcl 9453  ax-mulcl 9454  ax-mulrcl 9455  ax-mulcom 9456  ax-addass 9457  ax-mulass 9458  ax-distr 9459  ax-i2m1 9460  ax-1ne0 9461  ax-1rid 9462  ax-rnegex 9463  ax-rrecex 9464  ax-cnre 9465  ax-pre-lttri 9466  ax-pre-lttrn 9467  ax-pre-ltadd 9468  ax-pre-mulgt0 9469  ax-riotaBAD 32927

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 2266  df-mo 2267  df-clab 2440  df-cleq 2446  df-clel 2449  df-nfc 2604  df-ne 2649  df-nel 2650  df-ral 2803  df-rex 2804  df-reu 2805  df-rmo 2806  df-rab 2807  df-v 3078  df-sbc 3293  df-csb 3395  df-dif 3438  df-un 3440  df-in 3442  df-ss 3449  df-pss 3451  df-nul 3745  df-if 3899  df-pw 3969  df-sn 3985  df-pr 3987  df-tp 3989  df-op 3991  df-uni 4199  df-int 4236  df-iun 4280  df-iin 4281  df-br 4400  df-opab 4458  df-mpt 4459  df-tr 4493  df-eprel 4739  df-id 4743  df-po 4748  df-so 4749  df-fr 4786  df-we 4788  df-ord 4829  df-on 4830  df-lim 4831  df-suc 4832  df-xp 4953  df-rel 4954  df-cnv 4955  df-co 4956  df-dm 4957  df-rn 4958  df-res 4959  df-ima 4960  df-iota 5488  df-fun 5527  df-fn 5528  df-f 5529  df-f1 5530  df-fo 5531  df-f1o 5532  df-fv 5533  df-riota 6160  df-ov 6202  df-oprab 6203  df-mpt2 6204  df-om 6586  df-1st 6686  df-2nd 6687  df-tpos 6854  df-undef 6901  df-recs 6941  df-rdg 6975  df-1o 7029  df-oadd 7033  df-er 7210  df-map 7325  df-en 7420  df-dom 7421  df-sdom 7422  df-fin 7423  df-pnf 9530  df-mnf 9531  df-xr 9532  df-ltxr 9533  df-le 9534  df-sub 9707  df-neg 9708  df-nn 10433  df-2 10490  df-3 10491  df-4 10492  df-5 10493  df-6 10494  df-n0 10690  df-z 10757  df-uz 10972  df-fz 11554  df-struct 14293  df-ndx 14294  df-slot 14295  df-base 14296  df-sets 14297  df-ress 14298  df-plusg 14369  df-mulr 14370  df-sca 14372  df-vsca 14373  df-0g 14498  df-poset 15234  df-plt 15246  df-lub 15262  df-glb 15263  df-join 15264  df-meet 15265  df-p0 15327  df-p1 15328  df-lat 15334  df-clat 15396  df-mnd 15533  df-submnd 15583  df-grp 15663  df-minusg 15664  df-sbg 15665  df-subg 15796  df-cntz 15953  df-lsm 16255  df-cmn 16399  df-abl 16400  df-mgp 16713  df-ur 16725  df-rng 16769  df-oppr 16837  df-dvdsr 16855  df-unit 16856  df-invr 16886  df-dvr 16897  df-drng 16956  df-lmod 17072  df-lss 17136  df-lsp 17175  df-lvec 17306  df-oposet 33144  df-ol 33146  df-oml 33147  df-covers 33234  df-ats 33235  df-atl 33266  df-cvlat 33290  df-hlat 33319  df-llines 33465  df-lplanes 33466  df-lvols 33467  df-lines 33468  df-psubsp 33470  df-pmap 33471  df-padd 33763  df-lhyp 33955  df-laut 33956  df-ldil 34071  df-ltrn 34072  df-trl 34126  df-tendo 34722  df-edring 34724  df-disoa 34997  df-dvech 35047  df-dib 35107  df-dic 35141  df-dih 35197

This theorem is referenced by:  dihjatcc  35390