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 35491
Description: Lemma for cvrat 35492. (atcvatlem 29795 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 35430 . . . . 5 (𝐾 ∈ HL → 𝐾 ∈ AtLat)
21adantr 474 . . . 4 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → 𝐾 ∈ AtLat)
3 simpr1 1252 . . . 4 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → 𝑋𝐵)
4 cvrat.b . . . . . 6 𝐵 = (Base‘𝐾)
5 eqid 2825 . . . . . 6 (le‘𝐾) = (le‘𝐾)
6 cvrat.z . . . . . 6 0 = (0.‘𝐾)
7 cvrat.a . . . . . 6 𝐴 = (Atoms‘𝐾)
84, 5, 6, 7atlex 35386 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑋𝐵𝑋0 ) → ∃𝑟𝐴 𝑟(le‘𝐾)𝑋)
983expia 1154 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋𝐵) → (𝑋0 → ∃𝑟𝐴 𝑟(le‘𝐾)𝑋))
102, 3, 9syl2anc 579 . . 3 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑋0 → ∃𝑟𝐴 𝑟(le‘𝐾)𝑋))
1113ad2ant1 1167 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝐾 ∈ AtLat)
12 simp22 1268 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝑃𝐴)
13 simp3 1172 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝑟𝐴)
145, 7atcmp 35381 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ AtLat ∧ 𝑃𝐴𝑟𝐴) → (𝑃(le‘𝐾)𝑟𝑃 = 𝑟))
1511, 12, 13, 14syl3anc 1494 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑃(le‘𝐾)𝑟𝑃 = 𝑟))
16 breq1 4878 . . . . . . . . . . . . . . . . 17 (𝑃 = 𝑟 → (𝑃(le‘𝐾)𝑋𝑟(le‘𝐾)𝑋))
1716biimprd 240 . . . . . . . . . . . . . . . 16 (𝑃 = 𝑟 → (𝑟(le‘𝐾)𝑋𝑃(le‘𝐾)𝑋))
1815, 17syl6bi 245 . . . . . . . . . . . . . . 15 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑃(le‘𝐾)𝑟 → (𝑟(le‘𝐾)𝑋𝑃(le‘𝐾)𝑋)))
1918com23 86 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟(le‘𝐾)𝑋 → (𝑃(le‘𝐾)𝑟𝑃(le‘𝐾)𝑋)))
20 con3 151 . . . . . . . . . . . . . 14 ((𝑃(le‘𝐾)𝑟𝑃(le‘𝐾)𝑋) → (¬ 𝑃(le‘𝐾)𝑋 → ¬ 𝑃(le‘𝐾)𝑟))
2119, 20syl6 35 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟(le‘𝐾)𝑋 → (¬ 𝑃(le‘𝐾)𝑋 → ¬ 𝑃(le‘𝐾)𝑟)))
2221impd 400 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → ((𝑟(le‘𝐾)𝑋 ∧ ¬ 𝑃(le‘𝐾)𝑋) → ¬ 𝑃(le‘𝐾)𝑟))
23 simp1 1170 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝐾 ∈ HL)
244, 7atbase 35359 . . . . . . . . . . . . . 14 (𝑟𝐴𝑟𝐵)
25243ad2ant3 1169 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝑟𝐵)
26 cvrat.j . . . . . . . . . . . . . 14 = (join‘𝐾)
27 eqid 2825 . . . . . . . . . . . . . 14 ( ⋖ ‘𝐾) = ( ⋖ ‘𝐾)
284, 5, 26, 27, 7cvr1 35480 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ 𝑟𝐵𝑃𝐴) → (¬ 𝑃(le‘𝐾)𝑟𝑟( ⋖ ‘𝐾)(𝑟 𝑃)))
2923, 25, 12, 28syl3anc 1494 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (¬ 𝑃(le‘𝐾)𝑟𝑟( ⋖ ‘𝐾)(𝑟 𝑃)))
3022, 29sylibd 231 . . . . . . . . . . 11 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → ((𝑟(le‘𝐾)𝑋 ∧ ¬ 𝑃(le‘𝐾)𝑋) → 𝑟( ⋖ ‘𝐾)(𝑟 𝑃)))
3130imp 397 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ ¬ 𝑃(le‘𝐾)𝑋)) → 𝑟( ⋖ ‘𝐾)(𝑟 𝑃))
32 hllat 35433 . . . . . . . . . . . . 13 (𝐾 ∈ HL → 𝐾 ∈ Lat)
33323ad2ant1 1167 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝐾 ∈ Lat)
344, 7atbase 35359 . . . . . . . . . . . . 13 (𝑃𝐴𝑃𝐵)
3512, 34syl 17 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝑃𝐵)
364, 26latjcom 17419 . . . . . . . . . . . 12 ((𝐾 ∈ Lat ∧ 𝑃𝐵𝑟𝐵) → (𝑃 𝑟) = (𝑟 𝑃))
3733, 35, 25, 36syl3anc 1494 . . . . . . . . . . 11 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑃 𝑟) = (𝑟 𝑃))
3837adantr 474 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ ¬ 𝑃(le‘𝐾)𝑋)) → (𝑃 𝑟) = (𝑟 𝑃))
3931, 38breqtrrd 4903 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ ¬ 𝑃(le‘𝐾)𝑋)) → 𝑟( ⋖ ‘𝐾)(𝑃 𝑟))
4039adantrrl 715 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → 𝑟( ⋖ ‘𝐾)(𝑃 𝑟))
415, 26, 7hlatlej1 35445 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑟𝐴) → 𝑃(le‘𝐾)(𝑃 𝑟))
4223, 12, 13, 41syl3anc 1494 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝑃(le‘𝐾)(𝑃 𝑟))
4342adantr 474 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → 𝑃(le‘𝐾)(𝑃 𝑟))
445, 7atcmp 35381 . . . . . . . . . . . . . . . . . 18 ((𝐾 ∈ AtLat ∧ 𝑟𝐴𝑃𝐴) → (𝑟(le‘𝐾)𝑃𝑟 = 𝑃))
4511, 13, 12, 44syl3anc 1494 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟(le‘𝐾)𝑃𝑟 = 𝑃))
46 breq1 4878 . . . . . . . . . . . . . . . . . 18 (𝑟 = 𝑃 → (𝑟(le‘𝐾)𝑋𝑃(le‘𝐾)𝑋))
4746biimpd 221 . . . . . . . . . . . . . . . . 17 (𝑟 = 𝑃 → (𝑟(le‘𝐾)𝑋𝑃(le‘𝐾)𝑋))
4845, 47syl6bi 245 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟(le‘𝐾)𝑃 → (𝑟(le‘𝐾)𝑋𝑃(le‘𝐾)𝑋)))
4948com23 86 . . . . . . . . . . . . . . 15 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟(le‘𝐾)𝑋 → (𝑟(le‘𝐾)𝑃𝑃(le‘𝐾)𝑋)))
50 con3 151 . . . . . . . . . . . . . . 15 ((𝑟(le‘𝐾)𝑃𝑃(le‘𝐾)𝑋) → (¬ 𝑃(le‘𝐾)𝑋 → ¬ 𝑟(le‘𝐾)𝑃))
5149, 50syl6 35 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟(le‘𝐾)𝑋 → (¬ 𝑃(le‘𝐾)𝑋 → ¬ 𝑟(le‘𝐾)𝑃)))
5251imp32 411 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ ¬ 𝑃(le‘𝐾)𝑋)) → ¬ 𝑟(le‘𝐾)𝑃)
5352adantrrl 715 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → ¬ 𝑟(le‘𝐾)𝑃)
54 simprl 787 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋𝑋 < (𝑃 𝑄))) → 𝑟(le‘𝐾)𝑋)
55 simp21 1267 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝑋𝐵)
56 simp23 1269 . . . . . . . . . . . . . . . . . . 19 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝑄𝐴)
574, 7atbase 35359 . . . . . . . . . . . . . . . . . . 19 (𝑄𝐴𝑄𝐵)
5856, 57syl 17 . . . . . . . . . . . . . . . . . 18 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝑄𝐵)
594, 26latjcl 17411 . . . . . . . . . . . . . . . . . 18 ((𝐾 ∈ Lat ∧ 𝑃𝐵𝑄𝐵) → (𝑃 𝑄) ∈ 𝐵)
6033, 35, 58, 59syl3anc 1494 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑃 𝑄) ∈ 𝐵)
6123, 55, 603jca 1162 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝐾 ∈ HL ∧ 𝑋𝐵 ∧ (𝑃 𝑄) ∈ 𝐵))
62 cvrat.s . . . . . . . . . . . . . . . . . 18 < = (lt‘𝐾)
635, 62pltle 17321 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ 𝑋𝐵 ∧ (𝑃 𝑄) ∈ 𝐵) → (𝑋 < (𝑃 𝑄) → 𝑋(le‘𝐾)(𝑃 𝑄)))
6463imp 397 . . . . . . . . . . . . . . . 16 (((𝐾 ∈ HL ∧ 𝑋𝐵 ∧ (𝑃 𝑄) ∈ 𝐵) ∧ 𝑋 < (𝑃 𝑄)) → 𝑋(le‘𝐾)(𝑃 𝑄))
6561, 64sylan 575 . . . . . . . . . . . . . . 15 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ 𝑋 < (𝑃 𝑄)) → 𝑋(le‘𝐾)(𝑃 𝑄))
6665adantrl 707 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋𝑋 < (𝑃 𝑄))) → 𝑋(le‘𝐾)(𝑃 𝑄))
67 hlpos 35436 . . . . . . . . . . . . . . . . 17 (𝐾 ∈ HL → 𝐾 ∈ Poset)
68673ad2ant1 1167 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝐾 ∈ Poset)
694, 5postr 17313 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ Poset ∧ (𝑟𝐵𝑋𝐵 ∧ (𝑃 𝑄) ∈ 𝐵)) → ((𝑟(le‘𝐾)𝑋𝑋(le‘𝐾)(𝑃 𝑄)) → 𝑟(le‘𝐾)(𝑃 𝑄)))
7068, 25, 55, 60, 69syl13anc 1495 . . . . . . . . . . . . . . 15 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → ((𝑟(le‘𝐾)𝑋𝑋(le‘𝐾)(𝑃 𝑄)) → 𝑟(le‘𝐾)(𝑃 𝑄)))
7170adantr 474 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋𝑋 < (𝑃 𝑄))) → ((𝑟(le‘𝐾)𝑋𝑋(le‘𝐾)(𝑃 𝑄)) → 𝑟(le‘𝐾)(𝑃 𝑄)))
7254, 66, 71mp2and 690 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋𝑋 < (𝑃 𝑄))) → 𝑟(le‘𝐾)(𝑃 𝑄))
7372adantrrr 716 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → 𝑟(le‘𝐾)(𝑃 𝑄))
744, 5, 26, 7hlexch1 35452 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑟𝐴𝑄𝐴𝑃𝐵) ∧ ¬ 𝑟(le‘𝐾)𝑃) → (𝑟(le‘𝐾)(𝑃 𝑄) → 𝑄(le‘𝐾)(𝑃 𝑟)))
75743expia 1154 . . . . . . . . . . . . . . 15 ((𝐾 ∈ HL ∧ (𝑟𝐴𝑄𝐴𝑃𝐵)) → (¬ 𝑟(le‘𝐾)𝑃 → (𝑟(le‘𝐾)(𝑃 𝑄) → 𝑄(le‘𝐾)(𝑃 𝑟))))
7675impd 400 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ (𝑟𝐴𝑄𝐴𝑃𝐵)) → ((¬ 𝑟(le‘𝐾)𝑃𝑟(le‘𝐾)(𝑃 𝑄)) → 𝑄(le‘𝐾)(𝑃 𝑟)))
7723, 13, 56, 35, 76syl13anc 1495 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → ((¬ 𝑟(le‘𝐾)𝑃𝑟(le‘𝐾)(𝑃 𝑄)) → 𝑄(le‘𝐾)(𝑃 𝑟)))
7877adantr 474 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → ((¬ 𝑟(le‘𝐾)𝑃𝑟(le‘𝐾)(𝑃 𝑄)) → 𝑄(le‘𝐾)(𝑃 𝑟)))
7953, 73, 78mp2and 690 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → 𝑄(le‘𝐾)(𝑃 𝑟))
804, 26latjcl 17411 . . . . . . . . . . . . . 14 ((𝐾 ∈ Lat ∧ 𝑃𝐵𝑟𝐵) → (𝑃 𝑟) ∈ 𝐵)
8133, 35, 25, 80syl3anc 1494 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑃 𝑟) ∈ 𝐵)
824, 5, 26latjle12 17422 . . . . . . . . . . . . 13 ((𝐾 ∈ Lat ∧ (𝑃𝐵𝑄𝐵 ∧ (𝑃 𝑟) ∈ 𝐵)) → ((𝑃(le‘𝐾)(𝑃 𝑟) ∧ 𝑄(le‘𝐾)(𝑃 𝑟)) ↔ (𝑃 𝑄)(le‘𝐾)(𝑃 𝑟)))
8333, 35, 58, 81, 82syl13anc 1495 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → ((𝑃(le‘𝐾)(𝑃 𝑟) ∧ 𝑄(le‘𝐾)(𝑃 𝑟)) ↔ (𝑃 𝑄)(le‘𝐾)(𝑃 𝑟)))
8483adantr 474 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → ((𝑃(le‘𝐾)(𝑃 𝑟) ∧ 𝑄(le‘𝐾)(𝑃 𝑟)) ↔ (𝑃 𝑄)(le‘𝐾)(𝑃 𝑟)))
8543, 79, 84mpbi2and 703 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → (𝑃 𝑄)(le‘𝐾)(𝑃 𝑟))
865, 26, 7hlatlej1 35445 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → 𝑃(le‘𝐾)(𝑃 𝑄))
8723, 12, 56, 86syl3anc 1494 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → 𝑃(le‘𝐾)(𝑃 𝑄))
8887adantr 474 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → 𝑃(le‘𝐾)(𝑃 𝑄))
894, 5, 26latjle12 17422 . . . . . . . . . . . . 13 ((𝐾 ∈ Lat ∧ (𝑃𝐵𝑟𝐵 ∧ (𝑃 𝑄) ∈ 𝐵)) → ((𝑃(le‘𝐾)(𝑃 𝑄) ∧ 𝑟(le‘𝐾)(𝑃 𝑄)) ↔ (𝑃 𝑟)(le‘𝐾)(𝑃 𝑄)))
9033, 35, 25, 60, 89syl13anc 1495 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → ((𝑃(le‘𝐾)(𝑃 𝑄) ∧ 𝑟(le‘𝐾)(𝑃 𝑄)) ↔ (𝑃 𝑟)(le‘𝐾)(𝑃 𝑄)))
9190adantr 474 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → ((𝑃(le‘𝐾)(𝑃 𝑄) ∧ 𝑟(le‘𝐾)(𝑃 𝑄)) ↔ (𝑃 𝑟)(le‘𝐾)(𝑃 𝑄)))
9288, 73, 91mpbi2and 703 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → (𝑃 𝑟)(le‘𝐾)(𝑃 𝑄))
9333, 60, 813jca 1162 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝐾 ∈ Lat ∧ (𝑃 𝑄) ∈ 𝐵 ∧ (𝑃 𝑟) ∈ 𝐵))
9493adantr 474 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → (𝐾 ∈ Lat ∧ (𝑃 𝑄) ∈ 𝐵 ∧ (𝑃 𝑟) ∈ 𝐵))
954, 5latasymb 17414 . . . . . . . . . . 11 ((𝐾 ∈ Lat ∧ (𝑃 𝑄) ∈ 𝐵 ∧ (𝑃 𝑟) ∈ 𝐵) → (((𝑃 𝑄)(le‘𝐾)(𝑃 𝑟) ∧ (𝑃 𝑟)(le‘𝐾)(𝑃 𝑄)) ↔ (𝑃 𝑄) = (𝑃 𝑟)))
9694, 95syl 17 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → (((𝑃 𝑄)(le‘𝐾)(𝑃 𝑟) ∧ (𝑃 𝑟)(le‘𝐾)(𝑃 𝑄)) ↔ (𝑃 𝑄) = (𝑃 𝑟)))
9785, 92, 96mpbi2and 703 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → (𝑃 𝑄) = (𝑃 𝑟))
98 breq2 4879 . . . . . . . . . . . 12 ((𝑃 𝑄) = (𝑃 𝑟) → (𝑋 < (𝑃 𝑄) ↔ 𝑋 < (𝑃 𝑟)))
9998biimpcd 241 . . . . . . . . . . 11 (𝑋 < (𝑃 𝑄) → ((𝑃 𝑄) = (𝑃 𝑟) → 𝑋 < (𝑃 𝑟)))
10099adantr 474 . . . . . . . . . 10 ((𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋) → ((𝑃 𝑄) = (𝑃 𝑟) → 𝑋 < (𝑃 𝑟)))
101100ad2antll 720 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → ((𝑃 𝑄) = (𝑃 𝑟) → 𝑋 < (𝑃 𝑟)))
10297, 101mpd 15 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → 𝑋 < (𝑃 𝑟))
1034, 5, 62, 27cvrnbtwn3 35346 . . . . . . . . . . . . . . 15 ((𝐾 ∈ Poset ∧ (𝑟𝐵 ∧ (𝑃 𝑟) ∈ 𝐵𝑋𝐵) ∧ 𝑟( ⋖ ‘𝐾)(𝑃 𝑟)) → ((𝑟(le‘𝐾)𝑋𝑋 < (𝑃 𝑟)) ↔ 𝑟 = 𝑋))
104103biimpd 221 . . . . . . . . . . . . . 14 ((𝐾 ∈ Poset ∧ (𝑟𝐵 ∧ (𝑃 𝑟) ∈ 𝐵𝑋𝐵) ∧ 𝑟( ⋖ ‘𝐾)(𝑃 𝑟)) → ((𝑟(le‘𝐾)𝑋𝑋 < (𝑃 𝑟)) → 𝑟 = 𝑋))
1051043expia 1154 . . . . . . . . . . . . 13 ((𝐾 ∈ Poset ∧ (𝑟𝐵 ∧ (𝑃 𝑟) ∈ 𝐵𝑋𝐵)) → (𝑟( ⋖ ‘𝐾)(𝑃 𝑟) → ((𝑟(le‘𝐾)𝑋𝑋 < (𝑃 𝑟)) → 𝑟 = 𝑋)))
10668, 25, 81, 55, 105syl13anc 1495 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟( ⋖ ‘𝐾)(𝑃 𝑟) → ((𝑟(le‘𝐾)𝑋𝑋 < (𝑃 𝑟)) → 𝑟 = 𝑋)))
107106exp4a 424 . . . . . . . . . . 11 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟( ⋖ ‘𝐾)(𝑃 𝑟) → (𝑟(le‘𝐾)𝑋 → (𝑋 < (𝑃 𝑟) → 𝑟 = 𝑋))))
108107com23 86 . . . . . . . . . 10 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟(le‘𝐾)𝑋 → (𝑟( ⋖ ‘𝐾)(𝑃 𝑟) → (𝑋 < (𝑃 𝑟) → 𝑟 = 𝑋))))
109108imp4b 414 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ 𝑟(le‘𝐾)𝑋) → ((𝑟( ⋖ ‘𝐾)(𝑃 𝑟) ∧ 𝑋 < (𝑃 𝑟)) → 𝑟 = 𝑋))
110109adantrr 708 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → ((𝑟( ⋖ ‘𝐾)(𝑃 𝑟) ∧ 𝑋 < (𝑃 𝑟)) → 𝑟 = 𝑋))
11140, 102, 110mp2and 690 . . . . . . 7 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → 𝑟 = 𝑋)
112 simpl3 1250 . . . . . . 7 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → 𝑟𝐴)
113111, 112eqeltrrd 2907 . . . . . 6 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) ∧ (𝑟(le‘𝐾)𝑋 ∧ (𝑋 < (𝑃 𝑄) ∧ ¬ 𝑃(le‘𝐾)𝑋))) → 𝑋𝐴)
114113exp45 431 . . . . 5 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴) ∧ 𝑟𝐴) → (𝑟(le‘𝐾)𝑋 → (𝑋 < (𝑃 𝑄) → (¬ 𝑃(le‘𝐾)𝑋𝑋𝐴))))
1151143expa 1151 . . . 4 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ 𝑟𝐴) → (𝑟(le‘𝐾)𝑋 → (𝑋 < (𝑃 𝑄) → (¬ 𝑃(le‘𝐾)𝑋𝑋𝐴))))
116115rexlimdva 3240 . . 3 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (∃𝑟𝐴 𝑟(le‘𝐾)𝑋 → (𝑋 < (𝑃 𝑄) → (¬ 𝑃(le‘𝐾)𝑋𝑋𝐴))))
11710, 116syld 47 . 2 ((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) → (𝑋0 → (𝑋 < (𝑃 𝑄) → (¬ 𝑃(le‘𝐾)𝑋𝑋𝐴))))
118117imp32 411 1 (((𝐾 ∈ HL ∧ (𝑋𝐵𝑃𝐴𝑄𝐴)) ∧ (𝑋0𝑋 < (𝑃 𝑄))) → (¬ 𝑃(le‘𝐾)𝑋𝑋𝐴))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 198  wa 386  w3a 1111   = wceq 1656  wcel 2164  wne 2999  wrex 3118   class class class wbr 4875  cfv 6127  (class class class)co 6910  Basecbs 16229  lecple 16319  Posetcpo 17300  ltcplt 17301  joincjn 17304  0.cp0 17397  Latclat 17405  ccvr 35332  Atomscatm 35333  AtLatcal 35334  HLchlt 35420
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1894  ax-4 1908  ax-5 2009  ax-6 2075  ax-7 2112  ax-8 2166  ax-9 2173  ax-10 2192  ax-11 2207  ax-12 2220  ax-13 2389  ax-ext 2803  ax-rep 4996  ax-sep 5007  ax-nul 5015  ax-pow 5067  ax-pr 5129  ax-un 7214
This theorem depends on definitions:  df-bi 199  df-an 387  df-or 879  df-3an 1113  df-tru 1660  df-ex 1879  df-nf 1883  df-sb 2068  df-mo 2605  df-eu 2640  df-clab 2812  df-cleq 2818  df-clel 2821  df-nfc 2958  df-ne 3000  df-ral 3122  df-rex 3123  df-reu 3124  df-rab 3126  df-v 3416  df-sbc 3663  df-csb 3758  df-dif 3801  df-un 3803  df-in 3805  df-ss 3812  df-nul 4147  df-if 4309  df-pw 4382  df-sn 4400  df-pr 4402  df-op 4406  df-uni 4661  df-iun 4744  df-br 4876  df-opab 4938  df-mpt 4955  df-id 5252  df-xp 5352  df-rel 5353  df-cnv 5354  df-co 5355  df-dm 5356  df-rn 5357  df-res 5358  df-ima 5359  df-iota 6090  df-fun 6129  df-fn 6130  df-f 6131  df-f1 6132  df-fo 6133  df-f1o 6134  df-fv 6135  df-riota 6871  df-ov 6913  df-oprab 6914  df-proset 17288  df-poset 17306  df-plt 17318  df-lub 17334  df-glb 17335  df-join 17336  df-meet 17337  df-p0 17399  df-lat 17406  df-clat 17468  df-oposet 35246  df-ol 35248  df-oml 35249  df-covers 35336  df-ats 35337  df-atl 35368  df-cvlat 35392  df-hlat 35421
This theorem is referenced by:  cvrat  35492
  Copyright terms: Public domain W3C validator