Theorem osumcllem1N 40332

Description: Lemma for osumclN 40343. (Contributed by NM, 25-Mar-2012.) (New usage is discouraged.)

Hypotheses

Ref	Expression
osumcllem.l	⊢ ≤ = (le‘𝐾)
osumcllem.j	⊢ ∨ = (join‘𝐾)
osumcllem.a	⊢ 𝐴 = (Atoms‘𝐾)
osumcllem.p	⊢ + = (+𝑃‘𝐾)
osumcllem.o	⊢ ⊥ = (⊥𝑃‘𝐾)
osumcllem.c	⊢ 𝐶 = (PSubCl‘𝐾)
osumcllem.m	⊢ 𝑀 = (𝑋 + {𝑝})
osumcllem.u	⊢ 𝑈 = ( ⊥ ‘( ⊥ ‘(𝑋 + 𝑌)))

Assertion

Ref	Expression
osumcllem1N	⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → (𝑈 ∩ 𝑀) = 𝑀)

Proof of Theorem osumcllem1N

Step	Hyp	Ref	Expression
1		osumcllem.m	. . 3 ⊢ 𝑀 = (𝑋 + {𝑝})
2		osumcllem.a	. . . . . . 7 ⊢ 𝐴 = (Atoms‘𝐾)
3		osumcllem.p	. . . . . . 7 ⊢ + = (+𝑃‘𝐾)
4	2, 3	sspadd1 40191	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → 𝑋 ⊆ (𝑋 + 𝑌))
5	4	adantr 480	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → 𝑋 ⊆ (𝑋 + 𝑌))
6		simpl1 1193	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → 𝐾 ∈ HL)
7	2, 3	paddssat 40190	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → (𝑋 + 𝑌) ⊆ 𝐴)
8	7	adantr 480	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → (𝑋 + 𝑌) ⊆ 𝐴)
9		osumcllem.o	. . . . . . . 8 ⊢ ⊥ = (⊥𝑃‘𝐾)
10	2, 9	2polssN 40291	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ (𝑋 + 𝑌) ⊆ 𝐴) → (𝑋 + 𝑌) ⊆ ( ⊥ ‘( ⊥ ‘(𝑋 + 𝑌))))
11	6, 8, 10	syl2anc 585	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → (𝑋 + 𝑌) ⊆ ( ⊥ ‘( ⊥ ‘(𝑋 + 𝑌))))
12		osumcllem.u	. . . . . 6 ⊢ 𝑈 = ( ⊥ ‘( ⊥ ‘(𝑋 + 𝑌)))
13	11, 12	sseqtrrdi 3977	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → (𝑋 + 𝑌) ⊆ 𝑈)
14	5, 13	sstrd 3946	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → 𝑋 ⊆ 𝑈)
15		simpr 484	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → 𝑝 ∈ 𝑈)
16	15	snssd 4767	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → {𝑝} ⊆ 𝑈)
17		simpl2 1194	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → 𝑋 ⊆ 𝐴)
18	2, 9	polssatN 40284	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ (𝑋 + 𝑌) ⊆ 𝐴) → ( ⊥ ‘(𝑋 + 𝑌)) ⊆ 𝐴)
19	6, 8, 18	syl2anc 585	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → ( ⊥ ‘(𝑋 + 𝑌)) ⊆ 𝐴)
20	2, 9	polssatN 40284	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ ( ⊥ ‘(𝑋 + 𝑌)) ⊆ 𝐴) → ( ⊥ ‘( ⊥ ‘(𝑋 + 𝑌))) ⊆ 𝐴)
21	6, 19, 20	syl2anc 585	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → ( ⊥ ‘( ⊥ ‘(𝑋 + 𝑌))) ⊆ 𝐴)
22	12, 21	eqsstrid 3974	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → 𝑈 ⊆ 𝐴)
23	16, 22	sstrd 3946	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → {𝑝} ⊆ 𝐴)
24		eqid 2737	. . . . . . . 8 ⊢ (PSubSp‘𝐾) = (PSubSp‘𝐾)
25	2, 24, 9	polsubN 40283	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ ( ⊥ ‘(𝑋 + 𝑌)) ⊆ 𝐴) → ( ⊥ ‘( ⊥ ‘(𝑋 + 𝑌))) ∈ (PSubSp‘𝐾))
26	6, 19, 25	syl2anc 585	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → ( ⊥ ‘( ⊥ ‘(𝑋 + 𝑌))) ∈ (PSubSp‘𝐾))
27	12, 26	eqeltrid 2841	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → 𝑈 ∈ (PSubSp‘𝐾))
28	2, 24, 3	paddss 40221	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ⊆ 𝐴 ∧ {𝑝} ⊆ 𝐴 ∧ 𝑈 ∈ (PSubSp‘𝐾))) → ((𝑋 ⊆ 𝑈 ∧ {𝑝} ⊆ 𝑈) ↔ (𝑋 + {𝑝}) ⊆ 𝑈))
29	6, 17, 23, 27, 28	syl13anc 1375	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → ((𝑋 ⊆ 𝑈 ∧ {𝑝} ⊆ 𝑈) ↔ (𝑋 + {𝑝}) ⊆ 𝑈))
30	14, 16, 29	mpbi2and 713	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → (𝑋 + {𝑝}) ⊆ 𝑈)
31	1, 30	eqsstrid 3974	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → 𝑀 ⊆ 𝑈)
32		sseqin2 4177	. 2 ⊢ (𝑀 ⊆ 𝑈 ↔ (𝑈 ∩ 𝑀) = 𝑀)
33	31, 32	sylib 218	1 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ 𝑝 ∈ 𝑈) → (𝑈 ∩ 𝑀) = 𝑀)

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114   ∩ cin 3902   ⊆ wss 3903  {csn 4582  ‘cfv 6500  (class class class)co 7368  lecple 17196  joincjn 18246  Atomscatm 39639  HLchlt 39726  PSubSpcpsubsp 39872  +_𝑃cpadd 40171  ⊥_𝑃cpolN 40278  PSubClcpscN 40310

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5226  ax-sep 5243  ax-nul 5253  ax-pow 5312  ax-pr 5379  ax-un 7690

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rmo 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-iun 4950  df-iin 4951  df-br 5101  df-opab 5163  df-mpt 5182  df-id 5527  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-iota 6456  df-fun 6502  df-fn 6503  df-f 6504  df-f1 6505  df-fo 6506  df-f1o 6507  df-fv 6508  df-riota 7325  df-ov 7371  df-oprab 7372  df-mpo 7373  df-1st 7943  df-2nd 7944  df-proset 18229  df-poset 18248  df-plt 18263  df-lub 18279  df-glb 18280  df-join 18281  df-meet 18282  df-p0 18358  df-p1 18359  df-lat 18367  df-clat 18434  df-oposet 39552  df-ol 39554  df-oml 39555  df-covers 39642  df-ats 39643  df-atl 39674  df-cvlat 39698  df-hlat 39727  df-psubsp 39879  df-pmap 39880  df-padd 40172  df-polarityN 40279

This theorem is referenced by:  osumcllem2N  40333  osumcllem9N  40340