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

Theorem cdlemefrs29bpre0 36174
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 ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → 𝑁𝐵)
Assertion
Ref Expression
cdlemefrs29bpre0 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → (∀𝑠𝐴 (((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))) ↔ 𝑧 = 𝑅 / 𝑠𝑁))
Distinct variable groups:   𝑧,𝑠   𝐴,𝑠   𝐻,𝑠   ,𝑠   𝐾,𝑠   ,𝑠   𝑃,𝑠   𝑄,𝑠   𝑅,𝑠   𝑊,𝑠   𝜓,𝑠
Allowed substitution hints:   𝜑(𝑧,𝑠)   𝜓(𝑧)   𝐴(𝑧)   𝐵(𝑧,𝑠)   𝑃(𝑧)   𝑄(𝑧)   𝑅(𝑧)   𝐻(𝑧)   (𝑧)   𝐾(𝑧)   (𝑧)   (𝑧,𝑠)   𝑁(𝑧,𝑠)   𝑊(𝑧)

Proof of Theorem cdlemefrs29bpre0
StepHypRef Expression
1 df-ral 3100 . . 3 (∀𝑠𝐴 (((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))) ↔ ∀𝑠(𝑠𝐴 → (((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊)))))
2 anass 456 . . . . . . 7 (((𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑)) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) ↔ (𝑠𝐴 ∧ ((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅)))
32imbi1i 340 . . . . . 6 ((((𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑)) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))) ↔ ((𝑠𝐴 ∧ ((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅)) → 𝑧 = (𝑁 (𝑅 𝑊))))
4 impexp 439 . . . . . 6 ((((𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑)) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))) ↔ ((𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑)) → ((𝑠 (𝑅 𝑊)) = 𝑅𝑧 = (𝑁 (𝑅 𝑊)))))
5 impexp 439 . . . . . 6 (((𝑠𝐴 ∧ ((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅)) → 𝑧 = (𝑁 (𝑅 𝑊))) ↔ (𝑠𝐴 → (((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊)))))
63, 4, 53bitr3ri 293 . . . . 5 ((𝑠𝐴 → (((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊)))) ↔ ((𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑)) → ((𝑠 (𝑅 𝑊)) = 𝑅𝑧 = (𝑁 (𝑅 𝑊)))))
7 simpl11 1322 . . . . . . . . . . . 12 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → (𝐾 ∈ HL ∧ 𝑊𝐻))
8 simpl2r 1292 . . . . . . . . . . . 12 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → (𝑅𝐴 ∧ ¬ 𝑅 𝑊))
9 cdlemefrs27.l . . . . . . . . . . . . 13 = (le‘𝐾)
10 cdlemefrs27.m . . . . . . . . . . . . 13 = (meet‘𝐾)
11 eqid 2805 . . . . . . . . . . . . 13 (0.‘𝐾) = (0.‘𝐾)
12 cdlemefrs27.a . . . . . . . . . . . . 13 𝐴 = (Atoms‘𝐾)
13 cdlemefrs27.h . . . . . . . . . . . . 13 𝐻 = (LHyp‘𝐾)
149, 10, 11, 12, 13lhpmat 35807 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) → (𝑅 𝑊) = (0.‘𝐾))
157, 8, 14syl2anc 575 . . . . . . . . . . 11 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → (𝑅 𝑊) = (0.‘𝐾))
1615oveq2d 6887 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → (𝑠 (𝑅 𝑊)) = (𝑠 (0.‘𝐾)))
17 simp11l 1376 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → 𝐾 ∈ HL)
18 hlol 35138 . . . . . . . . . . . . 13 (𝐾 ∈ HL → 𝐾 ∈ OL)
1917, 18syl 17 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → 𝐾 ∈ OL)
2019adantr 468 . . . . . . . . . . 11 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → 𝐾 ∈ OL)
21 simprl 778 . . . . . . . . . . . 12 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → 𝑠𝐴)
22 cdlemefrs27.b . . . . . . . . . . . . 13 𝐵 = (Base‘𝐾)
2322, 12atbase 35066 . . . . . . . . . . . 12 (𝑠𝐴𝑠𝐵)
2421, 23syl 17 . . . . . . . . . . 11 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → 𝑠𝐵)
25 cdlemefrs27.j . . . . . . . . . . . 12 = (join‘𝐾)
2622, 25, 11olj01 35002 . . . . . . . . . . 11 ((𝐾 ∈ OL ∧ 𝑠𝐵) → (𝑠 (0.‘𝐾)) = 𝑠)
2720, 24, 26syl2anc 575 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → (𝑠 (0.‘𝐾)) = 𝑠)
2816, 27eqtrd 2839 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → (𝑠 (𝑅 𝑊)) = 𝑠)
2928eqeq1d 2807 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → ((𝑠 (𝑅 𝑊)) = 𝑅𝑠 = 𝑅))
3015oveq2d 6887 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → (𝑁 (𝑅 𝑊)) = (𝑁 (0.‘𝐾)))
31 simpl1 1235 . . . . . . . . . . . 12 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)))
32 simpl2l 1290 . . . . . . . . . . . 12 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → 𝑃𝑄)
33 simprr 780 . . . . . . . . . . . 12 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → (¬ 𝑠 𝑊𝜑))
34 cdlemefrs27.nb . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → 𝑁𝐵)
3531, 32, 21, 33, 34syl112anc 1486 . . . . . . . . . . 11 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → 𝑁𝐵)
3622, 25, 11olj01 35002 . . . . . . . . . . 11 ((𝐾 ∈ OL ∧ 𝑁𝐵) → (𝑁 (0.‘𝐾)) = 𝑁)
3720, 35, 36syl2anc 575 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → (𝑁 (0.‘𝐾)) = 𝑁)
3830, 37eqtrd 2839 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → (𝑁 (𝑅 𝑊)) = 𝑁)
3938eqeq2d 2815 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → (𝑧 = (𝑁 (𝑅 𝑊)) ↔ 𝑧 = 𝑁))
4029, 39imbi12d 335 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))) → (((𝑠 (𝑅 𝑊)) = 𝑅𝑧 = (𝑁 (𝑅 𝑊))) ↔ (𝑠 = 𝑅𝑧 = 𝑁)))
4140pm5.74da 829 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → (((𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑)) → ((𝑠 (𝑅 𝑊)) = 𝑅𝑧 = (𝑁 (𝑅 𝑊)))) ↔ ((𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑)) → (𝑠 = 𝑅𝑧 = 𝑁))))
42 impexp 439 . . . . . . 7 ((((𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑)) ∧ 𝑠 = 𝑅) → 𝑧 = 𝑁) ↔ ((𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑)) → (𝑠 = 𝑅𝑧 = 𝑁)))
43 eqcom 2812 . . . . . . . . 9 (𝑧 = 𝑁𝑁 = 𝑧)
4443imbi2i 327 . . . . . . . 8 ((𝑠 = 𝑅𝑧 = 𝑁) ↔ (𝑠 = 𝑅𝑁 = 𝑧))
45 simp2rl 1316 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → 𝑅𝐴)
46 simp2rr 1317 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → ¬ 𝑅 𝑊)
47 simp3 1161 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → 𝜓)
48 eleq1 2872 . . . . . . . . . . . . 13 (𝑠 = 𝑅 → (𝑠𝐴𝑅𝐴))
49 breq1 4843 . . . . . . . . . . . . . . 15 (𝑠 = 𝑅 → (𝑠 𝑊𝑅 𝑊))
5049notbid 309 . . . . . . . . . . . . . 14 (𝑠 = 𝑅 → (¬ 𝑠 𝑊 ↔ ¬ 𝑅 𝑊))
51 cdlemefrs27.eq . . . . . . . . . . . . . 14 (𝑠 = 𝑅 → (𝜑𝜓))
5250, 51anbi12d 618 . . . . . . . . . . . . 13 (𝑠 = 𝑅 → ((¬ 𝑠 𝑊𝜑) ↔ (¬ 𝑅 𝑊𝜓)))
5348, 52anbi12d 618 . . . . . . . . . . . 12 (𝑠 = 𝑅 → ((𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑)) ↔ (𝑅𝐴 ∧ (¬ 𝑅 𝑊𝜓))))
5453biimprcd 241 . . . . . . . . . . 11 ((𝑅𝐴 ∧ (¬ 𝑅 𝑊𝜓)) → (𝑠 = 𝑅 → (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))))
5545, 46, 47, 54syl12anc 856 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → (𝑠 = 𝑅 → (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑))))
5655pm4.71rd 554 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → (𝑠 = 𝑅 ↔ ((𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑)) ∧ 𝑠 = 𝑅)))
5756imbi1d 332 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → ((𝑠 = 𝑅𝑧 = 𝑁) ↔ (((𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑)) ∧ 𝑠 = 𝑅) → 𝑧 = 𝑁)))
5844, 57syl5rbbr 277 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → ((((𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑)) ∧ 𝑠 = 𝑅) → 𝑧 = 𝑁) ↔ (𝑠 = 𝑅𝑁 = 𝑧)))
5942, 58syl5bbr 276 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → (((𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑)) → (𝑠 = 𝑅𝑧 = 𝑁)) ↔ (𝑠 = 𝑅𝑁 = 𝑧)))
6041, 59bitrd 270 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → (((𝑠𝐴 ∧ (¬ 𝑠 𝑊𝜑)) → ((𝑠 (𝑅 𝑊)) = 𝑅𝑧 = (𝑁 (𝑅 𝑊)))) ↔ (𝑠 = 𝑅𝑁 = 𝑧)))
616, 60syl5bb 274 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → ((𝑠𝐴 → (((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊)))) ↔ (𝑠 = 𝑅𝑁 = 𝑧)))
6261albidv 2014 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → (∀𝑠(𝑠𝐴 → (((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊)))) ↔ ∀𝑠(𝑠 = 𝑅𝑁 = 𝑧)))
631, 62syl5bb 274 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → (∀𝑠𝐴 (((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))) ↔ ∀𝑠(𝑠 = 𝑅𝑁 = 𝑧)))
64 nfcv 2947 . . . . 5 𝑠𝑧
6564csbiebg 3748 . . . 4 (𝑅𝐴 → (∀𝑠(𝑠 = 𝑅𝑁 = 𝑧) ↔ 𝑅 / 𝑠𝑁 = 𝑧))
6645, 65syl 17 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → (∀𝑠(𝑠 = 𝑅𝑁 = 𝑧) ↔ 𝑅 / 𝑠𝑁 = 𝑧))
67 eqcom 2812 . . 3 (𝑅 / 𝑠𝑁 = 𝑧𝑧 = 𝑅 / 𝑠𝑁)
6866, 67syl6bb 278 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → (∀𝑠(𝑠 = 𝑅𝑁 = 𝑧) ↔ 𝑧 = 𝑅 / 𝑠𝑁))
6963, 68bitrd 270 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝜓) → (∀𝑠𝐴 (((¬ 𝑠 𝑊𝜑) ∧ (𝑠 (𝑅 𝑊)) = 𝑅) → 𝑧 = (𝑁 (𝑅 𝑊))) ↔ 𝑧 = 𝑅 / 𝑠𝑁))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 197  wa 384  w3a 1100  wal 1635   = wceq 1637  wcel 2158  wne 2977  wral 3095  csb 3725   class class class wbr 4840  cfv 6098  (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
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 866  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-ral 3100  df-rex 3101  df-reu 3102  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-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-proset 17129  df-poset 17147  df-plt 17159  df-lub 17175  df-glb 17176  df-join 17177  df-meet 17178  df-p0 17240  df-lat 17247  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-lhyp 35765
This theorem is referenced by:  cdlemefrs29bpre1  36175  cdlemefrs32fva  36178  cdlemefr29bpre0N  36184  cdlemefs29bpre0N  36194
  Copyright terms: Public domain W3C validator