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

Theorem hlsuprexch 37158
Description: A Hilbert lattice has the superposition and exchange properties. (Contributed by NM, 13-Nov-2011.)
Hypotheses
Ref Expression
hlsuprexch.b 𝐵 = (Base‘𝐾)
hlsuprexch.l = (le‘𝐾)
hlsuprexch.j = (join‘𝐾)
hlsuprexch.a 𝐴 = (Atoms‘𝐾)
Assertion
Ref Expression
hlsuprexch ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → ((𝑃𝑄 → ∃𝑧𝐴 (𝑧𝑃𝑧𝑄𝑧 (𝑃 𝑄))) ∧ ∀𝑧𝐵 ((¬ 𝑃 𝑧𝑃 (𝑧 𝑄)) → 𝑄 (𝑧 𝑃))))
Distinct variable groups:   𝑧,𝐴   𝑧,𝐵   𝑧,𝐾   𝑧,𝑃   𝑧,𝑄
Allowed substitution hints:   (𝑧)   (𝑧)

Proof of Theorem hlsuprexch
Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 hlsuprexch.b . . . . 5 𝐵 = (Base‘𝐾)
2 hlsuprexch.l . . . . 5 = (le‘𝐾)
3 eqid 2738 . . . . 5 (lt‘𝐾) = (lt‘𝐾)
4 hlsuprexch.j . . . . 5 = (join‘𝐾)
5 eqid 2738 . . . . 5 (0.‘𝐾) = (0.‘𝐾)
6 eqid 2738 . . . . 5 (1.‘𝐾) = (1.‘𝐾)
7 hlsuprexch.a . . . . 5 𝐴 = (Atoms‘𝐾)
81, 2, 3, 4, 5, 6, 7ishlat2 37130 . . . 4 (𝐾 ∈ HL ↔ ((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ (∀𝑥𝐴𝑦𝐴 ((𝑥𝑦 → ∃𝑧𝐴 (𝑧𝑥𝑧𝑦𝑧 (𝑥 𝑦))) ∧ ∀𝑧𝐵 ((¬ 𝑥 𝑧𝑥 (𝑧 𝑦)) → 𝑦 (𝑧 𝑥))) ∧ ∃𝑥𝐵𝑦𝐵𝑧𝐵 (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))))))
9 simprl 771 . . . 4 (((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ AtLat) ∧ (∀𝑥𝐴𝑦𝐴 ((𝑥𝑦 → ∃𝑧𝐴 (𝑧𝑥𝑧𝑦𝑧 (𝑥 𝑦))) ∧ ∀𝑧𝐵 ((¬ 𝑥 𝑧𝑥 (𝑧 𝑦)) → 𝑦 (𝑧 𝑥))) ∧ ∃𝑥𝐵𝑦𝐵𝑧𝐵 (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))))) → ∀𝑥𝐴𝑦𝐴 ((𝑥𝑦 → ∃𝑧𝐴 (𝑧𝑥𝑧𝑦𝑧 (𝑥 𝑦))) ∧ ∀𝑧𝐵 ((¬ 𝑥 𝑧𝑥 (𝑧 𝑦)) → 𝑦 (𝑧 𝑥))))
108, 9sylbi 220 . . 3 (𝐾 ∈ HL → ∀𝑥𝐴𝑦𝐴 ((𝑥𝑦 → ∃𝑧𝐴 (𝑧𝑥𝑧𝑦𝑧 (𝑥 𝑦))) ∧ ∀𝑧𝐵 ((¬ 𝑥 𝑧𝑥 (𝑧 𝑦)) → 𝑦 (𝑧 𝑥))))
11 neeq1 3004 . . . . . 6 (𝑥 = 𝑃 → (𝑥𝑦𝑃𝑦))
12 neeq2 3005 . . . . . . . 8 (𝑥 = 𝑃 → (𝑧𝑥𝑧𝑃))
13 oveq1 7238 . . . . . . . . 9 (𝑥 = 𝑃 → (𝑥 𝑦) = (𝑃 𝑦))
1413breq2d 5079 . . . . . . . 8 (𝑥 = 𝑃 → (𝑧 (𝑥 𝑦) ↔ 𝑧 (𝑃 𝑦)))
1512, 143anbi13d 1440 . . . . . . 7 (𝑥 = 𝑃 → ((𝑧𝑥𝑧𝑦𝑧 (𝑥 𝑦)) ↔ (𝑧𝑃𝑧𝑦𝑧 (𝑃 𝑦))))
1615rexbidv 3224 . . . . . 6 (𝑥 = 𝑃 → (∃𝑧𝐴 (𝑧𝑥𝑧𝑦𝑧 (𝑥 𝑦)) ↔ ∃𝑧𝐴 (𝑧𝑃𝑧𝑦𝑧 (𝑃 𝑦))))
1711, 16imbi12d 348 . . . . 5 (𝑥 = 𝑃 → ((𝑥𝑦 → ∃𝑧𝐴 (𝑧𝑥𝑧𝑦𝑧 (𝑥 𝑦))) ↔ (𝑃𝑦 → ∃𝑧𝐴 (𝑧𝑃𝑧𝑦𝑧 (𝑃 𝑦)))))
18 breq1 5070 . . . . . . . . 9 (𝑥 = 𝑃 → (𝑥 𝑧𝑃 𝑧))
1918notbid 321 . . . . . . . 8 (𝑥 = 𝑃 → (¬ 𝑥 𝑧 ↔ ¬ 𝑃 𝑧))
20 breq1 5070 . . . . . . . 8 (𝑥 = 𝑃 → (𝑥 (𝑧 𝑦) ↔ 𝑃 (𝑧 𝑦)))
2119, 20anbi12d 634 . . . . . . 7 (𝑥 = 𝑃 → ((¬ 𝑥 𝑧𝑥 (𝑧 𝑦)) ↔ (¬ 𝑃 𝑧𝑃 (𝑧 𝑦))))
22 oveq2 7239 . . . . . . . 8 (𝑥 = 𝑃 → (𝑧 𝑥) = (𝑧 𝑃))
2322breq2d 5079 . . . . . . 7 (𝑥 = 𝑃 → (𝑦 (𝑧 𝑥) ↔ 𝑦 (𝑧 𝑃)))
2421, 23imbi12d 348 . . . . . 6 (𝑥 = 𝑃 → (((¬ 𝑥 𝑧𝑥 (𝑧 𝑦)) → 𝑦 (𝑧 𝑥)) ↔ ((¬ 𝑃 𝑧𝑃 (𝑧 𝑦)) → 𝑦 (𝑧 𝑃))))
2524ralbidv 3119 . . . . 5 (𝑥 = 𝑃 → (∀𝑧𝐵 ((¬ 𝑥 𝑧𝑥 (𝑧 𝑦)) → 𝑦 (𝑧 𝑥)) ↔ ∀𝑧𝐵 ((¬ 𝑃 𝑧𝑃 (𝑧 𝑦)) → 𝑦 (𝑧 𝑃))))
2617, 25anbi12d 634 . . . 4 (𝑥 = 𝑃 → (((𝑥𝑦 → ∃𝑧𝐴 (𝑧𝑥𝑧𝑦𝑧 (𝑥 𝑦))) ∧ ∀𝑧𝐵 ((¬ 𝑥 𝑧𝑥 (𝑧 𝑦)) → 𝑦 (𝑧 𝑥))) ↔ ((𝑃𝑦 → ∃𝑧𝐴 (𝑧𝑃𝑧𝑦𝑧 (𝑃 𝑦))) ∧ ∀𝑧𝐵 ((¬ 𝑃 𝑧𝑃 (𝑧 𝑦)) → 𝑦 (𝑧 𝑃)))))
27 neeq2 3005 . . . . . 6 (𝑦 = 𝑄 → (𝑃𝑦𝑃𝑄))
28 neeq2 3005 . . . . . . . 8 (𝑦 = 𝑄 → (𝑧𝑦𝑧𝑄))
29 oveq2 7239 . . . . . . . . 9 (𝑦 = 𝑄 → (𝑃 𝑦) = (𝑃 𝑄))
3029breq2d 5079 . . . . . . . 8 (𝑦 = 𝑄 → (𝑧 (𝑃 𝑦) ↔ 𝑧 (𝑃 𝑄)))
3128, 303anbi23d 1441 . . . . . . 7 (𝑦 = 𝑄 → ((𝑧𝑃𝑧𝑦𝑧 (𝑃 𝑦)) ↔ (𝑧𝑃𝑧𝑄𝑧 (𝑃 𝑄))))
3231rexbidv 3224 . . . . . 6 (𝑦 = 𝑄 → (∃𝑧𝐴 (𝑧𝑃𝑧𝑦𝑧 (𝑃 𝑦)) ↔ ∃𝑧𝐴 (𝑧𝑃𝑧𝑄𝑧 (𝑃 𝑄))))
3327, 32imbi12d 348 . . . . 5 (𝑦 = 𝑄 → ((𝑃𝑦 → ∃𝑧𝐴 (𝑧𝑃𝑧𝑦𝑧 (𝑃 𝑦))) ↔ (𝑃𝑄 → ∃𝑧𝐴 (𝑧𝑃𝑧𝑄𝑧 (𝑃 𝑄)))))
34 oveq2 7239 . . . . . . . . 9 (𝑦 = 𝑄 → (𝑧 𝑦) = (𝑧 𝑄))
3534breq2d 5079 . . . . . . . 8 (𝑦 = 𝑄 → (𝑃 (𝑧 𝑦) ↔ 𝑃 (𝑧 𝑄)))
3635anbi2d 632 . . . . . . 7 (𝑦 = 𝑄 → ((¬ 𝑃 𝑧𝑃 (𝑧 𝑦)) ↔ (¬ 𝑃 𝑧𝑃 (𝑧 𝑄))))
37 breq1 5070 . . . . . . 7 (𝑦 = 𝑄 → (𝑦 (𝑧 𝑃) ↔ 𝑄 (𝑧 𝑃)))
3836, 37imbi12d 348 . . . . . 6 (𝑦 = 𝑄 → (((¬ 𝑃 𝑧𝑃 (𝑧 𝑦)) → 𝑦 (𝑧 𝑃)) ↔ ((¬ 𝑃 𝑧𝑃 (𝑧 𝑄)) → 𝑄 (𝑧 𝑃))))
3938ralbidv 3119 . . . . 5 (𝑦 = 𝑄 → (∀𝑧𝐵 ((¬ 𝑃 𝑧𝑃 (𝑧 𝑦)) → 𝑦 (𝑧 𝑃)) ↔ ∀𝑧𝐵 ((¬ 𝑃 𝑧𝑃 (𝑧 𝑄)) → 𝑄 (𝑧 𝑃))))
4033, 39anbi12d 634 . . . 4 (𝑦 = 𝑄 → (((𝑃𝑦 → ∃𝑧𝐴 (𝑧𝑃𝑧𝑦𝑧 (𝑃 𝑦))) ∧ ∀𝑧𝐵 ((¬ 𝑃 𝑧𝑃 (𝑧 𝑦)) → 𝑦 (𝑧 𝑃))) ↔ ((𝑃𝑄 → ∃𝑧𝐴 (𝑧𝑃𝑧𝑄𝑧 (𝑃 𝑄))) ∧ ∀𝑧𝐵 ((¬ 𝑃 𝑧𝑃 (𝑧 𝑄)) → 𝑄 (𝑧 𝑃)))))
4126, 40rspc2v 3559 . . 3 ((𝑃𝐴𝑄𝐴) → (∀𝑥𝐴𝑦𝐴 ((𝑥𝑦 → ∃𝑧𝐴 (𝑧𝑥𝑧𝑦𝑧 (𝑥 𝑦))) ∧ ∀𝑧𝐵 ((¬ 𝑥 𝑧𝑥 (𝑧 𝑦)) → 𝑦 (𝑧 𝑥))) → ((𝑃𝑄 → ∃𝑧𝐴 (𝑧𝑃𝑧𝑄𝑧 (𝑃 𝑄))) ∧ ∀𝑧𝐵 ((¬ 𝑃 𝑧𝑃 (𝑧 𝑄)) → 𝑄 (𝑧 𝑃)))))
4210, 41mpan9 510 . 2 ((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴)) → ((𝑃𝑄 → ∃𝑧𝐴 (𝑧𝑃𝑧𝑄𝑧 (𝑃 𝑄))) ∧ ∀𝑧𝐵 ((¬ 𝑃 𝑧𝑃 (𝑧 𝑄)) → 𝑄 (𝑧 𝑃))))
43423impb 1117 1 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → ((𝑃𝑄 → ∃𝑧𝐴 (𝑧𝑃𝑧𝑄𝑧 (𝑃 𝑄))) ∧ ∀𝑧𝐵 ((¬ 𝑃 𝑧𝑃 (𝑧 𝑄)) → 𝑄 (𝑧 𝑃))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 399  w3a 1089   = wceq 1543  wcel 2111  wne 2941  wral 3062  wrex 3063   class class class wbr 5067  cfv 6397  (class class class)co 7231  Basecbs 16784  lecple 16833  ltcplt 17839  joincjn 17842  0.cp0 17953  1.cp1 17954  CLatccla 18028  OMLcoml 36952  Atomscatm 37040  AtLatcal 37041  HLchlt 37127
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2016  ax-8 2113  ax-9 2121  ax-ext 2709
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-sb 2072  df-clab 2716  df-cleq 2730  df-clel 2817  df-ne 2942  df-ral 3067  df-rex 3068  df-rab 3071  df-v 3422  df-dif 3883  df-un 3885  df-in 3887  df-ss 3897  df-nul 4252  df-if 4454  df-sn 4556  df-pr 4558  df-op 4562  df-uni 4834  df-br 5068  df-iota 6355  df-fv 6405  df-ov 7234  df-cvlat 37099  df-hlat 37128
This theorem is referenced by:  hlsupr  37163
  Copyright terms: Public domain W3C validator