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

Theorem cvrat4 33546
Description: A condition implying existence of an atom with the properties shown. Lemma 3.2.20 in [PtakPulmannova] p. 68. Also Lemma 9.2(delta) in [MaedaMaeda] p. 41. (atcvat4i 28442 analog.) (Contributed by NM, 30-Nov-2011.)
Hypotheses
Ref Expression
cvrat4.b 𝐵 = (Base‘𝐾)
cvrat4.l = (le‘𝐾)
cvrat4.j = (join‘𝐾)
cvrat4.z 0 = (0.‘𝐾)
cvrat4.a 𝐴 = (Atoms‘𝐾)
Assertion
Ref Expression
cvrat4 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → ((𝑋0𝑃 (𝑋 𝑄)) → ∃𝑟𝐴 (𝑟 𝑋𝑃 (𝑄 𝑟))))
Distinct variable groups:   𝐴,𝑟   𝐵,𝑟   ,𝑟   𝐾,𝑟   ,𝑟   𝑃,𝑟   𝑄,𝑟   𝑋,𝑟
Allowed substitution hint:   0 (𝑟)

Proof of Theorem cvrat4
StepHypRef Expression
1 hlatl 33464 . . . . . . . . . 10 (𝐾 ∈ HL → 𝐾 ∈ AtLat)
21adantr 479 . . . . . . . . 9 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → 𝐾 ∈ AtLat)
3 simpr1 1059 . . . . . . . . 9 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → 𝑋𝐵)
4 cvrat4.b . . . . . . . . . . 11 𝐵 = (Base‘𝐾)
5 cvrat4.l . . . . . . . . . . 11 = (le‘𝐾)
6 cvrat4.z . . . . . . . . . . 11 0 = (0.‘𝐾)
7 cvrat4.a . . . . . . . . . . 11 𝐴 = (Atoms‘𝐾)
84, 5, 6, 7atlex 33420 . . . . . . . . . 10 ((𝐾 ∈ AtLat ∧ 𝑋𝐵𝑋0 ) → ∃𝑟𝐴 𝑟 𝑋)
983exp 1255 . . . . . . . . 9 (𝐾 ∈ AtLat → (𝑋𝐵 → (𝑋0 → ∃𝑟𝐴 𝑟 𝑋)))
102, 3, 9sylc 62 . . . . . . . 8 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑋0 → ∃𝑟𝐴 𝑟 𝑋))
1110adantr 479 . . . . . . 7 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ 𝑃 = 𝑄) → (𝑋0 → ∃𝑟𝐴 𝑟 𝑋))
12 simpll 785 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ 𝑟𝐴) → 𝐾 ∈ HL)
13 simplr3 1097 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ 𝑟𝐴) → 𝑄𝐴)
14 simpr 475 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ 𝑟𝐴) → 𝑟𝐴)
15 cvrat4.j . . . . . . . . . . . . . . 15 = (join‘𝐾)
165, 15, 7hlatlej1 33478 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ 𝑄𝐴𝑟𝐴) → 𝑄 (𝑄 𝑟))
1712, 13, 14, 16syl3anc 1317 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ 𝑟𝐴) → 𝑄 (𝑄 𝑟))
18 breq1 4576 . . . . . . . . . . . . 13 (𝑃 = 𝑄 → (𝑃 (𝑄 𝑟) ↔ 𝑄 (𝑄 𝑟)))
1917, 18syl5ibr 234 . . . . . . . . . . . 12 (𝑃 = 𝑄 → (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ 𝑟𝐴) → 𝑃 (𝑄 𝑟)))
2019expd 450 . . . . . . . . . . 11 (𝑃 = 𝑄 → ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑟𝐴𝑃 (𝑄 𝑟))))
2120impcom 444 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ 𝑃 = 𝑄) → (𝑟𝐴𝑃 (𝑄 𝑟)))
2221anim2d 586 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ 𝑃 = 𝑄) → ((𝑟 𝑋𝑟𝐴) → (𝑟 𝑋𝑃 (𝑄 𝑟))))
2322expcomd 452 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ 𝑃 = 𝑄) → (𝑟𝐴 → (𝑟 𝑋 → (𝑟 𝑋𝑃 (𝑄 𝑟)))))
2423reximdvai 2993 . . . . . . 7 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ 𝑃 = 𝑄) → (∃𝑟𝐴 𝑟 𝑋 → ∃𝑟𝐴 (𝑟 𝑋𝑃 (𝑄 𝑟))))
2511, 24syld 45 . . . . . 6 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ 𝑃 = 𝑄) → (𝑋0 → ∃𝑟𝐴 (𝑟 𝑋𝑃 (𝑄 𝑟))))
2625ex 448 . . . . 5 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑃 = 𝑄 → (𝑋0 → ∃𝑟𝐴 (𝑟 𝑋𝑃 (𝑄 𝑟)))))
2726a1i 11 . . . 4 (𝑃 (𝑋 𝑄) → ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑃 = 𝑄 → (𝑋0 → ∃𝑟𝐴 (𝑟 𝑋𝑃 (𝑄 𝑟))))))
2827com4l 89 . . 3 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑃 = 𝑄 → (𝑋0 → (𝑃 (𝑋 𝑄) → ∃𝑟𝐴 (𝑟 𝑋𝑃 (𝑄 𝑟))))))
2928imp4a 611 . 2 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑃 = 𝑄 → ((𝑋0𝑃 (𝑋 𝑄)) → ∃𝑟𝐴 (𝑟 𝑋𝑃 (𝑄 𝑟)))))
30 hllat 33467 . . . . . . . . . . . . . 14 (𝐾 ∈ HL → 𝐾 ∈ Lat)
3130adantr 479 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → 𝐾 ∈ Lat)
32 simpr3 1061 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → 𝑄𝐴)
334, 7atbase 33393 . . . . . . . . . . . . . 14 (𝑄𝐴𝑄𝐵)
3432, 33syl 17 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → 𝑄𝐵)
354, 5, 15latleeqj2 16829 . . . . . . . . . . . . 13 ((𝐾 ∈ Lat ∧ 𝑄𝐵𝑋𝐵) → (𝑄 𝑋 ↔ (𝑋 𝑄) = 𝑋))
3631, 34, 3, 35syl3anc 1317 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑄 𝑋 ↔ (𝑋 𝑄) = 𝑋))
3736biimpa 499 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ 𝑄 𝑋) → (𝑋 𝑄) = 𝑋)
3837breq2d 4585 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ 𝑄 𝑋) → (𝑃 (𝑋 𝑄) ↔ 𝑃 𝑋))
3938biimpa 499 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ 𝑄 𝑋) ∧ 𝑃 (𝑋 𝑄)) → 𝑃 𝑋)
4039expl 645 . . . . . . . 8 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → ((𝑄 𝑋𝑃 (𝑋 𝑄)) → 𝑃 𝑋))
41 simpl 471 . . . . . . . . 9 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → 𝐾 ∈ HL)
42 simpr2 1060 . . . . . . . . 9 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → 𝑃𝐴)
435, 15, 7hlatlej2 33479 . . . . . . . . 9 ((𝐾 ∈ HL ∧ 𝑄𝐴𝑃𝐴) → 𝑃 (𝑄 𝑃))
4441, 32, 42, 43syl3anc 1317 . . . . . . . 8 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → 𝑃 (𝑄 𝑃))
4540, 44jctird 564 . . . . . . 7 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → ((𝑄 𝑋𝑃 (𝑋 𝑄)) → (𝑃 𝑋𝑃 (𝑄 𝑃))))
4645, 42jctild 563 . . . . . 6 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → ((𝑄 𝑋𝑃 (𝑋 𝑄)) → (𝑃𝐴 ∧ (𝑃 𝑋𝑃 (𝑄 𝑃)))))
4746impl 647 . . . . 5 ((((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ 𝑄 𝑋) ∧ 𝑃 (𝑋 𝑄)) → (𝑃𝐴 ∧ (𝑃 𝑋𝑃 (𝑄 𝑃))))
48 breq1 4576 . . . . . . 7 (𝑟 = 𝑃 → (𝑟 𝑋𝑃 𝑋))
49 oveq2 6531 . . . . . . . 8 (𝑟 = 𝑃 → (𝑄 𝑟) = (𝑄 𝑃))
5049breq2d 4585 . . . . . . 7 (𝑟 = 𝑃 → (𝑃 (𝑄 𝑟) ↔ 𝑃 (𝑄 𝑃)))
5148, 50anbi12d 742 . . . . . 6 (𝑟 = 𝑃 → ((𝑟 𝑋𝑃 (𝑄 𝑟)) ↔ (𝑃 𝑋𝑃 (𝑄 𝑃))))
5251rspcev 3277 . . . . 5 ((𝑃𝐴 ∧ (𝑃 𝑋𝑃 (𝑄 𝑃))) → ∃𝑟𝐴 (𝑟 𝑋𝑃 (𝑄 𝑟)))
5347, 52syl 17 . . . 4 ((((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ 𝑄 𝑋) ∧ 𝑃 (𝑋 𝑄)) → ∃𝑟𝐴 (𝑟 𝑋𝑃 (𝑄 𝑟)))
5453adantrl 747 . . 3 ((((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ 𝑄 𝑋) ∧ (𝑋0𝑃 (𝑋 𝑄))) → ∃𝑟𝐴 (𝑟 𝑋𝑃 (𝑄 𝑟)))
5554exp31 627 . 2 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑄 𝑋 → ((𝑋0𝑃 (𝑋 𝑄)) → ∃𝑟𝐴 (𝑟 𝑋𝑃 (𝑄 𝑟)))))
56 simpr 475 . . 3 ((𝑋0𝑃 (𝑋 𝑄)) → 𝑃 (𝑋 𝑄))
57 ioran 509 . . . . 5 (¬ (𝑃 = 𝑄𝑄 𝑋) ↔ (¬ 𝑃 = 𝑄 ∧ ¬ 𝑄 𝑋))
58 df-ne 2777 . . . . . 6 (𝑃𝑄 ↔ ¬ 𝑃 = 𝑄)
5958anbi1i 726 . . . . 5 ((𝑃𝑄 ∧ ¬ 𝑄 𝑋) ↔ (¬ 𝑃 = 𝑄 ∧ ¬ 𝑄 𝑋))
6057, 59bitr4i 265 . . . 4 (¬ (𝑃 = 𝑄𝑄 𝑋) ↔ (𝑃𝑄 ∧ ¬ 𝑄 𝑋))
61 eqid 2605 . . . . . . . . . 10 (meet‘𝐾) = (meet‘𝐾)
624, 5, 15, 61, 7cvrat3 33545 . . . . . . . . 9 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → ((𝑃𝑄 ∧ ¬ 𝑄 𝑋𝑃 (𝑋 𝑄)) → (𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐴))
63623expd 1275 . . . . . . . 8 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑃𝑄 → (¬ 𝑄 𝑋 → (𝑃 (𝑋 𝑄) → (𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐴))))
6463imp4c 614 . . . . . . 7 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (((𝑃𝑄 ∧ ¬ 𝑄 𝑋) ∧ 𝑃 (𝑋 𝑄)) → (𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐴))
654, 7atbase 33393 . . . . . . . . . . . . 13 (𝑃𝐴𝑃𝐵)
6642, 65syl 17 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → 𝑃𝐵)
674, 15latjcl 16816 . . . . . . . . . . . 12 ((𝐾 ∈ Lat ∧ 𝑃𝐵𝑄𝐵) → (𝑃 𝑄) ∈ 𝐵)
6831, 66, 34, 67syl3anc 1317 . . . . . . . . . . 11 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑃 𝑄) ∈ 𝐵)
694, 5, 61latmle1 16841 . . . . . . . . . . 11 ((𝐾 ∈ Lat ∧ 𝑋𝐵 ∧ (𝑃 𝑄) ∈ 𝐵) → (𝑋(meet‘𝐾)(𝑃 𝑄)) 𝑋)
7031, 3, 68, 69syl3anc 1317 . . . . . . . . . 10 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑋(meet‘𝐾)(𝑃 𝑄)) 𝑋)
7170adantr 479 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ ((𝑃𝑄 ∧ ¬ 𝑄 𝑋) ∧ 𝑃 (𝑋 𝑄))) → (𝑋(meet‘𝐾)(𝑃 𝑄)) 𝑋)
72 simpll 785 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ ((𝑃𝑄 ∧ ¬ 𝑄 𝑋) ∧ 𝑃 (𝑋 𝑄))) → 𝐾 ∈ HL)
7363imp44 619 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ ((𝑃𝑄 ∧ ¬ 𝑄 𝑋) ∧ 𝑃 (𝑋 𝑄))) → (𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐴)
74 simplr2 1096 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ ((𝑃𝑄 ∧ ¬ 𝑄 𝑋) ∧ 𝑃 (𝑋 𝑄))) → 𝑃𝐴)
7534adantr 479 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ ((𝑃𝑄 ∧ ¬ 𝑄 𝑋) ∧ 𝑃 (𝑋 𝑄))) → 𝑄𝐵)
7673, 74, 753jca 1234 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ ((𝑃𝑄 ∧ ¬ 𝑄 𝑋) ∧ 𝑃 (𝑋 𝑄))) → ((𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐴𝑃𝐴𝑄𝐵))
7772, 76jca 552 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ ((𝑃𝑄 ∧ ¬ 𝑄 𝑋) ∧ 𝑃 (𝑋 𝑄))) → (𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐴𝑃𝐴𝑄𝐵)))
784, 5, 61, 6, 7atnle 33421 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ AtLat ∧ 𝑄𝐴𝑋𝐵) → (¬ 𝑄 𝑋 ↔ (𝑄(meet‘𝐾)𝑋) = 0 ))
792, 32, 3, 78syl3anc 1317 . . . . . . . . . . . . . . 15 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (¬ 𝑄 𝑋 ↔ (𝑄(meet‘𝐾)𝑋) = 0 ))
804, 61latmcom 16840 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ Lat ∧ 𝑄𝐵𝑋𝐵) → (𝑄(meet‘𝐾)𝑋) = (𝑋(meet‘𝐾)𝑄))
8131, 34, 3, 80syl3anc 1317 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑄(meet‘𝐾)𝑋) = (𝑋(meet‘𝐾)𝑄))
8281eqeq1d 2607 . . . . . . . . . . . . . . 15 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → ((𝑄(meet‘𝐾)𝑋) = 0 ↔ (𝑋(meet‘𝐾)𝑄) = 0 ))
8379, 82bitrd 266 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (¬ 𝑄 𝑋 ↔ (𝑋(meet‘𝐾)𝑄) = 0 ))
844, 61latmcl 16817 . . . . . . . . . . . . . . . . . . . . 21 ((𝐾 ∈ Lat ∧ 𝑋𝐵 ∧ (𝑃 𝑄) ∈ 𝐵) → (𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐵)
8531, 3, 68, 84syl3anc 1317 . . . . . . . . . . . . . . . . . . . 20 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐵)
8685, 3, 343jca 1234 . . . . . . . . . . . . . . . . . . 19 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → ((𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐵𝑋𝐵𝑄𝐵))
8731, 86jca 552 . . . . . . . . . . . . . . . . . 18 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝐾 ∈ Lat ∧ ((𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐵𝑋𝐵𝑄𝐵)))
884, 5, 61latmlem2 16847 . . . . . . . . . . . . . . . . . 18 ((𝐾 ∈ Lat ∧ ((𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐵𝑋𝐵𝑄𝐵)) → ((𝑋(meet‘𝐾)(𝑃 𝑄)) 𝑋 → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) (𝑄(meet‘𝐾)𝑋)))
8987, 70, 88sylc 62 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) (𝑄(meet‘𝐾)𝑋))
9089, 81breqtrd 4599 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) (𝑋(meet‘𝐾)𝑄))
91 breq2 4577 . . . . . . . . . . . . . . . 16 ((𝑋(meet‘𝐾)𝑄) = 0 → ((𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) (𝑋(meet‘𝐾)𝑄) ↔ (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) 0 ))
9290, 91syl5ibcom 233 . . . . . . . . . . . . . . 15 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → ((𝑋(meet‘𝐾)𝑄) = 0 → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) 0 ))
93 hlop 33466 . . . . . . . . . . . . . . . . 17 (𝐾 ∈ HL → 𝐾 ∈ OP)
9493adantr 479 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → 𝐾 ∈ OP)
954, 61latmcl 16817 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ Lat ∧ 𝑄𝐵 ∧ (𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐵) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) ∈ 𝐵)
9631, 34, 85, 95syl3anc 1317 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) ∈ 𝐵)
974, 5, 6ople0 33291 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ OP ∧ (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) ∈ 𝐵) → ((𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) 0 ↔ (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) = 0 ))
9894, 96, 97syl2anc 690 . . . . . . . . . . . . . . 15 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → ((𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) 0 ↔ (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) = 0 ))
9992, 98sylibd 227 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → ((𝑋(meet‘𝐾)𝑄) = 0 → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) = 0 ))
10083, 99sylbid 228 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (¬ 𝑄 𝑋 → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) = 0 ))
101100imp 443 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ ¬ 𝑄 𝑋) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) = 0 )
102101adantrl 747 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ (𝑃𝑄 ∧ ¬ 𝑄 𝑋)) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) = 0 )
103102adantrr 748 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ ((𝑃𝑄 ∧ ¬ 𝑄 𝑋) ∧ 𝑃 (𝑋 𝑄))) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) = 0 )
1044, 5, 61latmle2 16842 . . . . . . . . . . . . 13 ((𝐾 ∈ Lat ∧ 𝑋𝐵 ∧ (𝑃 𝑄) ∈ 𝐵) → (𝑋(meet‘𝐾)(𝑃 𝑄)) (𝑃 𝑄))
10531, 3, 68, 104syl3anc 1317 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑋(meet‘𝐾)(𝑃 𝑄)) (𝑃 𝑄))
1064, 15latjcom 16824 . . . . . . . . . . . . 13 ((𝐾 ∈ Lat ∧ 𝑃𝐵𝑄𝐵) → (𝑃 𝑄) = (𝑄 𝑃))
10731, 66, 34, 106syl3anc 1317 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑃 𝑄) = (𝑄 𝑃))
108105, 107breqtrd 4599 . . . . . . . . . . 11 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑋(meet‘𝐾)(𝑃 𝑄)) (𝑄 𝑃))
109108adantr 479 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ ((𝑃𝑄 ∧ ¬ 𝑄 𝑋) ∧ 𝑃 (𝑋 𝑄))) → (𝑋(meet‘𝐾)(𝑃 𝑄)) (𝑄 𝑃))
11030adantr 479 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐴𝑃𝐴𝑄𝐵)) → 𝐾 ∈ Lat)
111 simpr3 1061 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐴𝑃𝐴𝑄𝐵)) → 𝑄𝐵)
112 simpr1 1059 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐴𝑃𝐴𝑄𝐵)) → (𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐴)
1134, 7atbase 33393 . . . . . . . . . . . . . 14 ((𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐴 → (𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐵)
114112, 113syl 17 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐴𝑃𝐴𝑄𝐵)) → (𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐵)
1154, 61latmcom 16840 . . . . . . . . . . . . 13 ((𝐾 ∈ Lat ∧ 𝑄𝐵 ∧ (𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐵) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) = ((𝑋(meet‘𝐾)(𝑃 𝑄))(meet‘𝐾)𝑄))
116110, 111, 114, 115syl3anc 1317 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐴𝑃𝐴𝑄𝐵)) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) = ((𝑋(meet‘𝐾)(𝑃 𝑄))(meet‘𝐾)𝑄))
117116eqeq1d 2607 . . . . . . . . . . 11 ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐴𝑃𝐴𝑄𝐵)) → ((𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) = 0 ↔ ((𝑋(meet‘𝐾)(𝑃 𝑄))(meet‘𝐾)𝑄) = 0 ))
1184, 5, 15, 61, 6, 7hlexch3 33494 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐴𝑃𝐴𝑄𝐵) ∧ ((𝑋(meet‘𝐾)(𝑃 𝑄))(meet‘𝐾)𝑄) = 0 ) → ((𝑋(meet‘𝐾)(𝑃 𝑄)) (𝑄 𝑃) → 𝑃 (𝑄 (𝑋(meet‘𝐾)(𝑃 𝑄)))))
1191183expia 1258 . . . . . . . . . . 11 ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐴𝑃𝐴𝑄𝐵)) → (((𝑋(meet‘𝐾)(𝑃 𝑄))(meet‘𝐾)𝑄) = 0 → ((𝑋(meet‘𝐾)(𝑃 𝑄)) (𝑄 𝑃) → 𝑃 (𝑄 (𝑋(meet‘𝐾)(𝑃 𝑄))))))
120117, 119sylbid 228 . . . . . . . . . 10 ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐴𝑃𝐴𝑄𝐵)) → ((𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 𝑄))) = 0 → ((𝑋(meet‘𝐾)(𝑃 𝑄)) (𝑄 𝑃) → 𝑃 (𝑄 (𝑋(meet‘𝐾)(𝑃 𝑄))))))
12177, 103, 109, 120syl3c 63 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ ((𝑃𝑄 ∧ ¬ 𝑄 𝑋) ∧ 𝑃 (𝑋 𝑄))) → 𝑃 (𝑄 (𝑋(meet‘𝐾)(𝑃 𝑄))))
12271, 121jca 552 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ ((𝑃𝑄 ∧ ¬ 𝑄 𝑋) ∧ 𝑃 (𝑋 𝑄))) → ((𝑋(meet‘𝐾)(𝑃 𝑄)) 𝑋𝑃 (𝑄 (𝑋(meet‘𝐾)(𝑃 𝑄)))))
123122ex 448 . . . . . . 7 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (((𝑃𝑄 ∧ ¬ 𝑄 𝑋) ∧ 𝑃 (𝑋 𝑄)) → ((𝑋(meet‘𝐾)(𝑃 𝑄)) 𝑋𝑃 (𝑄 (𝑋(meet‘𝐾)(𝑃 𝑄))))))
12464, 123jcad 553 . . . . . 6 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (((𝑃𝑄 ∧ ¬ 𝑄 𝑋) ∧ 𝑃 (𝑋 𝑄)) → ((𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐴 ∧ ((𝑋(meet‘𝐾)(𝑃 𝑄)) 𝑋𝑃 (𝑄 (𝑋(meet‘𝐾)(𝑃 𝑄)))))))
125 breq1 4576 . . . . . . . 8 (𝑟 = (𝑋(meet‘𝐾)(𝑃 𝑄)) → (𝑟 𝑋 ↔ (𝑋(meet‘𝐾)(𝑃 𝑄)) 𝑋))
126 oveq2 6531 . . . . . . . . 9 (𝑟 = (𝑋(meet‘𝐾)(𝑃 𝑄)) → (𝑄 𝑟) = (𝑄 (𝑋(meet‘𝐾)(𝑃 𝑄))))
127126breq2d 4585 . . . . . . . 8 (𝑟 = (𝑋(meet‘𝐾)(𝑃 𝑄)) → (𝑃 (𝑄 𝑟) ↔ 𝑃 (𝑄 (𝑋(meet‘𝐾)(𝑃 𝑄)))))
128125, 127anbi12d 742 . . . . . . 7 (𝑟 = (𝑋(meet‘𝐾)(𝑃 𝑄)) → ((𝑟 𝑋𝑃 (𝑄 𝑟)) ↔ ((𝑋(meet‘𝐾)(𝑃 𝑄)) 𝑋𝑃 (𝑄 (𝑋(meet‘𝐾)(𝑃 𝑄))))))
129128rspcev 3277 . . . . . 6 (((𝑋(meet‘𝐾)(𝑃 𝑄)) ∈ 𝐴 ∧ ((𝑋(meet‘𝐾)(𝑃 𝑄)) 𝑋𝑃 (𝑄 (𝑋(meet‘𝐾)(𝑃 𝑄))))) → ∃𝑟𝐴 (𝑟 𝑋𝑃 (𝑄 𝑟)))
130124, 129syl6 34 . . . . 5 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (((𝑃𝑄 ∧ ¬ 𝑄 𝑋) ∧ 𝑃 (𝑋 𝑄)) → ∃𝑟𝐴 (𝑟 𝑋𝑃 (𝑄 𝑟))))
131130expd 450 . . . 4 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → ((𝑃𝑄 ∧ ¬ 𝑄 𝑋) → (𝑃 (𝑋 𝑄) → ∃𝑟𝐴 (𝑟 𝑋𝑃 (𝑄 𝑟)))))
13260, 131syl5bi 230 . . 3 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (¬ (𝑃 = 𝑄𝑄 𝑋) → (𝑃 (𝑋 𝑄) → ∃𝑟𝐴 (𝑟 𝑋𝑃 (𝑄 𝑟)))))
13356, 132syl7 71 . 2 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (¬ (𝑃 = 𝑄𝑄 𝑋) → ((𝑋0𝑃 (𝑋 𝑄)) → ∃𝑟𝐴 (𝑟 𝑋𝑃 (𝑄 𝑟)))))
13429, 55, 133ecase3d 980 1 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → ((𝑋0𝑃 (𝑋 𝑄)) → ∃𝑟𝐴 (𝑟 𝑋𝑃 (𝑄 𝑟))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 194  wo 381  wa 382  w3a 1030   = wceq 1474  wcel 1975  wne 2775  wrex 2892   class class class wbr 4573  cfv 5786  (class class class)co 6523  Basecbs 15637  lecple 15717  joincjn 16709  meetcmee 16710  0.cp0 16802  Latclat 16810  OPcops 33276  Atomscatm 33367  AtLatcal 33368  HLchlt 33454
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1711  ax-4 1726  ax-5 1825  ax-6 1873  ax-7 1920  ax-8 1977  ax-9 1984  ax-10 2004  ax-11 2019  ax-12 2031  ax-13 2228  ax-ext 2585  ax-rep 4689  ax-sep 4699  ax-nul 4708  ax-pow 4760  ax-pr 4824  ax-un 6820
This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-3an 1032  df-tru 1477  df-ex 1695  df-nf 1700  df-sb 1866  df-eu 2457  df-mo 2458  df-clab 2592  df-cleq 2598  df-clel 2601  df-nfc 2735  df-ne 2777  df-ral 2896  df-rex 2897  df-reu 2898  df-rab 2900  df-v 3170  df-sbc 3398  df-csb 3495  df-dif 3538  df-un 3540  df-in 3542  df-ss 3549  df-nul 3870  df-if 4032  df-pw 4105  df-sn 4121  df-pr 4123  df-op 4127  df-uni 4363  df-iun 4447  df-br 4574  df-opab 4634  df-mpt 4635  df-id 4939  df-xp 5030  df-rel 5031  df-cnv 5032  df-co 5033  df-dm 5034  df-rn 5035  df-res 5036  df-ima 5037  df-iota 5750  df-fun 5788  df-fn 5789  df-f 5790  df-f1 5791  df-fo 5792  df-f1o 5793  df-fv 5794  df-riota 6485  df-ov 6526  df-oprab 6527  df-preset 16693  df-poset 16711  df-plt 16723  df-lub 16739  df-glb 16740  df-join 16741  df-meet 16742  df-p0 16804  df-lat 16811  df-clat 16873  df-oposet 33280  df-ol 33282  df-oml 33283  df-covers 33370  df-ats 33371  df-atl 33402  df-cvlat 33426  df-hlat 33455
This theorem is referenced by:  cvrat42  33547  ps-2  33581
  Copyright terms: Public domain W3C validator