Users' Mathboxes Mathbox for Norm Megill < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  cdlemg6c Structured version   Visualization version   GIF version

Theorem cdlemg6c 40619
Description: TODO: FIX COMMENT. (Contributed by NM, 27-Apr-2013.)
Hypotheses
Ref Expression
cdlemg4.l = (le‘𝐾)
cdlemg4.a 𝐴 = (Atoms‘𝐾)
cdlemg4.h 𝐻 = (LHyp‘𝐾)
cdlemg4.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemg4.r 𝑅 = ((trL‘𝐾)‘𝑊)
cdlemg4.j = (join‘𝐾)
cdlemg4b.v 𝑉 = (𝑅𝐺)
Assertion
Ref Expression
cdlemg6c (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → (((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉)) → (𝐹‘(𝐺𝑄)) = 𝑄))
Distinct variable groups:   𝐴,𝑟   𝐹,𝑟   𝐺,𝑟   𝐻,𝑟   ,𝑟   𝐾,𝑟   ,𝑟   𝑃,𝑟   𝑄,𝑟   𝑇,𝑟   𝑉,𝑟   𝑊,𝑟
Allowed substitution hint:   𝑅(𝑟)

Proof of Theorem cdlemg6c
StepHypRef Expression
1 simpl1 1192 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 simprl 770 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → (𝑟𝐴 ∧ ¬ 𝑟 𝑊))
3 simpl22 1253 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
4 simpl23 1254 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → 𝐹𝑇)
5 simpl31 1255 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → 𝐺𝑇)
6 simprr 772 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → ¬ 𝑟 (𝑃 𝑉))
7 simpl1l 1225 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → 𝐾 ∈ HL)
8 simp22l 1293 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → 𝑄𝐴)
98adantr 480 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → 𝑄𝐴)
10 simprll 778 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → 𝑟𝐴)
11 cdlemg4b.v . . . . . . 7 𝑉 = (𝑅𝐺)
12 eqid 2729 . . . . . . . . 9 (Base‘𝐾) = (Base‘𝐾)
13 cdlemg4.h . . . . . . . . 9 𝐻 = (LHyp‘𝐾)
14 cdlemg4.t . . . . . . . . 9 𝑇 = ((LTrn‘𝐾)‘𝑊)
15 cdlemg4.r . . . . . . . . 9 𝑅 = ((trL‘𝐾)‘𝑊)
1612, 13, 14, 15trlcl 40163 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐺𝑇) → (𝑅𝐺) ∈ (Base‘𝐾))
171, 5, 16syl2anc 584 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → (𝑅𝐺) ∈ (Base‘𝐾))
1811, 17eqeltrid 2832 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → 𝑉 ∈ (Base‘𝐾))
19 simp22r 1294 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → ¬ 𝑄 𝑊)
2019adantr 480 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → ¬ 𝑄 𝑊)
21 cdlemg4.l . . . . . . . . . . 11 = (le‘𝐾)
2221, 13, 14, 15trlle 40183 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐺𝑇) → (𝑅𝐺) 𝑊)
231, 5, 22syl2anc 584 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → (𝑅𝐺) 𝑊)
2411, 23eqbrtrid 5127 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → 𝑉 𝑊)
25 simp1l 1198 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → 𝐾 ∈ HL)
2625hllatd 39363 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → 𝐾 ∈ Lat)
2726adantr 480 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → 𝐾 ∈ Lat)
28 cdlemg4.a . . . . . . . . . . . 12 𝐴 = (Atoms‘𝐾)
2912, 28atbase 39288 . . . . . . . . . . 11 (𝑄𝐴𝑄 ∈ (Base‘𝐾))
308, 29syl 17 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → 𝑄 ∈ (Base‘𝐾))
3130adantr 480 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → 𝑄 ∈ (Base‘𝐾))
32 simp1r 1199 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → 𝑊𝐻)
3312, 13lhpbase 39997 . . . . . . . . . . 11 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
3432, 33syl 17 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → 𝑊 ∈ (Base‘𝐾))
3534adantr 480 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → 𝑊 ∈ (Base‘𝐾))
3612, 21lattr 18350 . . . . . . . . 9 ((𝐾 ∈ Lat ∧ (𝑄 ∈ (Base‘𝐾) ∧ 𝑉 ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → ((𝑄 𝑉𝑉 𝑊) → 𝑄 𝑊))
3727, 31, 18, 35, 36syl13anc 1374 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → ((𝑄 𝑉𝑉 𝑊) → 𝑄 𝑊))
3824, 37mpan2d 694 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → (𝑄 𝑉𝑄 𝑊))
3920, 38mtod 198 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → ¬ 𝑄 𝑉)
40 cdlemg4.j . . . . . . 7 = (join‘𝐾)
4112, 21, 40, 28hlexch2 39382 . . . . . 6 ((𝐾 ∈ HL ∧ (𝑄𝐴𝑟𝐴𝑉 ∈ (Base‘𝐾)) ∧ ¬ 𝑄 𝑉) → (𝑄 (𝑟 𝑉) → 𝑟 (𝑄 𝑉)))
427, 9, 10, 18, 39, 41syl131anc 1385 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → (𝑄 (𝑟 𝑉) → 𝑟 (𝑄 𝑉)))
43 simpl32 1256 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → 𝑄 (𝑃 𝑉))
44 simp21l 1291 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → 𝑃𝐴)
4544adantr 480 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → 𝑃𝐴)
4612, 28atbase 39288 . . . . . . . . 9 (𝑃𝐴𝑃 ∈ (Base‘𝐾))
4745, 46syl 17 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → 𝑃 ∈ (Base‘𝐾))
4812, 21, 40latlej2 18355 . . . . . . . 8 ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ 𝑉 ∈ (Base‘𝐾)) → 𝑉 (𝑃 𝑉))
4927, 47, 18, 48syl3anc 1373 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → 𝑉 (𝑃 𝑉))
5012, 40latjcl 18345 . . . . . . . . 9 ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ 𝑉 ∈ (Base‘𝐾)) → (𝑃 𝑉) ∈ (Base‘𝐾))
5127, 47, 18, 50syl3anc 1373 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → (𝑃 𝑉) ∈ (Base‘𝐾))
5212, 21, 40latjle12 18356 . . . . . . . 8 ((𝐾 ∈ Lat ∧ (𝑄 ∈ (Base‘𝐾) ∧ 𝑉 ∈ (Base‘𝐾) ∧ (𝑃 𝑉) ∈ (Base‘𝐾))) → ((𝑄 (𝑃 𝑉) ∧ 𝑉 (𝑃 𝑉)) ↔ (𝑄 𝑉) (𝑃 𝑉)))
5327, 31, 18, 51, 52syl13anc 1374 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → ((𝑄 (𝑃 𝑉) ∧ 𝑉 (𝑃 𝑉)) ↔ (𝑄 𝑉) (𝑃 𝑉)))
5443, 49, 53mpbi2and 712 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → (𝑄 𝑉) (𝑃 𝑉))
5512, 28atbase 39288 . . . . . . . 8 (𝑟𝐴𝑟 ∈ (Base‘𝐾))
5610, 55syl 17 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → 𝑟 ∈ (Base‘𝐾))
5712, 40latjcl 18345 . . . . . . . 8 ((𝐾 ∈ Lat ∧ 𝑄 ∈ (Base‘𝐾) ∧ 𝑉 ∈ (Base‘𝐾)) → (𝑄 𝑉) ∈ (Base‘𝐾))
5827, 31, 18, 57syl3anc 1373 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → (𝑄 𝑉) ∈ (Base‘𝐾))
5912, 21lattr 18350 . . . . . . 7 ((𝐾 ∈ Lat ∧ (𝑟 ∈ (Base‘𝐾) ∧ (𝑄 𝑉) ∈ (Base‘𝐾) ∧ (𝑃 𝑉) ∈ (Base‘𝐾))) → ((𝑟 (𝑄 𝑉) ∧ (𝑄 𝑉) (𝑃 𝑉)) → 𝑟 (𝑃 𝑉)))
6027, 56, 58, 51, 59syl13anc 1374 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → ((𝑟 (𝑄 𝑉) ∧ (𝑄 𝑉) (𝑃 𝑉)) → 𝑟 (𝑃 𝑉)))
6154, 60mpan2d 694 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → (𝑟 (𝑄 𝑉) → 𝑟 (𝑃 𝑉)))
6242, 61syld 47 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → (𝑄 (𝑟 𝑉) → 𝑟 (𝑃 𝑉)))
636, 62mtod 198 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → ¬ 𝑄 (𝑟 𝑉))
64 simpl21 1252 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
65 simpl33 1257 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → (𝐹‘(𝐺𝑃)) = 𝑃)
6621, 28, 13, 14, 15, 40, 11cdlemg6a 40617 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇 ∧ ¬ 𝑟 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → (𝐹‘(𝐺𝑟)) = 𝑟)
671, 64, 2, 4, 5, 6, 65, 66syl133anc 1395 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → (𝐹‘(𝐺𝑟)) = 𝑟)
6821, 28, 13, 14, 15, 40, 11cdlemg6b 40618 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇 ∧ ¬ 𝑄 (𝑟 𝑉) ∧ (𝐹‘(𝐺𝑟)) = 𝑟)) → (𝐹‘(𝐺𝑄)) = 𝑄)
691, 2, 3, 4, 5, 63, 67, 68syl133anc 1395 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉))) → (𝐹‘(𝐺𝑄)) = 𝑄)
7069ex 412 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → (((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ ¬ 𝑟 (𝑃 𝑉)) → (𝐹‘(𝐺𝑄)) = 𝑄))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  w3a 1086   = wceq 1540  wcel 2109   class class class wbr 5092  cfv 6482  (class class class)co 7349  Basecbs 17120  lecple 17168  joincjn 18217  Latclat 18337  Atomscatm 39262  HLchlt 39349  LHypclh 39983  LTrncltrn 40100  trLctrl 40157
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5218  ax-sep 5235  ax-nul 5245  ax-pow 5304  ax-pr 5371  ax-un 7671  ax-riotaBAD 38952
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-ral 3045  df-rex 3054  df-rmo 3343  df-reu 3344  df-rab 3395  df-v 3438  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-nul 4285  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-op 4584  df-uni 4859  df-iun 4943  df-iin 4944  df-br 5093  df-opab 5155  df-mpt 5174  df-id 5514  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-iota 6438  df-fun 6484  df-fn 6485  df-f 6486  df-f1 6487  df-fo 6488  df-f1o 6489  df-fv 6490  df-riota 7306  df-ov 7352  df-oprab 7353  df-mpo 7354  df-1st 7924  df-2nd 7925  df-undef 8206  df-map 8755  df-proset 18200  df-poset 18219  df-plt 18234  df-lub 18250  df-glb 18251  df-join 18252  df-meet 18253  df-p0 18329  df-p1 18330  df-lat 18338  df-clat 18405  df-oposet 39175  df-ol 39177  df-oml 39178  df-covers 39265  df-ats 39266  df-atl 39297  df-cvlat 39321  df-hlat 39350  df-llines 39497  df-lplanes 39498  df-lvols 39499  df-lines 39500  df-psubsp 39502  df-pmap 39503  df-padd 39795  df-lhyp 39987  df-laut 39988  df-ldil 40103  df-ltrn 40104  df-trl 40158
This theorem is referenced by:  cdlemg6d  40620
  Copyright terms: Public domain W3C validator