Theorem dib2dim 34805

Description: Extend dia2dim 34639 to partial isomorphism B. (Contributed by NM, 22-Sep-2014.)

Hypotheses

Ref	Expression
dib2dim.l	|- .<_ = ( le ` K )
dib2dim.j	|- .\/ = ( join ` K )
dib2dim.a	|- A = ( Atoms ` K )
dib2dim.h	|- H = ( LHyp ` K )
dib2dim.u	|- U = ( ( DVecH ` K ) ` W )
dib2dim.s	|- .(+) = ( LSSum ` U )
dib2dim.i	|- I = ( ( DIsoB ` K ) ` W )
dib2dim.k	|- ( ph -> ( K e. HL /\ W e. H ) )
dib2dim.p	|- ( ph -> ( P e. A /\ P .<_ W ) )
dib2dim.q	|- ( ph -> ( Q e. A /\ Q .<_ W ) )

Assertion

Ref	Expression
dib2dim	|- ( ph -> ( I ` ( P .\/ Q ) ) C_ ( ( I ` P ) .(+) ( I ` Q ) ) )

Proof of Theorem dib2dim

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

Step	Hyp	Ref	Expression
1		dib2dim.k	. . 3 |- ( ph -> ( K e. HL /\ W e. H ) )
2		dib2dim.h	. . . 4 |- H = ( LHyp ` K )
3		dib2dim.i	. . . 4 |- I = ( ( DIsoB ` K ) ` W )
4	2, 3	dibvalrel 34725	. . 3 |- ( ( K e. HL /\ W e. H ) -> Rel ( I ` ( P .\/ Q ) ) )
5	1, 4	syl 17	. 2 |- ( ph -> Rel ( I ` ( P .\/ Q ) ) )
6		dib2dim.l	. . . . . 6 |- .<_ = ( le ` K )
7		dib2dim.j	. . . . . 6 |- .\/ = ( join ` K )
8		dib2dim.a	. . . . . 6 |- A = ( Atoms ` K )
9		eqid 2450	. . . . . 6 |- ( ( DVecA ` K ) ` W ) = ( ( DVecA ` K ) ` W )
10		eqid 2450	. . . . . 6 |- ( LSSum ` ( ( DVecA ` K ) ` W ) ) = ( LSSum ` ( ( DVecA ` K ) ` W ) )
11		eqid 2450	. . . . . 6 |- ( ( DIsoA ` K ) ` W ) = ( ( DIsoA ` K ) ` W )
12		dib2dim.p	. . . . . 6 |- ( ph -> ( P e. A /\ P .<_ W ) )
13		dib2dim.q	. . . . . 6 |- ( ph -> ( Q e. A /\ Q .<_ W ) )
14	6, 7, 8, 2, 9, 10, 11, 1, 12, 13	dia2dim 34639	. . . . 5 |- ( ph -> ( ( ( DIsoA ` K ) ` W ) ` ( P .\/ Q ) ) C_ ( ( ( ( DIsoA ` K ) ` W ) ` P ) ( LSSum ` ( ( DVecA ` K ) ` W ) ) ( ( ( DIsoA ` K ) ` W ) ` Q ) ) )
15	14	sseld 3430	. . . 4 |- ( ph -> ( f e. ( ( ( DIsoA ` K ) ` W ) ` ( P .\/ Q ) ) -> f e. ( ( ( ( DIsoA ` K ) ` W ) ` P ) ( LSSum ` ( ( DVecA ` K ) ` W ) ) ( ( ( DIsoA ` K ) ` W ) ` Q ) ) ) )
16	15	anim1d 567	. . 3 |- ( ph -> ( ( f e. ( ( ( DIsoA ` K ) ` W ) ` ( P .\/ Q ) ) /\ s = ( f e. ( ( LTrn ` K ) ` W ) |-> ( _I |` ( Base ` K ) ) ) ) -> ( f e. ( ( ( ( DIsoA ` K ) ` W ) ` P ) ( LSSum ` ( ( DVecA ` K ) ` W ) ) ( ( ( DIsoA ` K ) ` W ) ` Q ) ) /\ s = ( f e. ( ( LTrn ` K ) ` W ) |-> ( _I |` ( Base ` K ) ) ) ) ) )
17	1	simpld 461	. . . . 5 |- ( ph -> K e. HL )
18	12	simpld 461	. . . . 5 |- ( ph -> P e. A )
19	13	simpld 461	. . . . 5 |- ( ph -> Q e. A )
20		eqid 2450	. . . . . 6 |- ( Base ` K ) = ( Base ` K )
21	20, 7, 8	hlatjcl 32926	. . . . 5 |- ( ( K e. HL /\ P e. A /\ Q e. A ) -> ( P .\/ Q ) e. ( Base ` K ) )
22	17, 18, 19, 21	syl3anc 1267	. . . 4 |- ( ph -> ( P .\/ Q ) e. ( Base ` K ) )
23	12	simprd 465	. . . . 5 |- ( ph -> P .<_ W )
24	13	simprd 465	. . . . 5 |- ( ph -> Q .<_ W )
25		hllat 32923	. . . . . . 7 |- ( K e. HL -> K e. Lat )
26	17, 25	syl 17	. . . . . 6 |- ( ph -> K e. Lat )
27	20, 8	atbase 32849	. . . . . . 7 |- ( P e. A -> P e. ( Base ` K ) )
28	18, 27	syl 17	. . . . . 6 |- ( ph -> P e. ( Base ` K ) )
29	20, 8	atbase 32849	. . . . . . 7 |- ( Q e. A -> Q e. ( Base ` K ) )
30	19, 29	syl 17	. . . . . 6 |- ( ph -> Q e. ( Base ` K ) )
31	1	simprd 465	. . . . . . 7 |- ( ph -> W e. H )
32	20, 2	lhpbase 33557	. . . . . . 7 |- ( W e. H -> W e. ( Base ` K ) )
33	31, 32	syl 17	. . . . . 6 |- ( ph -> W e. ( Base ` K ) )
34	20, 6, 7	latjle12 16301	. . . . . 6 |- ( ( K e. Lat /\ ( P e. ( Base ` K ) /\ Q e. ( Base ` K ) /\ W e. ( Base ` K ) ) ) -> ( ( P .<_ W /\ Q .<_ W ) <-> ( P .\/ Q ) .<_ W ) )
35	26, 28, 30, 33, 34	syl13anc 1269	. . . . 5 |- ( ph -> ( ( P .<_ W /\ Q .<_ W ) <-> ( P .\/ Q ) .<_ W ) )
36	23, 24, 35	mpbi2and 931	. . . 4 |- ( ph -> ( P .\/ Q ) .<_ W )
37		eqid 2450	. . . . 5 |- ( ( LTrn ` K ) ` W ) = ( ( LTrn ` K ) ` W )
38		eqid 2450	. . . . 5 |- ( f e. ( ( LTrn ` K ) ` W ) |-> ( _I |` ( Base ` K ) ) ) = ( f e. ( ( LTrn ` K ) ` W ) |-> ( _I |` ( Base ` K ) ) )
39	20, 6, 2, 37, 38, 11, 3	dibopelval2 34707	. . . 4 |- ( ( ( K e. HL /\ W e. H ) /\ ( ( P .\/ Q ) e. ( Base ` K ) /\ ( P .\/ Q ) .<_ W ) ) -> ( <. f , s >. e. ( I ` ( P .\/ Q ) ) <-> ( f e. ( ( ( DIsoA ` K ) ` W ) ` ( P .\/ Q ) ) /\ s = ( f e. ( ( LTrn ` K ) ` W ) |-> ( _I |` ( Base ` K ) ) ) ) ) )
40	1, 22, 36, 39	syl12anc 1265	. . 3 |- ( ph -> ( <. f , s >. e. ( I ` ( P .\/ Q ) ) <-> ( f e. ( ( ( DIsoA ` K ) ` W ) ` ( P .\/ Q ) ) /\ s = ( f e. ( ( LTrn ` K ) ` W ) |-> ( _I |` ( Base ` K ) ) ) ) ) )
41		dib2dim.u	. . . 4 |- U = ( ( DVecH ` K ) ` W )
42		dib2dim.s	. . . 4 |- .(+) = ( LSSum ` U )
43	28, 23	jca 535	. . . 4 |- ( ph -> ( P e. ( Base ` K ) /\ P .<_ W ) )
44	30, 24	jca 535	. . . 4 |- ( ph -> ( Q e. ( Base ` K ) /\ Q .<_ W ) )
45	20, 6, 2, 37, 38, 9, 41, 10, 42, 11, 3, 1, 43, 44	diblsmopel 34733	. . 3 |- ( ph -> ( <. f , s >. e. ( ( I ` P ) .(+) ( I ` Q ) ) <-> ( f e. ( ( ( ( DIsoA ` K ) ` W ) ` P ) ( LSSum ` ( ( DVecA ` K ) ` W ) ) ( ( ( DIsoA ` K ) ` W ) ` Q ) ) /\ s = ( f e. ( ( LTrn ` K ) ` W ) |-> ( _I |` ( Base ` K ) ) ) ) ) )
46	16, 40, 45	3imtr4d 272	. 2 |- ( ph -> ( <. f , s >. e. ( I ` ( P .\/ Q ) ) -> <. f , s >. e. ( ( I ` P ) .(+) ( I ` Q ) ) ) )
47	5, 46	relssdv 4926	1 |- ( ph -> ( I ` ( P .\/ Q ) ) C_ ( ( I ` P ) .(+) ( I ` Q ) ) )

Syntax hints:   -> wi 4   <-> wb 188   /\ wa 371   = wceq 1443   e. wcel 1886   C_ wss 3403   <.cop 3973   class class class wbr 4401   |-> cmpt 4460   _I cid 4743   |` cres 4835   Rel wrel 4838   ` cfv 5581  (class class class)co 6288   Basecbs 15114   lecple 15190   joincjn 16182   Latclat 16284   LSSumclsm 17279   Atomscatm 32823   HLchlt 32910   LHypclh 33543   LTrncltrn 33660   DVecAcdveca 34563   DIsoAcdia 34590   DVecHcdvh 34640   DIsoBcdib 34700

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1668  ax-4 1681  ax-5 1757  ax-6 1804  ax-7 1850  ax-8 1888  ax-9 1895  ax-10 1914  ax-11 1919  ax-12 1932  ax-13 2090  ax-ext 2430  ax-rep 4514  ax-sep 4524  ax-nul 4533  ax-pow 4580  ax-pr 4638  ax-un 6580  ax-cnex 9592  ax-resscn 9593  ax-1cn 9594  ax-icn 9595  ax-addcl 9596  ax-addrcl 9597  ax-mulcl 9598  ax-mulrcl 9599  ax-mulcom 9600  ax-addass 9601  ax-mulass 9602  ax-distr 9603  ax-i2m1 9604  ax-1ne0 9605  ax-1rid 9606  ax-rnegex 9607  ax-rrecex 9608  ax-cnre 9609  ax-pre-lttri 9610  ax-pre-lttrn 9611  ax-pre-ltadd 9612  ax-pre-mulgt0 9613  ax-riotaBAD 32519

This theorem depends on definitions:  df-bi 189  df-or 372  df-an 373  df-3or 985  df-3an 986  df-tru 1446  df-fal 1449  df-ex 1663  df-nf 1667  df-sb 1797  df-eu 2302  df-mo 2303  df-clab 2437  df-cleq 2443  df-clel 2446  df-nfc 2580  df-ne 2623  df-nel 2624  df-ral 2741  df-rex 2742  df-reu 2743  df-rmo 2744  df-rab 2745  df-v 3046  df-sbc 3267  df-csb 3363  df-dif 3406  df-un 3408  df-in 3410  df-ss 3417  df-pss 3419  df-nul 3731  df-if 3881  df-pw 3952  df-sn 3968  df-pr 3970  df-tp 3972  df-op 3974  df-uni 4198  df-int 4234  df-iun 4279  df-iin 4280  df-br 4402  df-opab 4461  df-mpt 4462  df-tr 4497  df-eprel 4744  df-id 4748  df-po 4754  df-so 4755  df-fr 4792  df-we 4794  df-xp 4839  df-rel 4840  df-cnv 4841  df-co 4842  df-dm 4843  df-rn 4844  df-res 4845  df-ima 4846  df-pred 5379  df-ord 5425  df-on 5426  df-lim 5427  df-suc 5428  df-iota 5545  df-fun 5583  df-fn 5584  df-f 5585  df-f1 5586  df-fo 5587  df-f1o 5588  df-fv 5589  df-riota 6250  df-ov 6291  df-oprab 6292  df-mpt2 6293  df-om 6690  df-1st 6790  df-2nd 6791  df-tpos 6970  df-undef 7017  df-wrecs 7025  df-recs 7087  df-rdg 7125  df-1o 7179  df-oadd 7183  df-er 7360  df-map 7471  df-en 7567  df-dom 7568  df-sdom 7569  df-fin 7570  df-pnf 9674  df-mnf 9675  df-xr 9676  df-ltxr 9677  df-le 9678  df-sub 9859  df-neg 9860  df-nn 10607  df-2 10665  df-3 10666  df-4 10667  df-5 10668  df-6 10669  df-n0 10867  df-z 10935  df-uz 11157  df-fz 11782  df-struct 15116  df-ndx 15117  df-slot 15118  df-base 15119  df-sets 15120  df-ress 15121  df-plusg 15196  df-mulr 15197  df-sca 15199  df-vsca 15200  df-0g 15333  df-preset 16166  df-poset 16184  df-plt 16197  df-lub 16213  df-glb 16214  df-join 16215  df-meet 16216  df-p0 16278  df-p1 16279  df-lat 16285  df-clat 16347  df-mgm 16481  df-sgrp 16520  df-mnd 16530  df-submnd 16576  df-grp 16666  df-minusg 16667  df-sbg 16668  df-subg 16807  df-cntz 16964  df-lsm 17281  df-cmn 17425  df-abl 17426  df-mgp 17717  df-ur 17729  df-ring 17775  df-oppr 17844  df-dvdsr 17862  df-unit 17863  df-invr 17893  df-dvr 17904  df-drng 17970  df-lmod 18086  df-lss 18149  df-lsp 18188  df-lvec 18319  df-oposet 32736  df-ol 32738  df-oml 32739  df-covers 32826  df-ats 32827  df-atl 32858  df-cvlat 32882  df-hlat 32911  df-llines 33057  df-lplanes 33058  df-lvols 33059  df-lines 33060  df-psubsp 33062  df-pmap 33063  df-padd 33355  df-lhyp 33547  df-laut 33548  df-ldil 33663  df-ltrn 33664  df-trl 33719  df-tgrp 34304  df-tendo 34316  df-edring 34318  df-dveca 34564  df-disoa 34591  df-dvech 34641  df-dib 34701

This theorem is referenced by:  dih2dimb  34806