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

Theorem cdlemefrs29cpre1 36357
Description: TODO: FIX COMMENT. (Contributed by NM, 29-Mar-2013.)
Hypotheses
Ref Expression
cdlemefrs27.b 𝐵 = (Base‘𝐾)
cdlemefrs27.l = (le‘𝐾)
cdlemefrs27.j = (join‘𝐾)
cdlemefrs27.m = (meet‘𝐾)
cdlemefrs27.a 𝐴 = (Atoms‘𝐾)
cdlemefrs27.h 𝐻 = (LHyp‘𝐾)
cdlemefrs27.eq (𝑠 = 𝑅 → (𝜑𝜓))
cdlemefrs27.nb ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → 𝑁𝐵)
cdlemefrs27.rnb ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → 𝑅 / 𝑠𝑁𝐵)
Assertion
Ref Expression
cdlemefrs29cpre1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → ∃!𝑧𝐵𝑠𝐴 (((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))))
Distinct variable groups:   𝑧,𝑠,𝐴   𝐻,𝑠   ,𝑠   𝐾,𝑠   ,𝑠   𝑃,𝑠   𝑄,𝑠   𝑅,𝑠   𝑊,𝑠   𝜓,𝑠   𝑧,𝐴   𝑧,𝐵   𝑧,𝐻   𝑧,𝐾   𝑧,   𝑧,𝑁   𝑧,𝑃   𝑧,𝑄   𝑧,𝑅   𝑧,𝑊   𝜓,𝑧   𝐵,𝑠   𝑧,   ,𝑠,𝑧   𝜑,𝑧
Allowed substitution hints:   𝜑(𝑠)   𝑁(𝑠)

