Theorem cdlemk9bN 41469

Description: Part of proof of Lemma K of [Crawley] p. 118. TODO: is this needed? If so, shorten with cdlemk9 41468 if that one is also needed. (Contributed by NM, 28-Jun-2013.) (New usage is discouraged.)

Hypotheses

Ref	Expression
cdlemk.b	⊢ 𝐵 = (Base‘𝐾)
cdlemk.l	⊢ ≤ = (le‘𝐾)
cdlemk.j	⊢ ∨ = (join‘𝐾)
cdlemk.a	⊢ 𝐴 = (Atoms‘𝐾)
cdlemk.h	⊢ 𝐻 = (LHyp‘𝐾)
cdlemk.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemk.r	⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
cdlemk.m	⊢ ∧ = (meet‘𝐾)

Assertion

Ref	Expression
cdlemk9bN	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝐺‘𝑃) ∨ (𝑋‘𝑃)) ∧ 𝑊) = (𝑅‘(𝐺 ∘ ◡𝑋)))

Proof of Theorem cdlemk9bN

Step	Hyp	Ref	Expression
1		cdlemk.b	. . . 4 ⊢ 𝐵 = (Base‘𝐾)
2		cdlemk.l	. . . 4 ⊢ ≤ = (le‘𝐾)
3		cdlemk.j	. . . 4 ⊢ ∨ = (join‘𝐾)
4		cdlemk.a	. . . 4 ⊢ 𝐴 = (Atoms‘𝐾)
5		cdlemk.h	. . . 4 ⊢ 𝐻 = (LHyp‘𝐾)
6		cdlemk.t	. . . 4 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
7		cdlemk.r	. . . 4 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
8		cdlemk.m	. . . 4 ⊢ ∧ = (meet‘𝐾)
9	1, 2, 3, 4, 5, 6, 7, 8	cdlemk8 41467	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐺‘𝑃) ∨ (𝑋‘𝑃)) = ((𝐺‘𝑃) ∨ (𝑅‘(𝑋 ∘ ◡𝐺))))
10	9	oveq1d 7413	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝐺‘𝑃) ∨ (𝑋‘𝑃)) ∧ 𝑊) = (((𝐺‘𝑃) ∨ (𝑅‘(𝑋 ∘ ◡𝐺))) ∧ 𝑊))
11		simp1 1150	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
12	2, 4, 5, 6	ltrnel 40768	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐺‘𝑃) ∈ 𝐴 ∧ ¬ (𝐺‘𝑃) ≤ 𝑊))
13	12	3adant2r 1194	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐺‘𝑃) ∈ 𝐴 ∧ ¬ (𝐺‘𝑃) ≤ 𝑊))
14		eqid 2764	. . . . . 6 ⊢ (0.‘𝐾) = (0.‘𝐾)
15	2, 8, 14, 4, 5	lhpmat 40659	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝐺‘𝑃) ∈ 𝐴 ∧ ¬ (𝐺‘𝑃) ≤ 𝑊)) → ((𝐺‘𝑃) ∧ 𝑊) = (0.‘𝐾))
16	11, 13, 15	syl2anc 593	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐺‘𝑃) ∧ 𝑊) = (0.‘𝐾))
17	16	oveq1d 7413	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝐺‘𝑃) ∧ 𝑊) ∨ (𝑅‘(𝑋 ∘ ◡𝐺))) = ((0.‘𝐾) ∨ (𝑅‘(𝑋 ∘ ◡𝐺))))
18		simp1l 1212	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐾 ∈ HL)
19		simp2l 1214	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐺 ∈ 𝑇)
20		simp3l 1216	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑃 ∈ 𝐴)
21	2, 4, 5, 6	ltrnat 40769	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ 𝑃 ∈ 𝐴) → (𝐺‘𝑃) ∈ 𝐴)
22	11, 19, 20, 21	syl3anc 1392	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐺‘𝑃) ∈ 𝐴)
23		simp2r 1215	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑋 ∈ 𝑇)
24	5, 6	ltrncnv 40775	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇) → ◡𝐺 ∈ 𝑇)
25	11, 19, 24	syl2anc 593	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ◡𝐺 ∈ 𝑇)
26	5, 6	ltrnco 41348	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑇 ∧ ◡𝐺 ∈ 𝑇) → (𝑋 ∘ ◡𝐺) ∈ 𝑇)
27	11, 23, 25, 26	syl3anc 1392	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑋 ∘ ◡𝐺) ∈ 𝑇)
28	1, 5, 6, 7	trlcl 40793	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∘ ◡𝐺) ∈ 𝑇) → (𝑅‘(𝑋 ∘ ◡𝐺)) ∈ 𝐵)
29	11, 27, 28	syl2anc 593	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘(𝑋 ∘ ◡𝐺)) ∈ 𝐵)
30		simp1r 1213	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑊 ∈ 𝐻)
31	1, 5	lhpbase 40627	. . . . 5 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵)
32	30, 31	syl 17	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑊 ∈ 𝐵)
33	2, 5, 6, 7	trlle 40813	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∘ ◡𝐺) ∈ 𝑇) → (𝑅‘(𝑋 ∘ ◡𝐺)) ≤ 𝑊)
34	11, 27, 33	syl2anc 593	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘(𝑋 ∘ ◡𝐺)) ≤ 𝑊)
35	1, 2, 3, 8, 4	atmod4i2 40496	. . . 4 ⊢ ((𝐾 ∈ HL ∧ ((𝐺‘𝑃) ∈ 𝐴 ∧ (𝑅‘(𝑋 ∘ ◡𝐺)) ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) ∧ (𝑅‘(𝑋 ∘ ◡𝐺)) ≤ 𝑊) → (((𝐺‘𝑃) ∧ 𝑊) ∨ (𝑅‘(𝑋 ∘ ◡𝐺))) = (((𝐺‘𝑃) ∨ (𝑅‘(𝑋 ∘ ◡𝐺))) ∧ 𝑊))
36	18, 22, 29, 32, 34, 35	syl131anc 1404	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝐺‘𝑃) ∧ 𝑊) ∨ (𝑅‘(𝑋 ∘ ◡𝐺))) = (((𝐺‘𝑃) ∨ (𝑅‘(𝑋 ∘ ◡𝐺))) ∧ 𝑊))
37		hlol 39990	. . . . . 6 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OL)
38	18, 37	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐾 ∈ OL)
39	1, 3, 14	olj02 39855	. . . . 5 ⊢ ((𝐾 ∈ OL ∧ (𝑅‘(𝑋 ∘ ◡𝐺)) ∈ 𝐵) → ((0.‘𝐾) ∨ (𝑅‘(𝑋 ∘ ◡𝐺))) = (𝑅‘(𝑋 ∘ ◡𝐺)))
40	38, 29, 39	syl2anc 593	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((0.‘𝐾) ∨ (𝑅‘(𝑋 ∘ ◡𝐺))) = (𝑅‘(𝑋 ∘ ◡𝐺)))
41	5, 6, 7	trlcocnv 41349	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) → (𝑅‘(𝐺 ∘ ◡𝑋)) = (𝑅‘(𝑋 ∘ ◡𝐺)))
42	11, 19, 23, 41	syl3anc 1392	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘(𝐺 ∘ ◡𝑋)) = (𝑅‘(𝑋 ∘ ◡𝐺)))
43	40, 42	eqtr4d 2802	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((0.‘𝐾) ∨ (𝑅‘(𝑋 ∘ ◡𝐺))) = (𝑅‘(𝐺 ∘ ◡𝑋)))
44	17, 36, 43	3eqtr3d 2807	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝐺‘𝑃) ∨ (𝑅‘(𝑋 ∘ ◡𝐺))) ∧ 𝑊) = (𝑅‘(𝐺 ∘ ◡𝑋)))
45	10, 44	eqtrd 2799	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝐺‘𝑃) ∨ (𝑋‘𝑃)) ∧ 𝑊) = (𝑅‘(𝐺 ∘ ◡𝑋)))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 399   ∧ w3a 1099   = wceq 1562   ∈ wcel 2144   class class class wbr 5102  ^◡ccnv 5648   ∘ ccom 5653  ‘cfv 6523  (class class class)co 7398  Basecbs 17247  lecple 17295  joincjn 18345  meetcmee 18346  0.cp0 18455  OLcol 39803  Atomscatm 39892  HLchlt 39979  LHypclh 40613  LTrncltrn 40730  trLctrl 40787

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1817  ax-4 1831  ax-5 1932  ax-6 1989  ax-7 2030  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2214  ax-ext 2736  ax-rep 5229  ax-sep 5248  ax-nul 5258  ax-pow 5324  ax-pr 5392  ax-un 7720  ax-riotaBAD 39582

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1100  df-3an 1101  df-tru 1565  df-fal 1575  df-ex 1802  df-nf 1806  df-sb 2093  df-mo 2568  df-eu 2598  df-clab 2743  df-cleq 2756  df-clel 2839  df-nfc 2913  df-ne 2960  df-ral 3079  df-rex 3089  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3458  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-nul 4288  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-iin 4954  df-br 5103  df-opab 5165  df-mpt 5184  df-id 5544  df-xp 5655  df-rel 5656  df-cnv 5657  df-co 5658  df-dm 5659  df-rn 5660  df-res 5661  df-ima 5662  df-iota 6479  df-fun 6525  df-fn 6526  df-f 6527  df-f1 6528  df-fo 6529  df-f1o 6530  df-fv 6531  df-riota 7355  df-ov 7401  df-oprab 7402  df-mpo 7403  df-1st 7972  df-2nd 7973  df-undef 8255  df-map 8812  df-proset 18328  df-poset 18347  df-plt 18362  df-lub 18378  df-glb 18379  df-join 18380  df-meet 18381  df-p0 18457  df-p1 18458  df-lat 18466  df-clat 18533  df-oposet 39805  df-ol 39807  df-oml 39808  df-covers 39895  df-ats 39896  df-atl 39927  df-cvlat 39951  df-hlat 39980  df-llines 40127  df-lplanes 40128  df-lvols 40129  df-lines 40130  df-psubsp 40132  df-pmap 40133  df-padd 40425  df-lhyp 40617  df-laut 40618  df-ldil 40733  df-ltrn 40734  df-trl 40788

This theorem is referenced by: (None)