Theorem dihglblem5aN 42016

Description: A conjunction property of isomorphism H. (Contributed by NM, 21-Mar-2014.) (New usage is discouraged.)

Hypotheses

Ref	Expression
dihglblem5a.b	⊢ 𝐵 = (Base‘𝐾)
dihglblem5a.m	⊢ ∧ = (meet‘𝐾)
dihglblem5a.h	⊢ 𝐻 = (LHyp‘𝐾)
dihglblem5a.i	⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)

Assertion

Ref	Expression
dihglblem5aN	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐼‘(𝑋 ∧ 𝑊)) = ((𝐼‘𝑋) ∩ (𝐼‘𝑊)))

Proof of Theorem dihglblem5aN

Dummy variables 𝑞 ℎ are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpr 489	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑋(le‘𝐾)𝑊) → 𝑋(le‘𝐾)𝑊)
2		hllat 40087	. . . . . . 7 ⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat)
3	2	ad3antrrr 742	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑋(le‘𝐾)𝑊) → 𝐾 ∈ Lat)
4		simplr 780	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑋(le‘𝐾)𝑊) → 𝑋 ∈ 𝐵)
5		dihglblem5a.b	. . . . . . . 8 ⊢ 𝐵 = (Base‘𝐾)
6		dihglblem5a.h	. . . . . . . 8 ⊢ 𝐻 = (LHyp‘𝐾)
7	5, 6	lhpbase 40722	. . . . . . 7 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵)
8	7	ad3antlr 743	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑋(le‘𝐾)𝑊) → 𝑊 ∈ 𝐵)
9		eqid 2770	. . . . . . 7 ⊢ (le‘𝐾) = (le‘𝐾)
10		dihglblem5a.m	. . . . . . 7 ⊢ ∧ = (meet‘𝐾)
11	5, 9, 10	latleeqm1 18526	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → (𝑋(le‘𝐾)𝑊 ↔ (𝑋 ∧ 𝑊) = 𝑋))
12	3, 4, 8, 11	syl3anc 1396	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑋(le‘𝐾)𝑊) → (𝑋(le‘𝐾)𝑊 ↔ (𝑋 ∧ 𝑊) = 𝑋))
13	1, 12	mpbid 235	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑋(le‘𝐾)𝑊) → (𝑋 ∧ 𝑊) = 𝑋)
14	13	fveq2d 6889	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑋(le‘𝐾)𝑊) → (𝐼‘(𝑋 ∧ 𝑊)) = (𝐼‘𝑋))
15		simpll 778	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑋(le‘𝐾)𝑊) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
16		dihglblem5a.i	. . . . . . 7 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
17	5, 9, 6, 16	dihord 41988	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → ((𝐼‘𝑋) ⊆ (𝐼‘𝑊) ↔ 𝑋(le‘𝐾)𝑊))
18	15, 4, 8, 17	syl3anc 1396	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑋(le‘𝐾)𝑊) → ((𝐼‘𝑋) ⊆ (𝐼‘𝑊) ↔ 𝑋(le‘𝐾)𝑊))
19	1, 18	mpbird 260	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑋(le‘𝐾)𝑊) → (𝐼‘𝑋) ⊆ (𝐼‘𝑊))
20		dfss2 3931	. . . 4 ⊢ ((𝐼‘𝑋) ⊆ (𝐼‘𝑊) ↔ ((𝐼‘𝑋) ∩ (𝐼‘𝑊)) = (𝐼‘𝑋))
21	19, 20	sylib 221	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑋(le‘𝐾)𝑊) → ((𝐼‘𝑋) ∩ (𝐼‘𝑊)) = (𝐼‘𝑋))
22	14, 21	eqtr4d 2808	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ 𝑋(le‘𝐾)𝑊) → (𝐼‘(𝑋 ∧ 𝑊)) = ((𝐼‘𝑋) ∩ (𝐼‘𝑊)))
23		eqid 2770	. . . 4 ⊢ (join‘𝐾) = (join‘𝐾)
24		eqid 2770	. . . 4 ⊢ (Atoms‘𝐾) = (Atoms‘𝐾)
25		eqid 2770	. . . 4 ⊢ ((oc‘𝐾)‘𝑊) = ((oc‘𝐾)‘𝑊)
26		eqid 2770	. . . 4 ⊢ ((LTrn‘𝐾)‘𝑊) = ((LTrn‘𝐾)‘𝑊)
27		eqid 2770	. . . 4 ⊢ ((trL‘𝐾)‘𝑊) = ((trL‘𝐾)‘𝑊)
28		eqid 2770	. . . 4 ⊢ ((TEndo‘𝐾)‘𝑊) = ((TEndo‘𝐾)‘𝑊)
29		eqid 2770	. . . 4 ⊢ (℩ℎ ∈ ((LTrn‘𝐾)‘𝑊)(ℎ‘((oc‘𝐾)‘𝑊)) = 𝑞) = (℩ℎ ∈ ((LTrn‘𝐾)‘𝑊)(ℎ‘((oc‘𝐾)‘𝑊)) = 𝑞)
30		eqid 2770	. . . 4 ⊢ (ℎ ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵)) = (ℎ ∈ ((LTrn‘𝐾)‘𝑊) ↦ ( I ↾ 𝐵))
31	5, 10, 6, 16, 9, 23, 24, 25, 26, 27, 28, 29, 30	dihglblem5apreN 42015	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋(le‘𝐾)𝑊)) → (𝐼‘(𝑋 ∧ 𝑊)) = ((𝐼‘𝑋) ∩ (𝐼‘𝑊)))
32	31	anassrs 472	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝐵) ∧ ¬ 𝑋(le‘𝐾)𝑊) → (𝐼‘(𝑋 ∧ 𝑊)) = ((𝐼‘𝑋) ∩ (𝐼‘𝑊)))
33	22, 32	pm2.61dan 824	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝐵) → (𝐼‘(𝑋 ∧ 𝑊)) = ((𝐼‘𝑋) ∩ (𝐼‘𝑊)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1568   ∈ wcel 2150   ∩ cin 3912   ⊆ wss 3913   class class class wbr 5114   ↦ cmpt 5197   I cid 5559   ↾ cres 5667  ‘cfv 6540  ℩crio 7370  (class class class)co 7414  Basecbs 17272  lecple 17320  occoc 17321  joincjn 18370  meetcmee 18371  Latclat 18490  Atomscatm 39987  HLchlt 40074  LHypclh 40708  LTrncltrn 40825  trLctrl 40882  TEndoctendo 41476  DIsoHcdih 41952

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1823  ax-4 1837  ax-5 1938  ax-6 1995  ax-7 2036  ax-8 2152  ax-9 2160  ax-10 2183  ax-11 2199  ax-12 2220  ax-ext 2742  ax-rep 5243  ax-sep 5262  ax-nul 5274  ax-pow 5340  ax-pr 5408  ax-un 7736  ax-cnex 11159  ax-resscn 11160  ax-1cn 11161  ax-icn 11162  ax-addcl 11163  ax-addrcl 11164  ax-mulcl 11165  ax-mulrcl 11166  ax-mulcom 11167  ax-addass 11168  ax-mulass 11169  ax-distr 11170  ax-i2m1 11171  ax-1ne0 11172  ax-1rid 11173  ax-rnegex 11174  ax-rrecex 11175  ax-cnre 11176  ax-pre-lttri 11177  ax-pre-lttrn 11178  ax-pre-ltadd 11179  ax-pre-mulgt0 11180  ax-riotaBAD 39677

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1571  df-fal 1581  df-ex 1808  df-nf 1812  df-sb 2099  df-mo 2574  df-eu 2604  df-clab 2749  df-cleq 2762  df-clel 2845  df-nfc 2919  df-ne 2966  df-nel 3072  df-ral 3087  df-rex 3097  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3464  df-sbc 3753  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-tp 4599  df-op 4601  df-uni 4878  df-int 4918  df-iun 4963  df-iin 4964  df-br 5115  df-opab 5179  df-mpt 5198  df-tr 5224  df-id 5560  df-eprel 5565  df-po 5573  df-so 5574  df-fr 5618  df-we 5620  df-xp 5671  df-rel 5672  df-cnv 5673  df-co 5674  df-dm 5675  df-rn 5676  df-res 5677  df-ima 5678  df-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7371  df-ov 7417  df-oprab 7418  df-mpo 7419  df-om 7866  df-1st 7989  df-2nd 7990  df-tpos 8225  df-undef 8272  df-frecs 8281  df-wrecs 8312  df-recs 8361  df-rdg 8400  df-1o 8456  df-er 8697  df-map 8829  df-en 8947  df-dom 8948  df-sdom 8949  df-fin 8950  df-pnf 11248  df-mnf 11249  df-xr 11250  df-ltxr 11251  df-le 11252  df-sub 11446  df-neg 11447  df-nn 12237  df-2 12306  df-3 12307  df-4 12308  df-5 12309  df-6 12310  df-n0 12508  df-z 12595  df-uz 12866  df-fz 13539  df-struct 17210  df-sets 17227  df-slot 17245  df-ndx 17257  df-base 17273  df-ress 17294  df-plusg 17326  df-mulr 17327  df-sca 17329  df-vsca 17330  df-0g 17497  df-proset 18353  df-poset 18372  df-plt 18387  df-lub 18403  df-glb 18404  df-join 18405  df-meet 18406  df-p0 18482  df-p1 18483  df-lat 18491  df-clat 18558  df-mgm 18701  df-sgrp 18780  df-mnd 18796  df-submnd 18845  df-grp 19006  df-minusg 19007  df-sbg 19008  df-subg 19192  df-cntz 19390  df-lsm 19709  df-cmn 19855  df-abl 19856  df-mgp 20220  df-rng 20234  df-ur 20267  df-ring 20320  df-oppr 20422  df-dvdsr 20442  df-unit 20443  df-invr 20473  df-dvr 20486  df-drng 20818  df-lmod 20966  df-lss 21036  df-lsp 21076  df-lvec 21207  df-oposet 39900  df-ol 39902  df-oml 39903  df-covers 39990  df-ats 39991  df-atl 40022  df-cvlat 40046  df-hlat 40075  df-llines 40222  df-lplanes 40223  df-lvols 40224  df-lines 40225  df-psubsp 40227  df-pmap 40228  df-padd 40520  df-lhyp 40712  df-laut 40713  df-ldil 40828  df-ltrn 40829  df-trl 40883  df-tendo 41479  df-edring 41481  df-disoa 41753  df-dvech 41803  df-dib 41863  df-dic 41897  df-dih 41953

This theorem is referenced by: (None)