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

Theorem paddasslem5 39767
Description: Lemma for paddass 39781. Show 𝑠𝑧 by contradiction. (Contributed by NM, 8-Jan-2012.)
Hypotheses
Ref Expression
paddasslem.l = (le‘𝐾)
paddasslem.j = (join‘𝐾)
paddasslem.a 𝐴 = (Atoms‘𝐾)
Assertion
Ref Expression
paddasslem5 (((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ (¬ 𝑟 (𝑥 𝑦) ∧ 𝑟 (𝑦 𝑧) ∧ 𝑠 (𝑥 𝑦))) → 𝑠𝑧)

Proof of Theorem paddasslem5
StepHypRef Expression
1 breq1 5128 . . . . . . . . 9 (𝑠 = 𝑧 → (𝑠 (𝑥 𝑦) ↔ 𝑧 (𝑥 𝑦)))
21biimpac 478 . . . . . . . 8 ((𝑠 (𝑥 𝑦) ∧ 𝑠 = 𝑧) → 𝑧 (𝑥 𝑦))
3 eqid 2734 . . . . . . . . . 10 (Base‘𝐾) = (Base‘𝐾)
4 paddasslem.l . . . . . . . . . 10 = (le‘𝐾)
5 simpll1 1212 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑧 (𝑥 𝑦)) → 𝐾 ∈ HL)
65hllatd 39306 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑧 (𝑥 𝑦)) → 𝐾 ∈ Lat)
7 simpll2 1213 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑧 (𝑥 𝑦)) → 𝑟𝐴)
8 paddasslem.a . . . . . . . . . . . 12 𝐴 = (Atoms‘𝐾)
93, 8atbase 39231 . . . . . . . . . . 11 (𝑟𝐴𝑟 ∈ (Base‘𝐾))
107, 9syl 17 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑧 (𝑥 𝑦)) → 𝑟 ∈ (Base‘𝐾))
11 simp32 1210 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) → 𝑦𝐴)
1211ad2antrr 726 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑧 (𝑥 𝑦)) → 𝑦𝐴)
133, 8atbase 39231 . . . . . . . . . . . 12 (𝑦𝐴𝑦 ∈ (Base‘𝐾))
1412, 13syl 17 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑧 (𝑥 𝑦)) → 𝑦 ∈ (Base‘𝐾))
15 simp33 1211 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) → 𝑧𝐴)
1615ad2antrr 726 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑧 (𝑥 𝑦)) → 𝑧𝐴)
173, 8atbase 39231 . . . . . . . . . . . 12 (𝑧𝐴𝑧 ∈ (Base‘𝐾))
1816, 17syl 17 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑧 (𝑥 𝑦)) → 𝑧 ∈ (Base‘𝐾))
19 paddasslem.j . . . . . . . . . . . 12 = (join‘𝐾)
203, 19latjcl 18458 . . . . . . . . . . 11 ((𝐾 ∈ Lat ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) → (𝑦 𝑧) ∈ (Base‘𝐾))
216, 14, 18, 20syl3anc 1372 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑧 (𝑥 𝑦)) → (𝑦 𝑧) ∈ (Base‘𝐾))
22 simp31 1209 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) → 𝑥𝐴)
2322ad2antrr 726 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑧 (𝑥 𝑦)) → 𝑥𝐴)
243, 8atbase 39231 . . . . . . . . . . . 12 (𝑥𝐴𝑥 ∈ (Base‘𝐾))
2523, 24syl 17 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑧 (𝑥 𝑦)) → 𝑥 ∈ (Base‘𝐾))
263, 19latjcl 18458 . . . . . . . . . . 11 ((𝐾 ∈ Lat ∧ 𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) → (𝑥 𝑦) ∈ (Base‘𝐾))
276, 25, 14, 26syl3anc 1372 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑧 (𝑥 𝑦)) → (𝑥 𝑦) ∈ (Base‘𝐾))
28 simplr 768 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑧 (𝑥 𝑦)) → 𝑟 (𝑦 𝑧))
294, 19, 8hlatlej2 39318 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ 𝑥𝐴𝑦𝐴) → 𝑦 (𝑥 𝑦))
305, 23, 12, 29syl3anc 1372 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑧 (𝑥 𝑦)) → 𝑦 (𝑥 𝑦))
31 simpr 484 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑧 (𝑥 𝑦)) → 𝑧 (𝑥 𝑦))
323, 4, 19latjle12 18469 . . . . . . . . . . . . 13 ((𝐾 ∈ Lat ∧ (𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾) ∧ (𝑥 𝑦) ∈ (Base‘𝐾))) → ((𝑦 (𝑥 𝑦) ∧ 𝑧 (𝑥 𝑦)) ↔ (𝑦 𝑧) (𝑥 𝑦)))
3332biimpd 229 . . . . . . . . . . . 12 ((𝐾 ∈ Lat ∧ (𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾) ∧ (𝑥 𝑦) ∈ (Base‘𝐾))) → ((𝑦 (𝑥 𝑦) ∧ 𝑧 (𝑥 𝑦)) → (𝑦 𝑧) (𝑥 𝑦)))
346, 14, 18, 27, 33syl13anc 1373 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑧 (𝑥 𝑦)) → ((𝑦 (𝑥 𝑦) ∧ 𝑧 (𝑥 𝑦)) → (𝑦 𝑧) (𝑥 𝑦)))
3530, 31, 34mp2and 699 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑧 (𝑥 𝑦)) → (𝑦 𝑧) (𝑥 𝑦))
363, 4, 6, 10, 21, 27, 28, 35lattrd 18465 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑧 (𝑥 𝑦)) → 𝑟 (𝑥 𝑦))
3736ex 412 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) → (𝑧 (𝑥 𝑦) → 𝑟 (𝑥 𝑦)))
382, 37syl5 34 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) → ((𝑠 (𝑥 𝑦) ∧ 𝑠 = 𝑧) → 𝑟 (𝑥 𝑦)))
3938expdimp 452 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑠 (𝑥 𝑦)) → (𝑠 = 𝑧𝑟 (𝑥 𝑦)))
4039necon3bd 2945 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ 𝑟 (𝑦 𝑧)) ∧ 𝑠 (𝑥 𝑦)) → (¬ 𝑟 (𝑥 𝑦) → 𝑠𝑧))
4140exp31 419 . . . 4 ((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) → (𝑟 (𝑦 𝑧) → (𝑠 (𝑥 𝑦) → (¬ 𝑟 (𝑥 𝑦) → 𝑠𝑧))))
4241com23 86 . . 3 ((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) → (𝑠 (𝑥 𝑦) → (𝑟 (𝑦 𝑧) → (¬ 𝑟 (𝑥 𝑦) → 𝑠𝑧))))
4342com24 95 . 2 ((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) → (¬ 𝑟 (𝑥 𝑦) → (𝑟 (𝑦 𝑧) → (𝑠 (𝑥 𝑦) → 𝑠𝑧))))
44433imp2 1349 1 (((𝐾 ∈ HL ∧ 𝑟𝐴 ∧ (𝑥𝐴𝑦𝐴𝑧𝐴)) ∧ (¬ 𝑟 (𝑥 𝑦) ∧ 𝑟 (𝑦 𝑧) ∧ 𝑠 (𝑥 𝑦))) → 𝑠𝑧)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395  w3a 1086   = wceq 1539  wcel 2107  wne 2931   class class class wbr 5125  cfv 6542  (class class class)co 7414  Basecbs 17230  lecple 17284  joincjn 18332  Latclat 18450  Atomscatm 39205  HLchlt 39292
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1794  ax-4 1808  ax-5 1909  ax-6 1966  ax-7 2006  ax-8 2109  ax-9 2117  ax-10 2140  ax-11 2156  ax-12 2176  ax-ext 2706  ax-rep 5261  ax-sep 5278  ax-nul 5288  ax-pow 5347  ax-pr 5414  ax-un 7738
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1779  df-nf 1783  df-sb 2064  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2808  df-nfc 2884  df-ne 2932  df-ral 3051  df-rex 3060  df-rmo 3364  df-reu 3365  df-rab 3421  df-v 3466  df-sbc 3773  df-csb 3882  df-dif 3936  df-un 3938  df-in 3940  df-ss 3950  df-nul 4316  df-if 4508  df-pw 4584  df-sn 4609  df-pr 4611  df-op 4615  df-uni 4890  df-iun 4975  df-br 5126  df-opab 5188  df-mpt 5208  df-id 5560  df-xp 5673  df-rel 5674  df-cnv 5675  df-co 5676  df-dm 5677  df-rn 5678  df-res 5679  df-ima 5680  df-iota 6495  df-fun 6544  df-fn 6545  df-f 6546  df-f1 6547  df-fo 6548  df-f1o 6549  df-fv 6550  df-riota 7371  df-ov 7417  df-oprab 7418  df-poset 18334  df-lub 18365  df-glb 18366  df-join 18367  df-meet 18368  df-lat 18451  df-ats 39209  df-atl 39240  df-cvlat 39264  df-hlat 39293
This theorem is referenced by:  paddasslem7  39769
  Copyright terms: Public domain W3C validator