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

Theorem cvratlem 40236
Description: Lemma for cvrat 40237. (atcvatlem 32774 analog.) (Contributed by NM, 22-Nov-2011.)
Hypotheses
Ref Expression
cvrat.b 𝐵 = (Base‘𝐾)
cvrat.s < = (lt‘𝐾)
cvrat.j = (join‘𝐾)
cvrat.z 0 = (0.‘𝐾)
cvrat.a 𝐴 = (Atoms‘𝐾)
Assertion
Ref Expression
cvratlem (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ (𝑋0𝑋 < (𝑃 𝑄))) → (¬ 𝑃(le‘𝐾)𝑋𝑋𝐴))

Proof of Theorem cvratlem
Dummy variable 𝑟 is distinct from all other variables.
StepHypRef Expression
1 hlatl 40175 . . . . 5 (𝐾 ∈ HL → 𝐾 ∈ AtLat)
21adantr 486 . . . 4 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → 𝐾 ∈ AtLat)
3 simpr1 1213 . . . 4 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → 𝑋𝐵)
4 cvrat.b . . . . . 6 𝐵 = (Base‘𝐾)
5 eqid 2766 . . . . . 6 (le‘𝐾) = (le‘𝐾)
6 cvrat.z . . . . . 6 0 = (0.‘𝐾)
7 cvrat.a . . . . . 6 𝐴 = (Atoms‘𝐾)
84, 5, 6, 7atlex 40131 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑋𝐵𝑋0 ) → ∃𝑟𝐴 𝑟(le‘𝐾)𝑋)
983expia 1139 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋𝐵) → (𝑋0 → ∃𝑟𝐴 𝑟(le‘𝐾)𝑋))
102, 3, 9syl2anc 596 . . 3 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑋0 → ∃𝑟𝐴 𝑟(le‘𝐾)𝑋))
1113ad2ant1 1151 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝐾 ∈ AtLat)
12 simp22 1226 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝑃𝐴)
13 simp3 1156 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝑟𝐴)
145, 7atcmp 40126 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ AtLat ∧ 𝑃𝐴𝑟𝐴) → (𝑃(le‘𝐾)𝑟𝑃 = 𝑟))
1511, 12, 13, 14syl3anc 1398 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑃(le‘𝐾)𝑟𝑃 = 𝑟))
16 breq1 5117 . . . . . . . . . . . . . . . . 17 (𝑃 = 𝑟 → (𝑃(le‘𝐾)𝑋𝑟(le‘𝐾)𝑋))
1716biimprd 251 . . . . . . . . . . . . . . . 16 (𝑃 = 𝑟 → (𝑟(le‘𝐾)𝑋𝑃(le‘𝐾)𝑋))
1815, 17biimtrdi 256 . . . . . . . . . . . . . . 15 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑃(le‘𝐾)𝑟 → (𝑟(le‘𝐾)𝑋𝑃(le‘𝐾)𝑋)))
1918com23 87 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟(le‘𝐾)𝑋 → (𝑃(le‘𝐾)𝑟𝑃(le‘𝐾)𝑋)))
20 con3 154 . . . . . . . . . . . . . 14 ((𝑃(le‘𝐾)𝑟𝑃(le‘𝐾)𝑋) → (¬ 𝑃(le‘𝐾)𝑋 → ¬ 𝑃(le‘𝐾)𝑟))
2119, 20syl6 36 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟(le‘𝐾)𝑋 → (¬ 𝑃(le‘𝐾)𝑋 → ¬ 𝑃(le‘𝐾)𝑟)))
2221impd 416 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → ((𝑟(le‘𝐾)𝑋 ∧ ¬ 𝑃(le‘𝐾)𝑋) → ¬ 𝑃(le‘𝐾)𝑟))
23 simp1 1154 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝐾 ∈ HL)
244, 7atbase 40104 . . . . . . . . . . . . . 14 (𝑟𝐴𝑟𝐵)
25243ad2ant3 1153 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝑟𝐵)
26 cvrat.j . . . . . . . . . . . . . 14 = (join‘𝐾)
27 eqid 2766 . . . . . . . . . . . . . 14 ( ⋖ ‘𝐾) = ( ⋖ ‘𝐾)
284, 5, 26, 27, 7cvr1 40225 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ 𝑟𝐵𝑃𝐴) → (¬ 𝑃(le‘𝐾)𝑟𝑟( ⋖ ‘𝐾)(𝑟 𝑃)))
2923, 25, 12, 28syl3anc 1398 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (¬ 𝑃(le‘𝐾)𝑟𝑟( ⋖ ‘𝐾)(𝑟 𝑃)))
3022, 29sylibd 242 . . . . . . . . . . 11 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → ((𝑟(le‘𝐾)𝑋 ∧ ¬ 𝑃(le‘𝐾)𝑋) → 𝑟( ⋖ ‘𝐾)(𝑟 𝑃)))
3130imp 412 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ ¬ 𝑃(le‘𝐾)𝑋)) → 𝑟( ⋖ ‘𝐾)(𝑟 𝑃))
32 hllat 40178 . . . . . . . . . . . . 13 (𝐾 ∈ HL → 𝐾 ∈ Lat)
33323ad2ant1 1151 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝐾 ∈ Lat)
344, 7atbase 40104 . . . . . . . . . . . . 13 (𝑃𝐴𝑃𝐵)
3512, 34syl 18 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝑃𝐵)
364, 26latjcom 18528 . . . . . . . . . . . 12 ((𝐾 ∈ Lat ∧ 𝑃𝐵𝑟𝐵) → (𝑃 𝑟) = (𝑟 𝑃))
3733, 35, 25, 36syl3anc 1398 . . . . . . . . . . 11 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑃 𝑟) = (𝑟 𝑃))
3837adantr 486 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ ¬ 𝑃(le‘𝐾)𝑋)) → (𝑃 𝑟) = (𝑟 𝑃))
3931, 38breqtrrd 5144 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ ¬ 𝑃(le‘𝐾)𝑋)) → 𝑟( ⋖ ‘𝐾)(𝑃 𝑟))
4039adantrrl 737 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → 𝑟( ⋖ ‘𝐾)(𝑃 𝑟))
415, 26, 7hlatlej1 40190 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑟𝐴) → 𝑃(le‘𝐾)(𝑃 𝑟))
4223, 12, 13, 41syl3anc 1398 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝑃(le‘𝐾)(𝑃 𝑟))
4342adantr 486 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → 𝑃(le‘𝐾)(𝑃 𝑟))
445, 7atcmp 40126 . . . . . . . . . . . . . . . . . 18 ((𝐾 ∈ AtLat ∧ 𝑟𝐴𝑃𝐴) → (𝑟(le‘𝐾)𝑃𝑟 = 𝑃))
4511, 13, 12, 44syl3anc 1398 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟(le‘𝐾)𝑃𝑟 = 𝑃))
46 breq1 5117 . . . . . . . . . . . . . . . . . 18 (𝑟 = 𝑃 → (𝑟(le‘𝐾)𝑋𝑃(le‘𝐾)𝑋))
4746biimpd 232 . . . . . . . . . . . . . . . . 17 (𝑟 = 𝑃 → (𝑟(le‘𝐾)𝑋𝑃(le‘𝐾)𝑋))
4845, 47biimtrdi 256 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟(le‘𝐾)𝑃 → (𝑟(le‘𝐾)𝑋𝑃(le‘𝐾)𝑋)))
4948com23 87 . . . . . . . . . . . . . . 15 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟(le‘𝐾)𝑋 → (𝑟(le‘𝐾)𝑃𝑃(le‘𝐾)𝑋)))
50 con3 154 . . . . . . . . . . . . . . 15 ((𝑟(le‘𝐾)𝑃𝑃(le‘𝐾)𝑋) → (¬ 𝑃(le‘𝐾)𝑋 → ¬ 𝑟(le‘𝐾)𝑃))
5149, 50syl6 36 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟(le‘𝐾)𝑋 → (¬ 𝑃(le‘𝐾)𝑋 → ¬ 𝑟(le‘𝐾)𝑃)))
5251imp32 424 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ ¬ 𝑃(le‘𝐾)𝑋)) → ¬ 𝑟(le‘𝐾)𝑃)
5352adantrrl 737 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → ¬ 𝑟(le‘𝐾)𝑃)
54 simprl 783 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋𝑋 < (𝑃 𝑄))) → 𝑟(le‘𝐾)𝑋)
55 simp21 1225 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝑋𝐵)
56 simp23 1227 . . . . . . . . . . . . . . . . . . 19 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝑄𝐴)
574, 7atbase 40104 . . . . . . . . . . . . . . . . . . 19 (𝑄𝐴𝑄𝐵)
5856, 57syl 18 . . . . . . . . . . . . . . . . . 18 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝑄𝐵)
594, 26latjcl 18520 . . . . . . . . . . . . . . . . . 18 ((𝐾 ∈ Lat ∧ 𝑃𝐵𝑄𝐵) → (𝑃 𝑄) ∈ 𝐵)
6033, 35, 58, 59syl3anc 1398 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑃 𝑄) ∈ 𝐵)
6123, 55, 603jca 1146 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝐾 ∈ HL ∧ 𝑋𝐵 ∧ (𝑃 𝑄) ∈ 𝐵))
62 cvrat.s . . . . . . . . . . . . . . . . . 18 < = (lt‘𝐾)
635, 62pltle 18412 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ 𝑋𝐵 ∧ (𝑃 𝑄) ∈ 𝐵) → (𝑋 < (𝑃 𝑄) → 𝑋(le‘𝐾)(𝑃 𝑄)))
6463imp 412 . . . . . . . . . . . . . . . 16 (((𝐾 ∈ HL ∧ 𝑋𝐵 ∧ (𝑃 𝑄) ∈ 𝐵) ∧ 𝑋 < (𝑃 𝑄)) → 𝑋(le‘𝐾)(𝑃 𝑄))
6561, 64sylan 592 . . . . . . . . . . . . . . 15 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ 𝑋 < (𝑃 𝑄)) → 𝑋(le‘𝐾)(𝑃 𝑄))
6665adantrl 729 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋𝑋 < (𝑃 𝑄))) → 𝑋(le‘𝐾)(𝑃 𝑄))
67 hlpos 40181 . . . . . . . . . . . . . . . . 17 (𝐾 ∈ HL → 𝐾 ∈ Poset)
68673ad2ant1 1151 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝐾 ∈ Poset)
694, 5postr 18401 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ Poset ∧ (𝑟𝐵𝑋𝐵 ∧ (𝑃 𝑄) ∈ 𝐵)) → ((𝑟(le‘𝐾)𝑋𝑋(le‘𝐾)(𝑃 𝑄)) → 𝑟(le‘𝐾)(𝑃 𝑄)))
7068, 25, 55, 60, 69syl13anc 1399 . . . . . . . . . . . . . . 15 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → ((𝑟(le‘𝐾)𝑋𝑋(le‘𝐾)(𝑃 𝑄)) → 𝑟(le‘𝐾)(𝑃 𝑄)))
7170adantr 486 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋𝑋 < (𝑃 𝑄))) → ((𝑟(le‘𝐾)𝑋𝑋(le‘𝐾)(𝑃 𝑄)) → 𝑟(le‘𝐾)(𝑃 𝑄)))
7254, 66, 71mp2and 712 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋𝑋 < (𝑃 𝑄))) → 𝑟(le‘𝐾)(𝑃 𝑄))
7372adantrrr 738 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → 𝑟(le‘𝐾)(𝑃 𝑄))
744, 5, 26, 7hlexch1 40197 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑟𝐴𝑄𝐴𝑃𝐵) ∧ ¬ 𝑟(le‘𝐾)𝑃) → (𝑟(le‘𝐾)(𝑃 𝑄) → 𝑄(le‘𝐾)(𝑃 𝑟)))
75743expia 1139 . . . . . . . . . . . . . . 15 ((𝐾 ∈ HL ∧ (𝑟𝐴𝑄𝐴𝑃𝐵)) → (¬ 𝑟(le‘𝐾)𝑃 → (𝑟(le‘𝐾)(𝑃 𝑄) → 𝑄(le‘𝐾)(𝑃 𝑟))))
7675impd 416 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ (𝑟𝐴𝑄𝐴𝑃𝐵)) → ((¬ 𝑟(le‘𝐾)𝑃𝑟(le‘𝐾)(𝑃 𝑄)) → 𝑄(le‘𝐾)(𝑃 𝑟)))
7723, 13, 56, 35, 76syl13anc 1399 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → ((¬ 𝑟(le‘𝐾)𝑃𝑟(le‘𝐾)(𝑃 𝑄)) → 𝑄(le‘𝐾)(𝑃 𝑟)))
7877adantr 486 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → ((¬ 𝑟(le‘𝐾)𝑃𝑟(le‘𝐾)(𝑃 𝑄)) → 𝑄(le‘𝐾)(𝑃 𝑟)))
7953, 73, 78mp2and 712 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → 𝑄(le‘𝐾)(𝑃 𝑟))
804, 26latjcl 18520 . . . . . . . . . . . . . 14 ((𝐾 ∈ Lat ∧ 𝑃𝐵𝑟𝐵) → (𝑃 𝑟) ∈ 𝐵)
8133, 35, 25, 80syl3anc 1398 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑃 𝑟) ∈ 𝐵)
824, 5, 26latjle12 18531 . . . . . . . . . . . . 13 ((𝐾 ∈ Lat ∧ (𝑃𝐵𝑄𝐵 ∧ (𝑃 𝑟) ∈ 𝐵)) → ((𝑃(le‘𝐾)(𝑃 𝑟) ∧ 𝑄(le‘𝐾)(𝑃 𝑟)) ↔ (𝑃 𝑄)(le‘𝐾)(𝑃 𝑟)))
8333, 35, 58, 81, 82syl13anc 1399 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → ((𝑃(le‘𝐾)(𝑃 𝑟) ∧ 𝑄(le‘𝐾)(𝑃 𝑟)) ↔ (𝑃 𝑄)(le‘𝐾)(𝑃 𝑟)))
8483adantr 486 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → ((𝑃(le‘𝐾)(𝑃 𝑟) ∧ 𝑄(le‘𝐾)(𝑃 𝑟)) ↔ (𝑃 𝑄)(le‘𝐾)(𝑃 𝑟)))
8543, 79, 84mpbi2and 725 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → (𝑃 𝑄)(le‘𝐾)(𝑃 𝑟))
865, 26, 7hlatlej1 40190 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → 𝑃(le‘𝐾)(𝑃 𝑄))
8723, 12, 56, 86syl3anc 1398 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝑃(le‘𝐾)(𝑃 𝑄))
8887adantr 486 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → 𝑃(le‘𝐾)(𝑃 𝑄))
894, 5, 26latjle12 18531 . . . . . . . . . . . . 13 ((𝐾 ∈ Lat ∧ (𝑃𝐵𝑟𝐵 ∧ (𝑃 𝑄) ∈ 𝐵)) → ((𝑃(le‘𝐾)(𝑃 𝑄) ∧ 𝑟(le‘𝐾)(𝑃 𝑄)) ↔ (𝑃 𝑟)(le‘𝐾)(𝑃 𝑄)))
9033, 35, 25, 60, 89syl13anc 1399 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → ((𝑃(le‘𝐾)(𝑃 𝑄) ∧ 𝑟(le‘𝐾)(𝑃 𝑄)) ↔ (𝑃 𝑟)(le‘𝐾)(𝑃 𝑄)))
9190adantr 486 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → ((𝑃(le‘𝐾)(𝑃 𝑄) ∧ 𝑟(le‘𝐾)(𝑃 𝑄)) ↔ (𝑃 𝑟)(le‘𝐾)(𝑃 𝑄)))
9288, 73, 91mpbi2and 725 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → (𝑃 𝑟)(le‘𝐾)(𝑃 𝑄))
9333, 60, 813jca 1146 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝐾 ∈ Lat ∧ (𝑃 𝑄) ∈ 𝐵 ∧ (𝑃 𝑟) ∈ 𝐵))
9493adantr 486 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → (𝐾 ∈ Lat ∧ (𝑃 𝑄) ∈ 𝐵 ∧ (𝑃 𝑟) ∈ 𝐵))
954, 5latasymb 18523 . . . . . . . . . . 11 ((𝐾 ∈ Lat ∧ (𝑃 𝑄) ∈ 𝐵 ∧ (𝑃 𝑟) ∈ 𝐵) → (((𝑃 𝑄)(le‘𝐾)(𝑃 𝑟) ∧ (𝑃 𝑟)(le‘𝐾)(𝑃 𝑄)) ↔ (𝑃 𝑄) = (𝑃 𝑟)))
9694, 95syl 18 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → (((𝑃 𝑄)(le‘𝐾)(𝑃 𝑟) ∧ (𝑃 𝑟)(le‘𝐾)(𝑃 𝑄)) ↔ (𝑃 𝑄) = (𝑃 𝑟)))
9785, 92, 96mpbi2and 725 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → (𝑃 𝑄) = (𝑃 𝑟))
98 breq2 5118 . . . . . . . . . . . 12 ((𝑃 𝑄) = (𝑃 𝑟) → (𝑋 < (𝑃 𝑄) ↔ 𝑋 < (𝑃 𝑟)))
9998biimpcd 252 . . . . . . . . . . 11 (𝑋 < (𝑃 𝑄) → ((𝑃 𝑄) = (𝑃 𝑟) → 𝑋 < (𝑃 𝑟)))
10099adantr 486 . . . . . . . . . 10 ((𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋) → ((𝑃 𝑄) = (𝑃 𝑟) → 𝑋 < (𝑃 𝑟)))
101100ad2antll 742 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → ((𝑃 𝑄) = (𝑃 𝑟) → 𝑋 < (𝑃 𝑟)))
10297, 101mpd 16 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → 𝑋 < (𝑃 𝑟))
1034, 5, 62, 27cvrnbtwn3 40091 . . . . . . . . . . . . . . 15 ((𝐾 ∈ Poset ∧ (𝑟𝐵 ∧ (𝑃 𝑟) ∈ 𝐵𝑋𝐵) ∧ 𝑟( ⋖ ‘𝐾)(𝑃 𝑟)) → ((𝑟(le‘𝐾)𝑋𝑋 < (𝑃 𝑟)) ↔ 𝑟 = 𝑋))
104103biimpd 232 . . . . . . . . . . . . . 14 ((𝐾 ∈ Poset ∧ (𝑟𝐵 ∧ (𝑃 𝑟) ∈ 𝐵𝑋𝐵) ∧ 𝑟( ⋖ ‘𝐾)(𝑃 𝑟)) → ((𝑟(le‘𝐾)𝑋𝑋 < (𝑃 𝑟)) → 𝑟 = 𝑋))
1051043expia 1139 . . . . . . . . . . . . 13 ((𝐾 ∈ Poset ∧ (𝑟𝐵 ∧ (𝑃 𝑟) ∈ 𝐵𝑋𝐵)) → (𝑟( ⋖ ‘𝐾)(𝑃 𝑟) → ((𝑟(le‘𝐾)𝑋𝑋 < (𝑃 𝑟)) → 𝑟 = 𝑋)))
10668, 25, 81, 55, 105syl13anc 1399 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟( ⋖ ‘𝐾)(𝑃 𝑟) → ((𝑟(le‘𝐾)𝑋𝑋 < (𝑃 𝑟)) → 𝑟 = 𝑋)))
107106exp4a 437 . . . . . . . . . . 11 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟( ⋖ ‘𝐾)(𝑃 𝑟) → (𝑟(le‘𝐾)𝑋 → (𝑋 < (𝑃 𝑟) → 𝑟 = 𝑋))))
108107com23 87 . . . . . . . . . 10 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟(le‘𝐾)𝑋 → (𝑟( ⋖ ‘𝐾)(𝑃 𝑟) → (𝑋 < (𝑃 𝑟) → 𝑟 = 𝑋))))
109108imp4b 427 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ 𝑟(le‘𝐾)𝑋) → ((𝑟( ⋖ ‘𝐾)(𝑃 𝑟) ∧ 𝑋 < (𝑃 𝑟)) → 𝑟 = 𝑋))
110109adantrr 730 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → ((𝑟( ⋖ ‘𝐾)(𝑃 𝑟) ∧ 𝑋 < (𝑃 𝑟)) → 𝑟 = 𝑋))
11140, 102, 110mp2and 712 . . . . . . 7 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → 𝑟 = 𝑋)
112 simpl3 1212 . . . . . . 7 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → 𝑟𝐴)
113111, 112eqeltrrd 2867 . . . . . 6 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → 𝑋𝐴)
114113exp45 444 . . . . 5 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟(le‘𝐾)𝑋 → (𝑋 < (𝑃 𝑄) → (¬ 𝑃(le‘𝐾)𝑋𝑋𝐴))))
1151143expa 1136 . . . 4 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ 𝑟𝐴) → (𝑟(le‘𝐾)𝑋 → (𝑋 < (𝑃 𝑄) → (¬ 𝑃(le‘𝐾)𝑋𝑋𝐴))))
116115rexlimdva 3169 . . 3 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (∃𝑟𝐴 𝑟(le‘𝐾)𝑋 → (𝑋 < (𝑃 𝑄) → (¬ 𝑃(le‘𝐾)𝑋𝑋𝐴))))
11710, 116syld 48 . 2 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑋0 → (𝑋 < (𝑃 𝑄) → (¬ 𝑃(le‘𝐾)𝑋𝑋𝐴))))
118117imp32 424 1 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ (𝑋0𝑋 < (𝑃 𝑄))) → (¬ 𝑃(le‘𝐾)𝑋𝑋𝐴))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wb 209  wa 401  w3a 1103   = wceq 1570  wcel 2146  wne 2961  wrex 3092   class class class wbr 5114  cfv 6543  (class class class)co 7423  Basecbs 17294  lecple 17342  Posetcpo 18388  ltcplt 18389  joincjn 18392  0.cp0 18502  Latclat 18512  ccvr 40077  Atomscatm 40078  AtLatcal 40079  HLchlt 40165
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-rep 5243  ax-sep 5262  ax-nul 5274  ax-pow 5341  ax-pr 5409  ax-un 7745
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-ral 3083  df-rex 3093  df-rmo 3372  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-nul 4290  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4878  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-id 5561  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7380  df-ov 7426  df-oprab 7427  df-proset 18375  df-poset 18394  df-plt 18409  df-lub 18425  df-glb 18426  df-join 18427  df-meet 18428  df-p0 18504  df-lat 18513  df-clat 18580  df-oposet 39991  df-ol 39993  df-oml 39994  df-covers 40081  df-ats 40082  df-atl 40113  df-cvlat 40137  df-hlat 40166
This theorem is used by:  cvrat  40237
  Copyright terms: Public domain W3C validator