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

Theorem cdleme32fva 36215
Description: Part of proof of Lemma D in [Crawley] p. 113. Value of 𝐹 at an atom not under 𝑊. (Contributed by NM, 2-Mar-2013.)
Hypotheses
Ref Expression
cdleme32.b 𝐵 = (Base‘𝐾)
cdleme32.l = (le‘𝐾)
cdleme32.j = (join‘𝐾)
cdleme32.m = (meet‘𝐾)
cdleme32.a 𝐴 = (Atoms‘𝐾)
cdleme32.h 𝐻 = (LHyp‘𝐾)
cdleme32.u 𝑈 = ((𝑃 𝑄) 𝑊)
cdleme32.c 𝐶 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))
cdleme32.d 𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))
cdleme32.e 𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))
cdleme32.i 𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸))
cdleme32.n 𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐶)
cdleme32.o 𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))
cdleme32.f 𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))
Assertion
Ref Expression
cdleme32fva ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → 𝑅 / 𝑥𝑂 = 𝑅 / 𝑠𝑁)
Distinct variable groups:   𝑡,𝑠,𝑥,𝑦,𝑧,𝐴   𝐵,𝑠,𝑡,𝑥,𝑦,𝑧   𝑦,𝐶   𝐷,𝑠,𝑦,𝑧   𝑦,𝐸   𝐻,𝑠,𝑡   ,𝑠,𝑡,𝑥,𝑦,𝑧   𝐾,𝑠,𝑡   ,𝑠,𝑡,𝑥,𝑦,𝑧   ,𝑠,𝑡,𝑥,𝑦,𝑧   𝑥,𝑁,𝑧   𝑃,𝑠,𝑡,𝑥,𝑦,𝑧   𝑄,𝑠,𝑡,𝑥,𝑦,𝑧   𝑈,𝑠,𝑡,𝑥,𝑦,𝑧   𝑊,𝑠,𝑡,𝑥,𝑦,𝑧   𝑅,𝑠,𝑡,𝑦   𝑦,𝐻   𝑦,𝐾   𝑥,𝑅,𝑧   𝑧,𝐻   𝑧,𝐾
Allowed substitution hints:   𝐶(𝑥,𝑧,𝑡,𝑠)   𝐷(𝑥,𝑡)   𝐸(𝑥,𝑧,𝑡,𝑠)   𝐹(𝑥,𝑦,𝑧,𝑡,𝑠)   𝐻(𝑥)   𝐼(𝑥,𝑦,𝑧,𝑡,𝑠)   𝐾(𝑥)   𝑁(𝑦,𝑡,𝑠)   𝑂(𝑥,𝑦,𝑧,𝑡,𝑠)

