Mathbox for Norm Megill |
< Previous
Next >
Nearby theorems |
||
Mirrors > Home > MPE Home > Th. List > Mathboxes > dih2dimbALTN | Structured version Visualization version GIF version |
Description: Extend dia2dim 38785 to isomorphism H. (This version combines dib2dim 38951 and dih2dimb 38952 for shorter overall proof, but may be less easy to understand. TODO: decide which to use.) (Contributed by NM, 22-Sep-2014.) (Proof modification is discouraged.) (New usage is discouraged.) |
Ref | Expression |
---|---|
dih2dimb.l | ⊢ ≤ = (le‘𝐾) |
dih2dimb.j | ⊢ ∨ = (join‘𝐾) |
dih2dimb.a | ⊢ 𝐴 = (Atoms‘𝐾) |
dih2dimb.h | ⊢ 𝐻 = (LHyp‘𝐾) |
dih2dimb.u | ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊) |
dih2dimb.s | ⊢ ⊕ = (LSSum‘𝑈) |
dih2dimb.i | ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊) |
dih2dimb.k | ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻)) |
dih2dimb.p | ⊢ (𝜑 → (𝑃 ∈ 𝐴 ∧ 𝑃 ≤ 𝑊)) |
dih2dimb.q | ⊢ (𝜑 → (𝑄 ∈ 𝐴 ∧ 𝑄 ≤ 𝑊)) |
Ref | Expression |
---|---|
dih2dimbALTN | ⊢ (𝜑 → (𝐼‘(𝑃 ∨ 𝑄)) ⊆ ((𝐼‘𝑃) ⊕ (𝐼‘𝑄))) |
Step | Hyp | Ref | Expression |
---|---|---|---|
1 | dih2dimb.k | . . . 4 ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻)) | |
2 | dih2dimb.h | . . . . 5 ⊢ 𝐻 = (LHyp‘𝐾) | |
3 | eqid 2734 | . . . . 5 ⊢ ((DIsoB‘𝐾)‘𝑊) = ((DIsoB‘𝐾)‘𝑊) | |
4 | 2, 3 | dibvalrel 38871 | . . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → Rel (((DIsoB‘𝐾)‘𝑊)‘(𝑃 ∨ 𝑄))) |
5 | 1, 4 | syl 17 | . . 3 ⊢ (𝜑 → Rel (((DIsoB‘𝐾)‘𝑊)‘(𝑃 ∨ 𝑄))) |
6 | dih2dimb.l | . . . . . . 7 ⊢ ≤ = (le‘𝐾) | |
7 | dih2dimb.j | . . . . . . 7 ⊢ ∨ = (join‘𝐾) | |
8 | dih2dimb.a | . . . . . . 7 ⊢ 𝐴 = (Atoms‘𝐾) | |
9 | eqid 2734 | . . . . . . 7 ⊢ ((DVecA‘𝐾)‘𝑊) = ((DVecA‘𝐾)‘𝑊) | |
10 | eqid 2734 | . . . . . . 7 ⊢ (LSSum‘((DVecA‘𝐾)‘𝑊)) = (LSSum‘((DVecA‘𝐾)‘𝑊)) | |
11 | eqid 2734 | . . . . . . 7 ⊢ ((DIsoA‘𝐾)‘𝑊) = ((DIsoA‘𝐾)‘𝑊) | |
12 | dih2dimb.p | . . . . . . 7 ⊢ (𝜑 → (𝑃 ∈ 𝐴 ∧ 𝑃 ≤ 𝑊)) | |
13 | dih2dimb.q | . . . . . . 7 ⊢ (𝜑 → (𝑄 ∈ 𝐴 ∧ 𝑄 ≤ 𝑊)) | |
14 | 6, 7, 8, 2, 9, 10, 11, 1, 12, 13 | dia2dim 38785 | . . . . . 6 ⊢ (𝜑 → (((DIsoA‘𝐾)‘𝑊)‘(𝑃 ∨ 𝑄)) ⊆ ((((DIsoA‘𝐾)‘𝑊)‘𝑃)(LSSum‘((DVecA‘𝐾)‘𝑊))(((DIsoA‘𝐾)‘𝑊)‘𝑄))) |
15 | 14 | sseld 3890 | . . . . 5 ⊢ (𝜑 → (𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘(𝑃 ∨ 𝑄)) → 𝑓 ∈ ((((DIsoA‘𝐾)‘𝑊)‘𝑃)(LSSum‘((DVecA‘𝐾)‘𝑊))(((DIsoA‘𝐾)‘𝑊)‘𝑄)))) |
16 | 15 | anim1d 614 | . . . 4 ⊢ (𝜑 → ((𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘(𝑃 ∨ 𝑄)) ∧ 𝑠 = (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾)))) → (𝑓 ∈ ((((DIsoA‘𝐾)‘𝑊)‘𝑃)(LSSum‘((DVecA‘𝐾)‘𝑊))(((DIsoA‘𝐾)‘𝑊)‘𝑄)) ∧ 𝑠 = (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾)))))) |
17 | 1 | simpld 498 | . . . . . 6 ⊢ (𝜑 → 𝐾 ∈ HL) |
18 | 12 | simpld 498 | . . . . . 6 ⊢ (𝜑 → 𝑃 ∈ 𝐴) |
19 | 13 | simpld 498 | . . . . . 6 ⊢ (𝜑 → 𝑄 ∈ 𝐴) |
20 | eqid 2734 | . . . . . . 7 ⊢ (Base‘𝐾) = (Base‘𝐾) | |
21 | 20, 7, 8 | hlatjcl 37075 | . . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → (𝑃 ∨ 𝑄) ∈ (Base‘𝐾)) |
22 | 17, 18, 19, 21 | syl3anc 1373 | . . . . 5 ⊢ (𝜑 → (𝑃 ∨ 𝑄) ∈ (Base‘𝐾)) |
23 | 12 | simprd 499 | . . . . . 6 ⊢ (𝜑 → 𝑃 ≤ 𝑊) |
24 | 13 | simprd 499 | . . . . . 6 ⊢ (𝜑 → 𝑄 ≤ 𝑊) |
25 | hllat 37071 | . . . . . . . 8 ⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat) | |
26 | 17, 25 | syl 17 | . . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ Lat) |
27 | 20, 8 | atbase 36997 | . . . . . . . 8 ⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ (Base‘𝐾)) |
28 | 18, 27 | syl 17 | . . . . . . 7 ⊢ (𝜑 → 𝑃 ∈ (Base‘𝐾)) |
29 | 20, 8 | atbase 36997 | . . . . . . . 8 ⊢ (𝑄 ∈ 𝐴 → 𝑄 ∈ (Base‘𝐾)) |
30 | 19, 29 | syl 17 | . . . . . . 7 ⊢ (𝜑 → 𝑄 ∈ (Base‘𝐾)) |
31 | 1 | simprd 499 | . . . . . . . 8 ⊢ (𝜑 → 𝑊 ∈ 𝐻) |
32 | 20, 2 | lhpbase 37706 | . . . . . . . 8 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ (Base‘𝐾)) |
33 | 31, 32 | syl 17 | . . . . . . 7 ⊢ (𝜑 → 𝑊 ∈ (Base‘𝐾)) |
34 | 20, 6, 7 | latjle12 17928 | . . . . . . 7 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → ((𝑃 ≤ 𝑊 ∧ 𝑄 ≤ 𝑊) ↔ (𝑃 ∨ 𝑄) ≤ 𝑊)) |
35 | 26, 28, 30, 33, 34 | syl13anc 1374 | . . . . . 6 ⊢ (𝜑 → ((𝑃 ≤ 𝑊 ∧ 𝑄 ≤ 𝑊) ↔ (𝑃 ∨ 𝑄) ≤ 𝑊)) |
36 | 23, 24, 35 | mpbi2and 712 | . . . . 5 ⊢ (𝜑 → (𝑃 ∨ 𝑄) ≤ 𝑊) |
37 | eqid 2734 | . . . . . 6 ⊢ ((LTrn‘𝐾)‘𝑊) = ((LTrn‘𝐾)‘𝑊) | |
38 | eqid 2734 | . . . . . 6 ⊢ (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾))) = (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾))) | |
39 | 20, 6, 2, 37, 38, 11, 3 | dibopelval2 38853 | . . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∨ 𝑄) ∈ (Base‘𝐾) ∧ (𝑃 ∨ 𝑄) ≤ 𝑊)) → (〈𝑓, 𝑠〉 ∈ (((DIsoB‘𝐾)‘𝑊)‘(𝑃 ∨ 𝑄)) ↔ (𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘(𝑃 ∨ 𝑄)) ∧ 𝑠 = (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾)))))) |
40 | 1, 22, 36, 39 | syl12anc 837 | . . . 4 ⊢ (𝜑 → (〈𝑓, 𝑠〉 ∈ (((DIsoB‘𝐾)‘𝑊)‘(𝑃 ∨ 𝑄)) ↔ (𝑓 ∈ (((DIsoA‘𝐾)‘𝑊)‘(𝑃 ∨ 𝑄)) ∧ 𝑠 = (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾)))))) |
41 | dih2dimb.u | . . . . 5 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊) | |
42 | dih2dimb.s | . . . . 5 ⊢ ⊕ = (LSSum‘𝑈) | |
43 | 28, 23 | jca 515 | . . . . 5 ⊢ (𝜑 → (𝑃 ∈ (Base‘𝐾) ∧ 𝑃 ≤ 𝑊)) |
44 | 30, 24 | jca 515 | . . . . 5 ⊢ (𝜑 → (𝑄 ∈ (Base‘𝐾) ∧ 𝑄 ≤ 𝑊)) |
45 | 20, 6, 2, 37, 38, 9, 41, 10, 42, 11, 3, 1, 43, 44 | diblsmopel 38879 | . . . 4 ⊢ (𝜑 → (〈𝑓, 𝑠〉 ∈ ((((DIsoB‘𝐾)‘𝑊)‘𝑃) ⊕ (((DIsoB‘𝐾)‘𝑊)‘𝑄)) ↔ (𝑓 ∈ ((((DIsoA‘𝐾)‘𝑊)‘𝑃)(LSSum‘((DVecA‘𝐾)‘𝑊))(((DIsoA‘𝐾)‘𝑊)‘𝑄)) ∧ 𝑠 = (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ (Base‘𝐾)))))) |
46 | 16, 40, 45 | 3imtr4d 297 | . . 3 ⊢ (𝜑 → (〈𝑓, 𝑠〉 ∈ (((DIsoB‘𝐾)‘𝑊)‘(𝑃 ∨ 𝑄)) → 〈𝑓, 𝑠〉 ∈ ((((DIsoB‘𝐾)‘𝑊)‘𝑃) ⊕ (((DIsoB‘𝐾)‘𝑊)‘𝑄)))) |
47 | 5, 46 | relssdv 5647 | . 2 ⊢ (𝜑 → (((DIsoB‘𝐾)‘𝑊)‘(𝑃 ∨ 𝑄)) ⊆ ((((DIsoB‘𝐾)‘𝑊)‘𝑃) ⊕ (((DIsoB‘𝐾)‘𝑊)‘𝑄))) |
48 | dih2dimb.i | . . . 4 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊) | |
49 | 20, 6, 2, 48, 3 | dihvalb 38945 | . . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∨ 𝑄) ∈ (Base‘𝐾) ∧ (𝑃 ∨ 𝑄) ≤ 𝑊)) → (𝐼‘(𝑃 ∨ 𝑄)) = (((DIsoB‘𝐾)‘𝑊)‘(𝑃 ∨ 𝑄))) |
50 | 1, 22, 36, 49 | syl12anc 837 | . 2 ⊢ (𝜑 → (𝐼‘(𝑃 ∨ 𝑄)) = (((DIsoB‘𝐾)‘𝑊)‘(𝑃 ∨ 𝑄))) |
51 | 20, 6, 2, 48, 3 | dihvalb 38945 | . . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ (Base‘𝐾) ∧ 𝑃 ≤ 𝑊)) → (𝐼‘𝑃) = (((DIsoB‘𝐾)‘𝑊)‘𝑃)) |
52 | 1, 28, 23, 51 | syl12anc 837 | . . 3 ⊢ (𝜑 → (𝐼‘𝑃) = (((DIsoB‘𝐾)‘𝑊)‘𝑃)) |
53 | 20, 6, 2, 48, 3 | dihvalb 38945 | . . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ (Base‘𝐾) ∧ 𝑄 ≤ 𝑊)) → (𝐼‘𝑄) = (((DIsoB‘𝐾)‘𝑊)‘𝑄)) |
54 | 1, 30, 24, 53 | syl12anc 837 | . . 3 ⊢ (𝜑 → (𝐼‘𝑄) = (((DIsoB‘𝐾)‘𝑊)‘𝑄)) |
55 | 52, 54 | oveq12d 7220 | . 2 ⊢ (𝜑 → ((𝐼‘𝑃) ⊕ (𝐼‘𝑄)) = ((((DIsoB‘𝐾)‘𝑊)‘𝑃) ⊕ (((DIsoB‘𝐾)‘𝑊)‘𝑄))) |
56 | 47, 50, 55 | 3sstr4d 3938 | 1 ⊢ (𝜑 → (𝐼‘(𝑃 ∨ 𝑄)) ⊆ ((𝐼‘𝑃) ⊕ (𝐼‘𝑄))) |
Colors of variables: wff setvar class |
Syntax hints: → wi 4 ↔ wb 209 ∧ wa 399 = wceq 1543 ∈ wcel 2110 ⊆ wss 3857 〈cop 4537 class class class wbr 5043 ↦ cmpt 5124 I cid 5443 ↾ cres 5542 Rel wrel 5545 ‘cfv 6369 (class class class)co 7202 Basecbs 16684 lecple 16774 joincjn 17790 Latclat 17909 LSSumclsm 18995 Atomscatm 36971 HLchlt 37058 LHypclh 37692 LTrncltrn 37809 DVecAcdveca 38710 DIsoAcdia 38736 DVecHcdvh 38786 DIsoBcdib 38846 DIsoHcdih 38936 |
This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1803 ax-4 1817 ax-5 1918 ax-6 1976 ax-7 2016 ax-8 2112 ax-9 2120 ax-10 2141 ax-11 2158 ax-12 2175 ax-ext 2706 ax-rep 5168 ax-sep 5181 ax-nul 5188 ax-pow 5247 ax-pr 5311 ax-un 7512 ax-cnex 10768 ax-resscn 10769 ax-1cn 10770 ax-icn 10771 ax-addcl 10772 ax-addrcl 10773 ax-mulcl 10774 ax-mulrcl 10775 ax-mulcom 10776 ax-addass 10777 ax-mulass 10778 ax-distr 10779 ax-i2m1 10780 ax-1ne0 10781 ax-1rid 10782 ax-rnegex 10783 ax-rrecex 10784 ax-cnre 10785 ax-pre-lttri 10786 ax-pre-lttrn 10787 ax-pre-ltadd 10788 ax-pre-mulgt0 10789 ax-riotaBAD 36661 |
This theorem depends on definitions: df-bi 210 df-an 400 df-or 848 df-3or 1090 df-3an 1091 df-tru 1546 df-fal 1556 df-ex 1788 df-nf 1792 df-sb 2071 df-mo 2537 df-eu 2566 df-clab 2713 df-cleq 2726 df-clel 2812 df-nfc 2882 df-ne 2936 df-nel 3040 df-ral 3059 df-rex 3060 df-reu 3061 df-rmo 3062 df-rab 3063 df-v 3403 df-sbc 3688 df-csb 3803 df-dif 3860 df-un 3862 df-in 3864 df-ss 3874 df-pss 3876 df-nul 4228 df-if 4430 df-pw 4505 df-sn 4532 df-pr 4534 df-tp 4536 df-op 4538 df-uni 4810 df-int 4850 df-iun 4896 df-iin 4897 df-br 5044 df-opab 5106 df-mpt 5125 df-tr 5151 df-id 5444 df-eprel 5449 df-po 5457 df-so 5458 df-fr 5498 df-we 5500 df-xp 5546 df-rel 5547 df-cnv 5548 df-co 5549 df-dm 5550 df-rn 5551 df-res 5552 df-ima 5553 df-pred 6149 df-ord 6205 df-on 6206 df-lim 6207 df-suc 6208 df-iota 6327 df-fun 6371 df-fn 6372 df-f 6373 df-f1 6374 df-fo 6375 df-f1o 6376 df-fv 6377 df-riota 7159 df-ov 7205 df-oprab 7206 df-mpo 7207 df-om 7634 df-1st 7750 df-2nd 7751 df-tpos 7957 df-undef 8004 df-wrecs 8036 df-recs 8097 df-rdg 8135 df-1o 8191 df-er 8380 df-map 8499 df-en 8616 df-dom 8617 df-sdom 8618 df-fin 8619 df-pnf 10852 df-mnf 10853 df-xr 10854 df-ltxr 10855 df-le 10856 df-sub 11047 df-neg 11048 df-nn 11814 df-2 11876 df-3 11877 df-4 11878 df-5 11879 df-6 11880 df-n0 12074 df-z 12160 df-uz 12422 df-fz 13079 df-struct 16686 df-ndx 16687 df-slot 16688 df-base 16690 df-sets 16691 df-ress 16692 df-plusg 16780 df-mulr 16781 df-sca 16783 df-vsca 16784 df-0g 16918 df-proset 17774 df-poset 17792 df-plt 17808 df-lub 17824 df-glb 17825 df-join 17826 df-meet 17827 df-p0 17903 df-p1 17904 df-lat 17910 df-clat 17977 df-mgm 18086 df-sgrp 18135 df-mnd 18146 df-submnd 18191 df-grp 18340 df-minusg 18341 df-sbg 18342 df-subg 18512 df-cntz 18683 df-lsm 18997 df-cmn 19144 df-abl 19145 df-mgp 19477 df-ur 19489 df-ring 19536 df-oppr 19613 df-dvdsr 19631 df-unit 19632 df-invr 19662 df-dvr 19673 df-drng 19741 df-lmod 19873 df-lss 19941 df-lsp 19981 df-lvec 20112 df-oposet 36884 df-ol 36886 df-oml 36887 df-covers 36974 df-ats 36975 df-atl 37006 df-cvlat 37030 df-hlat 37059 df-llines 37206 df-lplanes 37207 df-lvols 37208 df-lines 37209 df-psubsp 37211 df-pmap 37212 df-padd 37504 df-lhyp 37696 df-laut 37697 df-ldil 37812 df-ltrn 37813 df-trl 37867 df-tgrp 38451 df-tendo 38463 df-edring 38465 df-dveca 38711 df-disoa 38737 df-dvech 38787 df-dib 38847 df-dih 38937 |
This theorem is referenced by: (None) |
Copyright terms: Public domain | W3C validator |