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 35551
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 1086 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → 𝑅𝐴)
2 cdleme32.b . . . . 5 𝐵 = (Base‘𝐾)
3 cdleme32.a . . . . 5 𝐴 = (Atoms‘𝐾)
42, 3atbase 34402 . . . 4 (𝑅𝐴𝑅𝐵)
51, 4syl 17 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → 𝑅𝐵)
6 cdleme32.o . . . 4 𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))
7 eqid 2621 . . . 4 (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊)))) = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))))
86, 7cdleme31so 35493 . . 3 (𝑅𝐵𝑅 / 𝑥𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊)))))
95, 8syl 17 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → 𝑅 / 𝑥𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊)))))
10 simp1 1060 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)))
11 simp3 1062 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → 𝑃𝑄)
12 simp2 1061 . . . 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 35550 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊))) → 𝑅 / 𝑠𝑁𝐵)
2410, 11, 12, 23syl12anc 1323 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → 𝑅 / 𝑠𝑁𝐵)
25 nfv 1842 . . . . . . . . 9 𝑠 ¬ 𝑅 𝑊
26 nfcsb1v 3547 . . . . . . . . . 10 𝑠𝑅 / 𝑠𝑁
2726nfeq2 2779 . . . . . . . . 9 𝑠 𝑧 = 𝑅 / 𝑠𝑁
2825, 27nfim 1824 . . . . . . . 8 𝑠𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁)
29 breq1 4654 . . . . . . . . . . 11 (𝑠 = 𝑅 → (𝑠 𝑊𝑅 𝑊))
3029notbid 308 . . . . . . . . . 10 (𝑠 = 𝑅 → (¬ 𝑠 𝑊 ↔ ¬ 𝑅 𝑊))
31 csbeq1a 3540 . . . . . . . . . . 11 (𝑠 = 𝑅𝑁 = 𝑅 / 𝑠𝑁)
3231eqeq2d 2631 . . . . . . . . . 10 (𝑠 = 𝑅 → (𝑧 = 𝑁𝑧 = 𝑅 / 𝑠𝑁))
3330, 32imbi12d 334 . . . . . . . . 9 (𝑠 = 𝑅 → ((¬ 𝑠 𝑊𝑧 = 𝑁) ↔ (¬ 𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁)))
3433ax-gen 1721 . . . . . . . 8 𝑠(𝑠 = 𝑅 → ((¬ 𝑠 𝑊𝑧 = 𝑁) ↔ (¬ 𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁)))
35 ceqsralt 3227 . . . . . . . 8 ((Ⅎ𝑠𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁) ∧ ∀𝑠(𝑠 = 𝑅 → ((¬ 𝑠 𝑊𝑧 = 𝑁) ↔ (¬ 𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁))) ∧ 𝑅𝐴) → (∀𝑠𝐴 (𝑠 = 𝑅 → (¬ 𝑠 𝑊𝑧 = 𝑁)) ↔ (¬ 𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁)))
3628, 34, 35mp3an12 1413 . . . . . . 7 (𝑅𝐴 → (∀𝑠𝐴 (𝑠 = 𝑅 → (¬ 𝑠 𝑊𝑧 = 𝑁)) ↔ (¬ 𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁)))
3736adantr 481 . . . . . 6 ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) → (∀𝑠𝐴 (𝑠 = 𝑅 → (¬ 𝑠 𝑊𝑧 = 𝑁)) ↔ (¬ 𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁)))
38373ad2ant2 1082 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (∀𝑠𝐴 (𝑠 = 𝑅 → (¬ 𝑠 𝑊𝑧 = 𝑁)) ↔ (¬ 𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁)))
39 simp11 1090 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (𝐾 ∈ HL ∧ 𝑊𝐻))
40 eqid 2621 . . . . . . . . . . . . . . . 16 (0.‘𝐾) = (0.‘𝐾)
4113, 15, 40, 3, 16lhpmat 35142 . . . . . . . . . . . . . . 15 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) → (𝑅 𝑊) = (0.‘𝐾))
4239, 12, 41syl2anc 693 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (𝑅 𝑊) = (0.‘𝐾))
4342adantr 481 . . . . . . . . . . . . 13 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑅 𝑊) = (0.‘𝐾))
4443oveq2d 6663 . . . . . . . . . . . 12 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑠 (𝑅 𝑊)) = (𝑠 (0.‘𝐾)))
45 simp11l 1171 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → 𝐾 ∈ HL)
4645adantr 481 . . . . . . . . . . . . . 14 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → 𝐾 ∈ HL)
47 hlol 34474 . . . . . . . . . . . . . 14 (𝐾 ∈ HL → 𝐾 ∈ OL)
4846, 47syl 17 . . . . . . . . . . . . 13 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → 𝐾 ∈ OL)
492, 3atbase 34402 . . . . . . . . . . . . . 14 (𝑠𝐴𝑠𝐵)
5049ad2antrl 764 . . . . . . . . . . . . 13 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → 𝑠𝐵)
512, 14, 40olj01 34338 . . . . . . . . . . . . 13 ((𝐾 ∈ OL ∧ 𝑠𝐵) → (𝑠 (0.‘𝐾)) = 𝑠)
5248, 50, 51syl2anc 693 . . . . . . . . . . . 12 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑠 (0.‘𝐾)) = 𝑠)
5344, 52eqtrd 2655 . . . . . . . . . . 11 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑠 (𝑅 𝑊)) = 𝑠)
5453eqeq1d 2623 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → ((𝑠 (𝑅 𝑊)) = 𝑅𝑠 = 𝑅))
5543oveq2d 6663 . . . . . . . . . . . 12 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑁 (𝑅 𝑊)) = (𝑁 (0.‘𝐾)))
56 simpl11 1135 . . . . . . . . . . . . . 14 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
57 simpl12 1136 . . . . . . . . . . . . . 14 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
58 simpl13 1137 . . . . . . . . . . . . . 14 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
59 simpr 477 . . . . . . . . . . . . . 14 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑠𝐴 ∧ ¬ 𝑠 𝑊))
60 simpl3 1065 . . . . . . . . . . . . . 14 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → 𝑃𝑄)
612, 13, 14, 15, 3, 16, 17, 18, 19, 20, 21, 22cdleme27cl 35480 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ 𝑃𝑄)) → 𝑁𝐵)
6256, 57, 58, 59, 60, 61syl122anc 1334 . . . . . . . . . . . . 13 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → 𝑁𝐵)
632, 14, 40olj01 34338 . . . . . . . . . . . . 13 ((𝐾 ∈ OL ∧ 𝑁𝐵) → (𝑁 (0.‘𝐾)) = 𝑁)
6448, 62, 63syl2anc 693 . . . . . . . . . . . 12 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑁 (0.‘𝐾)) = 𝑁)
6555, 64eqtrd 2655 . . . . . . . . . . 11 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑁 (𝑅 𝑊)) = 𝑁)
6665eqeq2d 2631 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑧 = (𝑁 (𝑅 𝑊)) ↔ 𝑧 = 𝑁))
6754, 66imbi12d 334 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (((𝑠 (𝑅 𝑊)) = 𝑅𝑧 = (𝑁 (𝑅 𝑊))) ↔ (𝑠 = 𝑅𝑧 = 𝑁)))
6867expr 643 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ 𝑠𝐴) → (¬ 𝑠 𝑊 → (((𝑠 (𝑅 𝑊)) = 𝑅𝑧 = (𝑁 (𝑅 𝑊))) ↔ (𝑠 = 𝑅𝑧 = 𝑁))))
6968pm5.74d 262 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ 𝑠𝐴) → ((¬ 𝑠 𝑊 → ((𝑠 (𝑅 𝑊)) = 𝑅𝑧 = (𝑁 (𝑅 𝑊)))) ↔ (¬ 𝑠 𝑊 → (𝑠 = 𝑅𝑧 = 𝑁))))
70 impexp 462 . . . . . . 7 (((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))) ↔ (¬ 𝑠 𝑊 → ((𝑠 (𝑅 𝑊)) = 𝑅𝑧 = (𝑁 (𝑅 𝑊)))))
71 bi2.04 376 . . . . . . 7 ((𝑠 = 𝑅 → (¬ 𝑠 𝑊𝑧 = 𝑁)) ↔ (¬ 𝑠 𝑊 → (𝑠 = 𝑅𝑧 = 𝑁)))
7269, 70, 713bitr4g 303 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ 𝑠𝐴) → (((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))) ↔ (𝑠 = 𝑅 → (¬ 𝑠 𝑊𝑧 = 𝑁))))
7372ralbidva 2984 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (∀𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))) ↔ ∀𝑠𝐴 (𝑠 = 𝑅 → (¬ 𝑠 𝑊𝑧 = 𝑁))))
74 simp2r 1087 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → ¬ 𝑅 𝑊)
75 biimt 350 . . . . . 6 𝑅 𝑊 → (𝑧 = 𝑅 / 𝑠𝑁 ↔ (¬ 𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁)))
7674, 75syl 17 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (𝑧 = 𝑅 / 𝑠𝑁 ↔ (¬ 𝑅 𝑊𝑧 = 𝑅 / 𝑠𝑁)))
7738, 73, 763bitr4d 300 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (∀𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))) ↔ 𝑧 = 𝑅 / 𝑠𝑁))
7877adantr 481 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) ∧ 𝑧𝐵) → (∀𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))) ↔ 𝑧 = 𝑅 / 𝑠𝑁))
7924, 78riota5 6634 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊)))) = 𝑅 / 𝑠𝑁)
809, 79eqtrd 2655 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → 𝑅 / 𝑥𝑂 = 𝑅 / 𝑠𝑁)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 196  wa 384  w3a 1037  wal 1480   = wceq 1482  wnf 1707  wcel 1989  wne 2793  wral 2911  csb 3531  ifcif 4084   class class class wbr 4651  cmpt 4727  cfv 5886  crio 6607  (class class class)co 6647  Basecbs 15851  lecple 15942  joincjn 16938  meetcmee 16939  0.cp0 17031  OLcol 34287  Atomscatm 34376  HLchlt 34463  LHypclh 35096
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1721  ax-4 1736  ax-5 1838  ax-6 1887  ax-7 1934  ax-8 1991  ax-9 1998  ax-10 2018  ax-11 2033  ax-12 2046  ax-13 2245  ax-ext 2601  ax-rep 4769  ax-sep 4779  ax-nul 4787  ax-pow 4841  ax-pr 4904  ax-un 6946  ax-riotaBAD 34065
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1485  df-ex 1704  df-nf 1709  df-sb 1880  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2752  df-ne 2794  df-nel 2897  df-ral 2916  df-rex 2917  df-reu 2918  df-rmo 2919  df-rab 2920  df-v 3200  df-sbc 3434  df-csb 3532  df-dif 3575  df-un 3577  df-in 3579  df-ss 3586  df-nul 3914  df-if 4085  df-pw 4158  df-sn 4176  df-pr 4178  df-op 4182  df-uni 4435  df-iun 4520  df-iin 4521  df-br 4652  df-opab 4711  df-mpt 4728  df-id 5022  df-xp 5118  df-rel 5119  df-cnv 5120  df-co 5121  df-dm 5122  df-rn 5123  df-res 5124  df-ima 5125  df-iota 5849  df-fun 5888  df-fn 5889  df-f 5890  df-f1 5891  df-fo 5892  df-f1o 5893  df-fv 5894  df-riota 6608  df-ov 6650  df-oprab 6651  df-mpt2 6652  df-1st 7165  df-2nd 7166  df-undef 7396  df-preset 16922  df-poset 16940  df-plt 16952  df-lub 16968  df-glb 16969  df-join 16970  df-meet 16971  df-p0 17033  df-p1 17034  df-lat 17040  df-clat 17102  df-oposet 34289  df-ol 34291  df-oml 34292  df-covers 34379  df-ats 34380  df-atl 34411  df-cvlat 34435  df-hlat 34464  df-llines 34610  df-lplanes 34611  df-lvols 34612  df-lines 34613  df-psubsp 34615  df-pmap 34616  df-padd 34908  df-lhyp 35100
This theorem is referenced by:  cdleme32fva1  35552
  Copyright terms: Public domain W3C validator