Proof of Theorem cdleme32fva
StepHypRef Expression
1 simp2l 1249 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → 𝑅𝐴)
2 cdleme32.b . . . . 5 𝐵 = (Base‘𝐾)
3 cdleme32.a . . . . 5 𝐴 = (Atoms‘𝐾)
42, 3atbase 35066 . . . 4 (𝑅𝐴𝑅𝐵)
51, 4syl 17 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → 𝑅𝐵)
6 cdleme32.o . . . 4 𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))
7 eqid 2805 . . . 4 (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊)))) = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))))
86, 7cdleme31so 36157 . . 3 (𝑅𝐵𝑅 / 𝑥𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊)))))
95, 8syl 17 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → 𝑅 / 𝑥𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊)))))
10 simp1 1159 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)))
11 simp3 1161 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → 𝑃𝑄)
12 simp2 1160 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (𝑅𝐴 ∧ ¬ 𝑅 𝑊))
13 cdleme32.l . . . . 5 = (le‘𝐾)
14 cdleme32.j . . . . 5 = (join‘𝐾)
15 cdleme32.m . . . . 5 = (meet‘𝐾)
16 cdleme32.h . . . . 5 𝐻 = (LHyp‘𝐾)
17 cdleme32.u . . . . 5 𝑈 = ((𝑃 𝑄) 𝑊)
18 cdleme32.c . . . . 5 𝐶 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))
19 cdleme32.d . . . . 5 𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))
20 cdleme32.e . . . . 5 𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))
21 cdleme32.i . . . . 5 𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸))
22 cdleme32.n . . . . 5 𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐶)
232, 13, 14, 15, 3, 16, 17, 18, 19, 20, 21, 22cdleme32snb 36214 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊))) → 𝑅 / 𝑠𝑁𝐵)
2410, 11, 12, 23syl12anc 856 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → 𝑅 / 𝑠𝑁𝐵)
25 nfv 2008 . . . . . . . . 9 𝑠 ¬ 𝑅 𝑊
26 nfcsb1v 3741 . . . . . . . . . 10 𝑠𝑅 / 𝑠𝑁
2726nfeq2 2963 . . . . . . . . 9 𝑠 𝑧 = 𝑅 / 𝑠𝑁
2825, 27nfim 1990 . . . . . . . 8 𝑠𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁)
29 breq1 4843 . . . . . . . . . . 11 (𝑠 = 𝑅 → (𝑠 𝑊𝑅 𝑊))
3029notbid 309 . . . . . . . . . 10 (𝑠 = 𝑅 → (¬ 𝑠 𝑊 ↔ ¬ 𝑅 𝑊))
31 csbeq1a 3734 . . . . . . . . . . 11 (𝑠 = 𝑅𝑁 = 𝑅 / 𝑠𝑁)
3231eqeq2d 2815 . . . . . . . . . 10 (𝑠 = 𝑅 → (𝑧 = 𝑁𝑧 = 𝑅 / 𝑠𝑁))
3330, 32imbi12d 335 . . . . . . . . 9 (𝑠 = 𝑅 → ((¬ 𝑠 𝑊𝑧 = 𝑁) ↔ (¬ 𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁)))
3433ax-gen 1880 . . . . . . . 8 𝑠(𝑠 = 𝑅 → ((¬ 𝑠 𝑊𝑧 = 𝑁) ↔ (¬ 𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁)))
35 ceqsralt 3422 . . . . . . . 8 ((Ⅎ𝑠𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁) ∧ ∀𝑠(𝑠 = 𝑅 → ((¬ 𝑠 𝑊𝑧 = 𝑁) ↔ (¬ 𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁))) ∧ 𝑅𝐴) → (∀𝑠𝐴 (𝑠 = 𝑅 → (¬ 𝑠 𝑊𝑧 = 𝑁)) ↔ (¬ 𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁)))
3628, 34, 35mp3an12 1568 . . . . . . 7 (𝑅𝐴 → (∀𝑠𝐴 (𝑠 = 𝑅 → (¬ 𝑠 𝑊𝑧 = 𝑁)) ↔ (¬ 𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁)))
3736adantr 468 . . . . . 6 ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) → (∀𝑠𝐴 (𝑠 = 𝑅 → (¬ 𝑠 𝑊𝑧 = 𝑁)) ↔ (¬ 𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁)))
38373ad2ant2 1157 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (∀𝑠𝐴 (𝑠 = 𝑅 → (¬ 𝑠 𝑊𝑧 = 𝑁)) ↔ (¬ 𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁)))
39 simp11 1253 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (𝐾 ∈ HL ∧ 𝑊𝐻))
40 eqid 2805 . . . . . . . . . . . . . . . 16 (0.‘𝐾) = (0.‘𝐾)
4113, 15, 40, 3, 16lhpmat 35807 . . . . . . . . . . . . . . 15 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) → (𝑅 𝑊) = (0.‘𝐾))
4239, 12, 41syl2anc 575 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (𝑅 𝑊) = (0.‘𝐾))
4342adantr 468 . . . . . . . . . . . . 13 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑅 𝑊) = (0.‘𝐾))
4443oveq2d 6887 . . . . . . . . . . . 12 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑠 (𝑅 𝑊)) = (𝑠 (0.‘𝐾)))
45 simp11l 1376 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → 𝐾 ∈ HL)
4645adantr 468 . . . . . . . . . . . . . 14 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → 𝐾 ∈ HL)
47 hlol 35138 . . . . . . . . . . . . . 14 (𝐾 ∈ HL → 𝐾 ∈ OL)
4846, 47syl 17 . . . . . . . . . . . . 13 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → 𝐾 ∈ OL)
492, 3atbase 35066 . . . . . . . . . . . . . 14 (𝑠𝐴𝑠𝐵)
5049ad2antrl 710 . . . . . . . . . . . . 13 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → 𝑠𝐵)
512, 14, 40olj01 35002 . . . . . . . . . . . . 13 ((𝐾 ∈ OL ∧ 𝑠𝐵) → (𝑠 (0.‘𝐾)) = 𝑠)
5248, 50, 51syl2anc 575 . . . . . . . . . . . 12 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑠 (0.‘𝐾)) = 𝑠)
5344, 52eqtrd 2839 . . . . . . . . . . 11 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑠 (𝑅 𝑊)) = 𝑠)
5453eqeq1d 2807 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → ((𝑠 (𝑅 𝑊)) = 𝑅𝑠 = 𝑅))
5543oveq2d 6887 . . . . . . . . . . . 12 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑁 (𝑅 𝑊)) = (𝑁 (0.‘𝐾)))
56 simpl11 1322 . . . . . . . . . . . . . 14 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
57 simpl12 1324 . . . . . . . . . . . . . 14 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
58 simpl13 1326 . . . . . . . . . . . . . 14 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
59 simpr 473 . . . . . . . . . . . . . 14 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑠𝐴 ∧ ¬ 𝑠 𝑊))
60 simpl3 1239 . . . . . . . . . . . . . 14 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → 𝑃𝑄)
612, 13, 14, 15, 3, 16, 17, 18, 19, 20, 21, 22cdleme27cl 36144 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ 𝑃𝑄)) → 𝑁𝐵)
6256, 57, 58, 59, 60, 61syl122anc 1491 . . . . . . . . . . . . 13 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → 𝑁𝐵)
632, 14, 40olj01 35002 . . . . . . . . . . . . 13 ((𝐾 ∈ OL ∧ 𝑁𝐵) → (𝑁 (0.‘𝐾)) = 𝑁)
6448, 62, 63syl2anc 575 . . . . . . . . . . . 12 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑁 (0.‘𝐾)) = 𝑁)
6555, 64eqtrd 2839 . . . . . . . . . . 11 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑁 (𝑅 𝑊)) = 𝑁)
6665eqeq2d 2815 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑧 = (𝑁 (𝑅 𝑊)) ↔ 𝑧 = 𝑁))
6754, 66imbi12d 335 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (((𝑠 (𝑅 𝑊)) = 𝑅𝑧 = (𝑁 (𝑅 𝑊))) ↔ (𝑠 = 𝑅𝑧 = 𝑁)))
6867expr 446 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ 𝑠𝐴) → (¬ 𝑠 𝑊 → (((𝑠 (𝑅 𝑊)) = 𝑅𝑧 = (𝑁 (𝑅 𝑊))) ↔ (𝑠 = 𝑅𝑧 = 𝑁))))
6968pm5.74d 264 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ 𝑠𝐴) → ((¬ 𝑠 𝑊 → ((𝑠 (𝑅 𝑊)) = 𝑅𝑧 = (𝑁 (𝑅 𝑊)))) ↔ (¬ 𝑠 𝑊 → (𝑠 = 𝑅𝑧 = 𝑁))))
70 impexp 439 . . . . . . 7 (((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))) ↔ (¬ 𝑠 𝑊 → ((𝑠 (𝑅 𝑊)) = 𝑅𝑧 = (𝑁 (𝑅 𝑊)))))
71 bi2.04 377 . . . . . . 7 ((𝑠 = 𝑅 → (¬ 𝑠 𝑊𝑧 = 𝑁)) ↔ (¬ 𝑠 𝑊 → (𝑠 = 𝑅𝑧 = 𝑁)))
7269, 70, 713bitr4g 305 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ 𝑠𝐴) → (((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))) ↔ (𝑠 = 𝑅 → (¬ 𝑠 𝑊𝑧 = 𝑁))))
7372ralbidva 3172 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (∀𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))) ↔ ∀𝑠𝐴 (𝑠 = 𝑅 → (¬ 𝑠 𝑊𝑧 = 𝑁))))
74 simp2r 1250 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → ¬ 𝑅 𝑊)
75 biimt 351 . . . . . 6 𝑅 𝑊 → (𝑧 = 𝑅 / 𝑠𝑁 ↔ (¬ 𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁)))
7674, 75syl 17 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (𝑧 = 𝑅 / 𝑠𝑁 ↔ (¬ 𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁)))
7738, 73, 763bitr4d 302 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (∀𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))) ↔ 𝑧 = 𝑅 / 𝑠𝑁))
7877adantr 468 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ 𝑧𝐵) → (∀𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))) ↔ 𝑧 = 𝑅 / 𝑠𝑁))
7924, 78riota5 6858 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊)))) = 𝑅 / 𝑠𝑁)
809, 79eqtrd 2839 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → 𝑅 / 𝑥𝑂 = 𝑅 / 𝑠𝑁)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 197  wa 384  w3a 1100  wal 1635   = wceq 1637  wnf 1863  wcel 2158  wne 2977  wral 3095  csb 3725  ifcif 4276   class class class wbr 4840  cmpt 4919  cfv 6098  crio 6831  (class class class)co 6871  Basecbs 16064  lecple 16156  joincjn 17145  meetcmee 17146  0.cp0 17238  OLcol 34951  Atomscatm 35040  HLchlt 35127  LHypclh 35761
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1880  ax-4 1897  ax-5 2004  ax-6 2070  ax-7 2106  ax-8 2160  ax-9 2167  ax-10 2187  ax-11 2203  ax-12 2216  ax-13 2422  ax-ext 2784  ax-rep 4960  ax-sep 4971  ax-nul 4980  ax-pow 5032  ax-pr 5093  ax-un 7176  ax-riotaBAD 34729
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 866  df-3or 1101  df-3an 1102  df-tru 1641  df-ex 1860  df-nf 1865  df-sb 2063  df-eu 2636  df-mo 2637  df-clab 2792  df-cleq 2798  df-clel 2801  df-nfc 2936  df-ne 2978  df-nel 3081  df-ral 3100  df-rex 3101  df-reu 3102  df-rmo 3103  df-rab 3104  df-v 3392  df-sbc 3631  df-csb 3726  df-dif 3769  df-un 3771  df-in 3773  df-ss 3780  df-nul 4114  df-if 4277  df-pw 4350  df-sn 4368  df-pr 4370  df-op 4374  df-uni 4627  df-iun 4710  df-iin 4711  df-br 4841  df-opab 4903  df-mpt 4920  df-id 5216  df-xp 5314  df-rel 5315  df-cnv 5316  df-co 5317  df-dm 5318  df-rn 5319  df-res 5320  df-ima 5321  df-iota 6061  df-fun 6100  df-fn 6101  df-f 6102  df-f1 6103  df-fo 6104  df-f1o 6105  df-fv 6106  df-riota 6832  df-ov 6874  df-oprab 6875  df-mpt2 6876  df-1st 7395  df-2nd 7396  df-undef 7631  df-proset 17129  df-poset 17147  df-plt 17159  df-lub 17175  df-glb 17176  df-join 17177  df-meet 17178  df-p0 17240  df-p1 17241  df-lat 17247  df-clat 17309  df-oposet 34953  df-ol 34955  df-oml 34956  df-covers 35043  df-ats 35044  df-atl 35075  df-cvlat 35099  df-hlat 35128  df-llines 35275  df-lplanes 35276  df-lvols 35277  df-lines 35278  df-psubsp 35280  df-pmap 35281  df-padd 35573  df-lhyp 35765
This theorem is referenced by:  cdleme32fva1  36216
  Copyright terms: Public domain W3C validator