Proof of Theorem cdlemefrs29cpre1
StepHypRef Expression
1 cdlemefrs27.b . . 3 𝐵 = (Base‘𝐾)
2 cdlemefrs27.l . . 3 = (le‘𝐾)
3 cdlemefrs27.j . . 3 = (join‘𝐾)
4 cdlemefrs27.m . . 3 = (meet‘𝐾)
5 cdlemefrs27.a . . 3 𝐴 = (Atoms‘𝐾)
6 cdlemefrs27.h . . 3 𝐻 = (LHyp‘𝐾)
7 cdlemefrs27.eq . . 3 (𝑠 = 𝑅 → (𝜑𝜓))
8 cdlemefrs27.nb . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → 𝑁𝐵)
9 cdlemefrs27.rnb . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → 𝑅 / 𝑠𝑁𝐵)
101, 2, 3, 4, 5, 6, 7, 8, 9cdlemefrs29bpre1 36356 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → ∃𝑧𝐵𝑠𝐴 (((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))))
11 simp11 1260 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → (𝐾 ∈ HL ∧ 𝑊𝐻))
12 simp2rl 1323 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → 𝑅𝐴)
131, 5atbase 35248 . . . . . 6 (𝑅𝐴𝑅𝐵)
1412, 13syl 17 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → 𝑅𝐵)
15 simp2rr 1324 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → ¬ 𝑅 𝑊)
161, 2, 3, 4, 5, 6lhpmcvr2 35983 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐵 ∧ ¬ 𝑅 𝑊)) → ∃𝑠𝐴𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅))
1711, 14, 15, 16syl12anc 865 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → ∃𝑠𝐴𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅))
18 simpl3 1246 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ 𝑠𝐴) → 𝜓)
197pm5.32ri 571 . . . . . . . . . 10 ((𝜑𝑠 = 𝑅) ↔ (𝜓𝑠 = 𝑅))
2019baibr 532 . . . . . . . . 9 (𝜓 → (𝑠 = 𝑅 ↔ (𝜑𝑠 = 𝑅)))
2118, 20syl 17 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ 𝑠𝐴) → (𝑠 = 𝑅 ↔ (𝜑𝑠 = 𝑅)))
22 simp2r 1257 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → (𝑅𝐴 ∧ ¬ 𝑅 𝑊))
23 eqid 2765 . . . . . . . . . . . . . 14 (0.‘𝐾) = (0.‘𝐾)
242, 4, 23, 5, 6lhpmat 35989 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) → (𝑅 𝑊) = (0.‘𝐾))
2511, 22, 24syl2anc 579 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → (𝑅 𝑊) = (0.‘𝐾))
2625adantr 472 . . . . . . . . . . 11 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ 𝑠𝐴) → (𝑅 𝑊) = (0.‘𝐾))
2726oveq2d 6860 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ 𝑠𝐴) → (𝑠 (𝑅 𝑊)) = (𝑠 (0.‘𝐾)))
28 simp11l 1383 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → 𝐾 ∈ HL)
29 hlol 35320 . . . . . . . . . . . 12 (𝐾 ∈ HL → 𝐾 ∈ OL)
3028, 29syl 17 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → 𝐾 ∈ OL)
311, 5atbase 35248 . . . . . . . . . . 11 (𝑠𝐴𝑠𝐵)
321, 3, 23olj01 35184 . . . . . . . . . . 11 ((𝐾 ∈ OL ∧ 𝑠𝐵) → (𝑠 (0.‘𝐾)) = 𝑠)
3330, 31, 32syl2an 589 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ 𝑠𝐴) → (𝑠 (0.‘𝐾)) = 𝑠)
3427, 33eqtrd 2799 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ 𝑠𝐴) → (𝑠 (𝑅 𝑊)) = 𝑠)
3534eqeq1d 2767 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ 𝑠𝐴) → ((𝑠 (𝑅 𝑊)) = 𝑅𝑠 = 𝑅))
3635anbi2d 622 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ 𝑠𝐴) → ((𝜑 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) ↔ (𝜑𝑠 = 𝑅)))
3721, 35, 363bitr4d 302 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ 𝑠𝐴) → ((𝑠 (𝑅 𝑊)) = 𝑅 ↔ (𝜑 ∧ (𝑠 (𝑅 𝑊)) = 𝑅)))
3837anbi2d 622 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ 𝑠𝐴) → ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) ↔ (¬ 𝑠 𝑊 ∧ (𝜑 ∧ (𝑠 (𝑅 𝑊)) = 𝑅))))
39 anass 460 . . . . . 6 (((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) ↔ (¬ 𝑠 𝑊 ∧ (𝜑 ∧ (𝑠 (𝑅 𝑊)) = 𝑅)))
4038, 39syl6bbr 280 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ 𝑠𝐴) → ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) ↔ ((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅)))
4140rexbidva 3196 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → (∃𝑠𝐴𝑠 𝑊 ∧ (𝑠 (𝑅 𝑊)) = 𝑅) ↔ ∃𝑠𝐴 ((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅)))
4217, 41mpbid 223 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → ∃𝑠𝐴 ((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅))
43 reusv1 5034 . . 3 (∃𝑠𝐴 ((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → (∃!𝑧𝐵𝑠𝐴 (((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))) ↔ ∃𝑧𝐵𝑠𝐴 (((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊)))))
4442, 43syl 17 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → (∃!𝑧𝐵𝑠𝐴 (((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))) ↔ ∃𝑧𝐵𝑠𝐴 (((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊)))))
4510, 44mpbird 248 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → ∃!𝑧𝐵𝑠𝐴 (((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 197  wa 384  w3a 1107   = wceq 1652  wcel 2155  wne 2937  wral 3055  wrex 3056  ∃!wreu 3057  csb 3693   class class class wbr 4811  cfv 6070  (class class class)co 6844  Basecbs 16133  lecple 16224  joincjn 17213  meetcmee 17214  0.cp0 17306  OLcol 35133  Atomscatm 35222  HLchlt 35309  LHypclh 35943
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2070  ax-7 2105  ax-8 2157  ax-9 2164  ax-10 2183  ax-11 2198  ax-12 2211  ax-13 2352  ax-ext 2743  ax-rep 4932  ax-sep 4943  ax-nul 4951  ax-pow 5003  ax-pr 5064  ax-un 7149
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3an 1109  df-tru 1656  df-ex 1875  df-nf 1879  df-sb 2063  df-mo 2565  df-eu 2582  df-clab 2752  df-cleq 2758  df-clel 2761  df-nfc 2896  df-ne 2938  df-ral 3060  df-rex 3061  df-reu 3062  df-rmo 3063  df-rab 3064  df-v 3352  df-sbc 3599  df-csb 3694  df-dif 3737  df-un 3739  df-in 3741  df-ss 3748  df-nul 4082  df-if 4246  df-pw 4319  df-sn 4337  df-pr 4339  df-op 4343  df-uni 4597  df-iun 4680  df-br 4812  df-opab 4874  df-mpt 4891  df-id 5187  df-xp 5285  df-rel 5286  df-cnv 5287  df-co 5288  df-dm 5289  df-rn 5290  df-res 5291  df-ima 5292  df-iota 6033  df-fun 6072  df-fn 6073  df-f 6074  df-f1 6075  df-fo 6076  df-f1o 6077  df-fv 6078  df-riota 6805  df-ov 6847  df-oprab 6848  df-proset 17197  df-poset 17215  df-plt 17227  df-lub 17243  df-glb 17244  df-join 17245  df-meet 17246  df-p0 17308  df-p1 17309  df-lat 17315  df-clat 17377  df-oposet 35135  df-ol 35137  df-oml 35138  df-covers 35225  df-ats 35226  df-atl 35257  df-cvlat 35281  df-hlat 35310  df-lhyp 35947
This theorem is referenced by:  cdlemefrs29clN  36358  cdlemefrs32fva  36359  cdlemefs29cpre1N  36377
  Copyright terms: Public domain W3C validator