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

Theorem pexmidlem6N 35988
Description: Lemma for pexmidN 35982. (Contributed by NM, 3-Feb-2012.) (New usage is discouraged.)
Hypotheses
Ref Expression
pexmidlem.l = (le‘𝐾)
pexmidlem.j = (join‘𝐾)
pexmidlem.a 𝐴 = (Atoms‘𝐾)
pexmidlem.p + = (+𝑃𝐾)
pexmidlem.o = (⊥𝑃𝐾)
pexmidlem.m 𝑀 = (𝑋 + {𝑝})
Assertion
Ref Expression
pexmidlem6N (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → 𝑀 = 𝑋)

Proof of Theorem pexmidlem6N
StepHypRef Expression
1 pexmidlem.l . . . . . . . 8 = (le‘𝐾)
2 pexmidlem.j . . . . . . . 8 = (join‘𝐾)
3 pexmidlem.a . . . . . . . 8 𝐴 = (Atoms‘𝐾)
4 pexmidlem.p . . . . . . . 8 + = (+𝑃𝐾)
5 pexmidlem.o . . . . . . . 8 = (⊥𝑃𝐾)
6 pexmidlem.m . . . . . . . 8 𝑀 = (𝑋 + {𝑝})
71, 2, 3, 4, 5, 6pexmidlem5N 35987 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → (( 𝑋) ∩ 𝑀) = ∅)
873adantr1 1211 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → (( 𝑋) ∩ 𝑀) = ∅)
98fveq2d 6413 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → ( ‘(( 𝑋) ∩ 𝑀)) = ( ‘∅))
10 simpl1 1243 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → 𝐾 ∈ HL)
113, 5pol0N 35922 . . . . . 6 (𝐾 ∈ HL → ( ‘∅) = 𝐴)
1210, 11syl 17 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → ( ‘∅) = 𝐴)
139, 12eqtrd 2831 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → ( ‘(( 𝑋) ∩ 𝑀)) = 𝐴)
1413ineq1d 4009 . . 3 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → (( ‘(( 𝑋) ∩ 𝑀)) ∩ 𝑀) = (𝐴𝑀))
15 simpl2 1245 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → 𝑋𝐴)
16 simpl3 1247 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → 𝑝𝐴)
1716snssd 4526 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → {𝑝} ⊆ 𝐴)
183, 4paddssat 35827 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑋𝐴 ∧ {𝑝} ⊆ 𝐴) → (𝑋 + {𝑝}) ⊆ 𝐴)
1910, 15, 17, 18syl3anc 1491 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → (𝑋 + {𝑝}) ⊆ 𝐴)
206, 19syl5eqss 3843 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → 𝑀𝐴)
2110, 15, 203jca 1159 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → (𝐾 ∈ HL ∧ 𝑋𝐴𝑀𝐴))
223, 4sspadd1 35828 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑋𝐴 ∧ {𝑝} ⊆ 𝐴) → 𝑋 ⊆ (𝑋 + {𝑝}))
2310, 15, 17, 22syl3anc 1491 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → 𝑋 ⊆ (𝑋 + {𝑝}))
2423, 6syl6sseqr 3846 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → 𝑋𝑀)
25 simpr1 1249 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → ( ‘( 𝑋)) = 𝑋)
26 eqid 2797 . . . . . . . . . . 11 (PSubCl‘𝐾) = (PSubCl‘𝐾)
273, 5, 26ispsubclN 35950 . . . . . . . . . 10 (𝐾 ∈ HL → (𝑋 ∈ (PSubCl‘𝐾) ↔ (𝑋𝐴 ∧ ( ‘( 𝑋)) = 𝑋)))
2810, 27syl 17 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → (𝑋 ∈ (PSubCl‘𝐾) ↔ (𝑋𝐴 ∧ ( ‘( 𝑋)) = 𝑋)))
2915, 25, 28mpbir2and 705 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → 𝑋 ∈ (PSubCl‘𝐾))
303, 4, 26paddatclN 35962 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑋 ∈ (PSubCl‘𝐾) ∧ 𝑝𝐴) → (𝑋 + {𝑝}) ∈ (PSubCl‘𝐾))
3110, 29, 16, 30syl3anc 1491 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → (𝑋 + {𝑝}) ∈ (PSubCl‘𝐾))
326, 31syl5eqel 2880 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → 𝑀 ∈ (PSubCl‘𝐾))
335, 26psubcli2N 35952 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑀 ∈ (PSubCl‘𝐾)) → ( ‘( 𝑀)) = 𝑀)
3410, 32, 33syl2anc 580 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → ( ‘( 𝑀)) = 𝑀)
3524, 34jca 508 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → (𝑋𝑀 ∧ ( ‘( 𝑀)) = 𝑀))
363, 5poml4N 35966 . . . 4 ((𝐾 ∈ HL ∧ 𝑋𝐴𝑀𝐴) → ((𝑋𝑀 ∧ ( ‘( 𝑀)) = 𝑀) → (( ‘(( 𝑋) ∩ 𝑀)) ∩ 𝑀) = ( ‘( 𝑋))))
3721, 35, 36sylc 65 . . 3 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → (( ‘(( 𝑋) ∩ 𝑀)) ∩ 𝑀) = ( ‘( 𝑋)))
38 sseqin2 4013 . . . 4 (𝑀𝐴 ↔ (𝐴𝑀) = 𝑀)
3920, 38sylib 210 . . 3 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → (𝐴𝑀) = 𝑀)
4014, 37, 393eqtr3rd 2840 . 2 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → 𝑀 = ( ‘( 𝑋)))
4140, 25eqtrd 2831 1 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑝𝐴) ∧ (( ‘( 𝑋)) = 𝑋𝑋 ≠ ∅ ∧ ¬ 𝑝 ∈ (𝑋 + ( 𝑋)))) → 𝑀 = 𝑋)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 198  wa 385  w3a 1108   = wceq 1653  wcel 2157  wne 2969  cin 3766  wss 3767  c0 4113  {csn 4366  cfv 6099  (class class class)co 6876  lecple 16271  joincjn 17256  Atomscatm 35276  HLchlt 35363  +𝑃cpadd 35808  𝑃cpolN 35915  PSubClcpscN 35947
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1891  ax-4 1905  ax-5 2006  ax-6 2072  ax-7 2107  ax-8 2159  ax-9 2166  ax-10 2185  ax-11 2200  ax-12 2213  ax-13 2354  ax-ext 2775  ax-rep 4962  ax-sep 4973  ax-nul 4981  ax-pow 5033  ax-pr 5095  ax-un 7181  ax-riotaBAD 34966
This theorem depends on definitions:  df-bi 199  df-an 386  df-or 875  df-3an 1110  df-tru 1657  df-ex 1876  df-nf 1880  df-sb 2065  df-mo 2590  df-eu 2607  df-clab 2784  df-cleq 2790  df-clel 2793  df-nfc 2928  df-ne 2970  df-nel 3073  df-ral 3092  df-rex 3093  df-reu 3094  df-rmo 3095  df-rab 3096  df-v 3385  df-sbc 3632  df-csb 3727  df-dif 3770  df-un 3772  df-in 3774  df-ss 3781  df-nul 4114  df-if 4276  df-pw 4349  df-sn 4367  df-pr 4369  df-op 4373  df-uni 4627  df-iun 4710  df-iin 4711  df-br 4842  df-opab 4904  df-mpt 4921  df-id 5218  df-xp 5316  df-rel 5317  df-cnv 5318  df-co 5319  df-dm 5320  df-rn 5321  df-res 5322  df-ima 5323  df-iota 6062  df-fun 6101  df-fn 6102  df-f 6103  df-f1 6104  df-fo 6105  df-f1o 6106  df-fv 6107  df-riota 6837  df-ov 6879  df-oprab 6880  df-mpt2 6881  df-1st 7399  df-2nd 7400  df-undef 7635  df-proset 17240  df-poset 17258  df-plt 17270  df-lub 17286  df-glb 17287  df-join 17288  df-meet 17289  df-p0 17351  df-p1 17352  df-lat 17358  df-clat 17420  df-oposet 35189  df-ol 35191  df-oml 35192  df-covers 35279  df-ats 35280  df-atl 35311  df-cvlat 35335  df-hlat 35364  df-psubsp 35516  df-pmap 35517  df-padd 35809  df-polarityN 35916  df-psubclN 35948
This theorem is referenced by:  pexmidlem8N  35990
  Copyright terms: Public domain W3C validator