HomeHome Metamath Proof Explorer
Theorem List (p. 385 of 464)
< Previous  Next >
Bad symbols? Try the
GIF version.

Mirrors  >  Metamath Home Page  >  MPE Home Page  >  Theorem List Contents  >  Recent Proofs       This page: Page List

Color key:    Metamath Proof Explorer  Metamath Proof Explorer
(1-29181)
  Hilbert Space Explorer  Hilbert Space Explorer
(29182-30704)
  Users' Mathboxes  Users' Mathboxes
(30705-46395)
 

Theorem List for Metamath Proof Explorer - 38401-38500   *Has distinct variable group(s)
TypeLabelDescription
Statement
 
Theoremcdleme36a 38401 Part of proof of Lemma E in [Crawley] p. 113. TODO: FIX COMMENT. (Contributed by NM, 11-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑅 (𝑃 𝑄)) ∧ ((𝑡𝐴 ∧ ¬ 𝑡 𝑊) ∧ ¬ 𝑡 (𝑃 𝑄))) → ¬ 𝑅 (𝑡 𝐸))
 
Theoremcdleme36m 38402 Part of proof of Lemma E in [Crawley] p. 113. Show that f(x) is one-to-one on 𝑃 𝑄 line. TODO: FIX COMMENT. (Contributed by NM, 11-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝑉 = ((𝑡 𝐸) 𝑊)    &   𝐹 = ((𝑅 𝑉) (𝐸 ((𝑡 𝑅) 𝑊)))    &   𝐶 = ((𝑆 𝑉) (𝐸 ((𝑡 𝑆) 𝑊)))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ((𝑅 (𝑃 𝑄) ∧ 𝑆 (𝑃 𝑄) ∧ 𝐹 = 𝐶) ∧ ((𝑡𝐴 ∧ ¬ 𝑡 𝑊) ∧ ¬ 𝑡 (𝑃 𝑄)))) → 𝑅 = 𝑆)
 
Theoremcdleme37m 38403 Part of proof of Lemma E in [Crawley] p. 113. Show that f(x) is one-to-one on 𝑃 𝑄 line. TODO: FIX COMMENT. (Contributed by NM, 13-Mar-2013.)
= (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐷 = ((𝑢 𝑈) (𝑄 ((𝑃 𝑢) 𝑊)))    &   𝑉 = ((𝑡 𝐸) 𝑊)    &   𝑋 = ((𝑢 𝐷) 𝑊)    &   𝐶 = ((𝑆 𝑉) (𝐸 ((𝑡 𝑆) 𝑊)))    &   𝐺 = ((𝑆 𝑋) (𝐷 ((𝑢 𝑆) 𝑊)))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ((𝑅 (𝑃 𝑄) ∧ 𝑆 (𝑃 𝑄)) ∧ ((𝑡𝐴 ∧ ¬ 𝑡 𝑊) ∧ ¬ 𝑡 (𝑃 𝑄)) ∧ ((𝑢𝐴 ∧ ¬ 𝑢 𝑊) ∧ ¬ 𝑢 (𝑃 𝑄)))) → 𝐶 = 𝐺)
 
Theoremcdleme38m 38404 Part of proof of Lemma E in [Crawley] p. 113. Show that f(x) is one-to-one on 𝑃 𝑄 line. TODO: FIX COMMENT. (Contributed by NM, 13-Mar-2013.)
= (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐷 = ((𝑢 𝑈) (𝑄 ((𝑃 𝑢) 𝑊)))    &   𝑉 = ((𝑡 𝐸) 𝑊)    &   𝑋 = ((𝑢 𝐷) 𝑊)    &   𝐹 = ((𝑅 𝑉) (𝐸 ((𝑡 𝑅) 𝑊)))    &   𝐺 = ((𝑆 𝑋) (𝐷 ((𝑢 𝑆) 𝑊)))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ((𝑅 (𝑃 𝑄) ∧ 𝑆 (𝑃 𝑄) ∧ 𝐹 = 𝐺) ∧ ((𝑡𝐴 ∧ ¬ 𝑡 𝑊) ∧ ¬ 𝑡 (𝑃 𝑄)) ∧ ((𝑢𝐴 ∧ ¬ 𝑢 𝑊) ∧ ¬ 𝑢 (𝑃 𝑄)))) → 𝑅 = 𝑆)
 
Theoremcdleme38n 38405 Part of proof of Lemma E in [Crawley] p. 113. Show that f(x) is one-to-one on 𝑃 𝑄 line. TODO: FIX COMMENT. TODO shorter if proved directly from cdleme36m 38402 and cdleme37m 38403? (Contributed by NM, 14-Mar-2013.)
= (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐷 = ((𝑢 𝑈) (𝑄 ((𝑃 𝑢) 𝑊)))    &   𝑉 = ((𝑡 𝐸) 𝑊)    &   𝑋 = ((𝑢 𝐷) 𝑊)    &   𝐹 = ((𝑅 𝑉) (𝐸 ((𝑡 𝑅) 𝑊)))    &   𝐺 = ((𝑆 𝑋) (𝐷 ((𝑢 𝑆) 𝑊)))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ((𝑅 (𝑃 𝑄) ∧ 𝑆 (𝑃 𝑄) ∧ 𝑅𝑆) ∧ ((𝑡𝐴 ∧ ¬ 𝑡 𝑊) ∧ ¬ 𝑡 (𝑃 𝑄)) ∧ ((𝑢𝐴 ∧ ¬ 𝑢 𝑊) ∧ ¬ 𝑢 (𝑃 𝑄)))) → 𝐹𝐺)
 
Theoremcdleme39a 38406 Part of proof of Lemma E in [Crawley] p. 113. Show that f(x) is one-to-one on 𝑃 𝑄 line. TODO: FIX COMMENT. 𝐸, 𝑌, 𝐺, 𝑍 serve as f(t), f(u), ft(𝑅), ft(𝑆). Put hypotheses of cdleme38n 38405 in convention of cdleme32sn1awN 38373. TODO see if this hypothesis conversion would be better if done earlier. (Contributed by NM, 15-Mar-2013.)
= (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑅 𝑡) 𝑊)))    &   𝑉 = ((𝑡 𝐸) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑃𝐴𝑄𝐴) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑅 (𝑃 𝑄) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊))) → 𝐺 = ((𝑅 𝑉) (𝐸 ((𝑡 𝑅) 𝑊))))
 
Theoremcdleme39n 38407 Part of proof of Lemma E in [Crawley] p. 113. Show that f(x) is one-to-one on 𝑃 𝑄 line. TODO: FIX COMMENT. 𝐸, 𝑌, 𝐺, 𝑍 serve as f(t), f(u), ft(𝑅), ft(𝑆). Put hypotheses of cdleme38n 38405 in convention of cdleme32sn1awN 38373. TODO see if this hypothesis conversion would be better if done earlier. (Contributed by NM, 15-Mar-2013.)
= (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑅 𝑡) 𝑊)))    &   𝑌 = ((𝑢 𝑈) (𝑄 ((𝑃 𝑢) 𝑊)))    &   𝑍 = ((𝑃 𝑄) (𝑌 ((𝑆 𝑢) 𝑊)))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ((𝑅 (𝑃 𝑄) ∧ 𝑆 (𝑃 𝑄) ∧ 𝑅𝑆) ∧ ((𝑡𝐴 ∧ ¬ 𝑡 𝑊) ∧ ¬ 𝑡 (𝑃 𝑄)) ∧ ((𝑢𝐴 ∧ ¬ 𝑢 𝑊) ∧ ¬ 𝑢 (𝑃 𝑄)))) → 𝐺𝑍)
 
Theoremcdleme40m 38408* Part of proof of Lemma E in [Crawley] p. 113. Show that f(x) is one-to-one on 𝑃 𝑄 line. TODO: FIX COMMENT Use proof idea from cdleme32sn1awN 38373. (Contributed by NM, 18-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))    &   𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))    &   𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)    &   𝑌 = ((𝑃 𝑄) (𝐸 ((𝑅 𝑡) 𝑊)))    &   𝐶 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝑌))    &   𝑇 = ((𝑣 𝑈) (𝑄 ((𝑃 𝑣) 𝑊)))    &   𝐹 = ((𝑃 𝑄) (𝑇 ((𝑆 𝑣) 𝑊)))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ((𝑅 (𝑃 𝑄) ∧ 𝑆 (𝑃 𝑄) ∧ 𝑅𝑆) ∧ (𝑣𝐴 ∧ ¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑃 𝑄)))) → 𝑅 / 𝑠𝑁𝐹)
 
Theoremcdleme40n 38409* Part of proof of Lemma E in [Crawley] p. 113. Show that f(x) is one-to-one on 𝑃 𝑄 line. TODO: FIX COMMENT. TODO get rid of '.<' class? (Contributed by NM, 18-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))    &   𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))    &   𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)    &   𝑌 = ((𝑃 𝑄) (𝐸 ((𝑅 𝑡) 𝑊)))    &   𝐶 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝑌))    &   𝑇 = ((𝑣 𝑈) (𝑄 ((𝑃 𝑣) 𝑊)))    &   𝐹 = ((𝑃 𝑄) (𝑇 ((𝑆 𝑣) 𝑊)))    &   𝑋 = ((𝑃 𝑄) (𝑇 ((𝑢 𝑣) 𝑊)))    &   𝑂 = (𝑧𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑃 𝑄)) → 𝑧 = 𝑋))    &   𝑉 = if(𝑢 (𝑃 𝑄), 𝑂, < )    &   𝑍 = (𝑧𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑃 𝑄)) → 𝑧 = 𝐹))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ 𝑆 (𝑃 𝑄) ∧ 𝑅𝑆)) → 𝑅 / 𝑠𝑁𝑆 / 𝑢𝑉)
 
Theoremcdleme40v 38410* Part of proof of Lemma E in [Crawley] p. 113. Change bound variables in 𝑆 / 𝑢𝑉 (but we use 𝑅 / 𝑢𝑉 for convenience since we have its hypotheses available). (Contributed by NM, 18-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))    &   𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))    &   𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)    &   𝐷 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))    &   𝑌 = ((𝑢 𝑈) (𝑄 ((𝑃 𝑢) 𝑊)))    &   𝑇 = ((𝑣 𝑈) (𝑄 ((𝑃 𝑣) 𝑊)))    &   𝑋 = ((𝑃 𝑄) (𝑇 ((𝑢 𝑣) 𝑊)))    &   𝑂 = (𝑧𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑃 𝑄)) → 𝑧 = 𝑋))    &   𝑉 = if(𝑢 (𝑃 𝑄), 𝑂, 𝑌)       (𝑅𝐴𝑅 / 𝑠𝑁 = 𝑅 / 𝑢𝑉)
 
Theoremcdleme40w 38411* Part of proof of Lemma E in [Crawley] p. 113. Apply cdleme40v 38410 bound variable change to 𝑆 / 𝑢𝑉. TODO: FIX COMMENT. (Contributed by NM, 19-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))    &   𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))    &   𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)    &   𝐷 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))    &   𝑌 = ((𝑢 𝑈) (𝑄 ((𝑃 𝑢) 𝑊)))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ 𝑆 (𝑃 𝑄) ∧ 𝑅𝑆)) → 𝑅 / 𝑠𝑁𝑆 / 𝑠𝑁)
 
Theoremcdleme42a 38412 Part of proof of Lemma E in [Crawley] p. 113. (Contributed by NM, 3-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑉 = ((𝑅 𝑆) 𝑊)       (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) → (𝑅 𝑆) = (𝑅 𝑉))
 
Theoremcdleme42c 38413 Part of proof of Lemma E in [Crawley] p. 113. Match ¬ 𝑥 𝑊. (Contributed by NM, 6-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑉 = ((𝑅 𝑆) 𝑊)       (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) → ¬ (𝑅 𝑉) 𝑊)
 
Theoremcdleme42d 38414 Part of proof of Lemma E in [Crawley] p. 113. Match (𝑠 (𝑥 𝑊)) = 𝑥. (Contributed by NM, 6-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑉 = ((𝑅 𝑆) 𝑊)       (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) → (𝑅 ((𝑅 𝑉) 𝑊)) = (𝑅 𝑉))
 
Theoremcdleme41sn3aw 38415* Part of proof of Lemma E in [Crawley] p. 113. Show that f(r) is different on and off the 𝑃 𝑄 line. TODO: FIX COMMENT. (Contributed by NM, 18-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))    &   𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))    &   𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄) ∧ 𝑅𝑆)) → 𝑅 / 𝑠𝑁𝑆 / 𝑠𝑁)
 
Theoremcdleme41sn4aw 38416* Part of proof of Lemma E in [Crawley] p. 113. Show that f(r) is for on and off 𝑃 𝑄 line. TODO: FIX COMMENT. (Contributed by NM, 19-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))    &   𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))    &   𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑆 (𝑃 𝑄) ∧ 𝑅𝑆)) → 𝑅 / 𝑠𝑁𝑆 / 𝑠𝑁)
 
Theoremcdleme41snaw 38417* Part of proof of Lemma E in [Crawley] p. 113. Show that f(r) is for combined cases; compare cdleme32snaw 38376. TODO: FIX COMMENT. (Contributed by NM, 18-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))    &   𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))    &   𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ 𝑅𝑆) → 𝑅 / 𝑠𝑁𝑆 / 𝑠𝑁)
 
Theoremcdleme41fva11 38418* Part of proof of Lemma E in [Crawley] p. 113. Show that f(r) is one-to-one for r in W (r an atom not under w). TODO: FIX COMMENT. (Contributed by NM, 19-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))    &   𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))    &   𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)    &   𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ 𝑅𝑆) → (𝐹𝑅) ≠ (𝐹𝑆))
 
Theoremcdleme42b 38419* Part of proof of Lemma E in [Crawley] p. 113. (Contributed by NM, 6-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))    &   𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))    &   𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)    &   𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑋𝐵 ∧ (𝑃𝑄 ∧ ¬ 𝑋 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑅 (𝑋 𝑊)) = 𝑋)) → (𝐹𝑋) = (𝑅 / 𝑠𝑁 (𝑋 𝑊)))
 
Theoremcdleme42e 38420* Part of proof of Lemma E in [Crawley] p. 113. (Contributed by NM, 8-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))    &   𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))    &   𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)    &   𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))    &   𝑉 = ((𝑅 𝑆) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ 𝑃𝑄) → (𝐹‘(𝑅 𝑉)) = (𝑅 / 𝑠𝑁 ((𝑅 𝑉) 𝑊)))
 
Theoremcdleme42f 38421* Part of proof of Lemma E in [Crawley] p. 113. (Contributed by NM, 8-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))    &   𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))    &   𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)    &   𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))    &   𝑉 = ((𝑅 𝑆) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ 𝑃𝑄) → (𝐹‘(𝑅 𝑉)) = ((𝐹𝑅) 𝑉))
 
Theoremcdleme42g 38422* Part of proof of Lemma E in [Crawley] p. 113. (Contributed by NM, 8-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))    &   𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))    &   𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)    &   𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))    &   𝑉 = ((𝑅 𝑆) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ 𝑃𝑄) → (𝐹‘(𝑅 𝑆)) = ((𝐹𝑅) 𝑉))
 
Theoremcdleme42h 38423* Part of proof of Lemma E in [Crawley] p. 113. (Contributed by NM, 8-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))    &   𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))    &   𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)    &   𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))    &   𝑉 = ((𝑅 𝑆) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ 𝑃𝑄) → (𝐹𝑆) ((𝐹𝑅) 𝑉))
 
Theoremcdleme42i 38424* Part of proof of Lemma E in [Crawley] p. 113. (Contributed by NM, 8-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))    &   𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))    &   𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)    &   𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))    &   𝑉 = ((𝑅 𝑆) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ 𝑃𝑄) → ((𝐹𝑅) (𝐹𝑆)) ((𝐹𝑅) 𝑉))
 
Theoremcdleme42k 38425* Part of proof of Lemma E in [Crawley] p. 113. Since F ' S =/= F'R when S =/= R (i.e. 1-1); then ( ( F ' R ) .\/ ( F ' S ) ) is 2-dim therefore = ( ( F ' R ) .\/ V ) by cdleme42i 38424 and ps-1 37418 TODO: FIX COMMENT. (Contributed by NM, 20-Mar-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))    &   𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))    &   𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)    &   𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))    &   𝑉 = ((𝑅 𝑆) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ 𝑅𝑆) → ((𝐹𝑅) (𝐹𝑆)) = ((𝐹𝑅) 𝑉))
 
Theoremcdleme42ke 38426* Part of proof of Lemma E in [Crawley] p. 113. Remove 𝑅𝑆 condition. TODO: FIX COMMENT. (Contributed by NM, 2-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))    &   𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))    &   𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)    &   𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))    &   𝑉 = ((𝑅 𝑆) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) → ((𝐹𝑅) (𝐹𝑆)) = ((𝐹𝑅) 𝑉))
 
Theoremcdleme42keg 38427* Part of proof of Lemma E in [Crawley] p. 113. Remove 𝑃𝑄 condition. TODO: FIX COMMENT. TODO: Use instead of cdleme42ke 38426 and even combine with it? (Contributed by NM, 22-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))    &   𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))    &   𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)    &   𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))    &   𝑉 = ((𝑅 𝑆) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) → ((𝐹𝑅) (𝐹𝑆)) = ((𝐹𝑅) 𝑉))
 
Theoremcdleme42mN 38428* Part of proof of Lemma E in [Crawley] p. 113. TODO: FIX COMMENT . f preserves join: f(r s) = f(r) s, p. 115 10th line from bottom. (Contributed by NM, 20-Mar-2013.) (New usage is discouraged.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))    &   𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))    &   𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)    &   𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) → (𝐹‘(𝑅 𝑆)) = ((𝐹𝑅) (𝐹𝑆)))
 
Theoremcdleme42mgN 38429* Part of proof of Lemma E in [Crawley] p. 113. TODO: FIX COMMENT . f preserves join: f(r s) = f(r) s, p. 115 10th line from bottom. TODO: Use instead of cdleme42mN 38428? Combine with cdleme42mN 38428? (Contributed by NM, 20-Mar-2013.) (New usage is discouraged.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))    &   𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))    &   𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))    &   𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)    &   𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) → (𝐹‘(𝑅 𝑆)) = ((𝐹𝑅) (𝐹𝑆)))
 
Theoremcdleme43aN 38430 Part of proof of Lemma E in [Crawley] p. 113. TODO: FIX COMMENT p. 115 penultimate line: g(f(r)) = (p v q) ^ (g(s) v v1). (Contributed by NM, 20-Mar-2013.) (New usage is discouraged.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝑋 = ((𝑄 𝑃) 𝑊)    &   𝐶 = ((𝑆 𝑈) (𝑄 ((𝑃 𝑆) 𝑊)))    &   𝑍 = ((𝑃 𝑄) (𝐶 ((𝑅 𝑆) 𝑊)))    &   𝐷 = ((𝑆 𝑋) (𝑃 ((𝑄 𝑆) 𝑊)))    &   𝐺 = ((𝑄 𝑃) (𝐷 ((𝑍 𝑆) 𝑊)))    &   𝐸 = ((𝐷 𝑈) (𝑄 ((𝑃 𝐷) 𝑊)))    &   𝑉 = ((𝑍 𝑆) 𝑊)    &   𝑌 = ((𝑅 𝐷) 𝑊)       ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → 𝐺 = ((𝑃 𝑄) (𝐷 𝑉)))
 
Theoremcdleme43bN 38431 Lemma for Lemma E in [Crawley] p. 113. g(s) is an atom not under w. (Contributed by NM, 20-Mar-2013.) (New usage is discouraged.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝑋 = ((𝑄 𝑃) 𝑊)    &   𝐶 = ((𝑆 𝑈) (𝑄 ((𝑃 𝑆) 𝑊)))    &   𝑍 = ((𝑃 𝑄) (𝐶 ((𝑅 𝑆) 𝑊)))    &   𝐷 = ((𝑆 𝑋) (𝑃 ((𝑄 𝑆) 𝑊)))    &   𝐺 = ((𝑄 𝑃) (𝐷 ((𝑍 𝑆) 𝑊)))    &   𝐸 = ((𝐷 𝑈) (𝑄 ((𝑃 𝐷) 𝑊)))    &   𝑉 = ((𝑍 𝑆) 𝑊)    &   𝑌 = ((𝑅 𝐷) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝐷𝐴 ∧ ¬ 𝐷 𝑊))
 
Theoremcdleme43cN 38432 Part of proof of Lemma E in [Crawley] p. 113. TODO: FIX COMMENT p. 115 last line: r v g(s) = r v v2. (Contributed by NM, 20-Mar-2013.) (New usage is discouraged.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝑋 = ((𝑄 𝑃) 𝑊)    &   𝐶 = ((𝑆 𝑈) (𝑄 ((𝑃 𝑆) 𝑊)))    &   𝑍 = ((𝑃 𝑄) (𝐶 ((𝑅 𝑆) 𝑊)))    &   𝐷 = ((𝑆 𝑋) (𝑃 ((𝑄 𝑆) 𝑊)))    &   𝐺 = ((𝑄 𝑃) (𝐷 ((𝑍 𝑆) 𝑊)))    &   𝐸 = ((𝐷 𝑈) (𝑄 ((𝑃 𝐷) 𝑊)))    &   𝑉 = ((𝑍 𝑆) 𝑊)    &   𝑌 = ((𝑅 𝐷) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑅 𝐷) = (𝑅 𝑌))
 
Theoremcdleme43dN 38433 Part of proof of Lemma E in [Crawley] p. 113. TODO: FIX COMMENT p. 116 2nd line: f(r) v s = f(r) v f(g(s)). (Contributed by NM, 20-Mar-2013.) (New usage is discouraged.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝑋 = ((𝑄 𝑃) 𝑊)    &   𝐶 = ((𝑆 𝑈) (𝑄 ((𝑃 𝑆) 𝑊)))    &   𝑍 = ((𝑃 𝑄) (𝐶 ((𝑅 𝑆) 𝑊)))    &   𝐷 = ((𝑆 𝑋) (𝑃 ((𝑄 𝑆) 𝑊)))    &   𝐺 = ((𝑄 𝑃) (𝐷 ((𝑍 𝑆) 𝑊)))    &   𝐸 = ((𝐷 𝑈) (𝑄 ((𝑃 𝐷) 𝑊)))    &   𝑉 = ((𝑍 𝑆) 𝑊)    &   𝑌 = ((𝑅 𝐷) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → (𝑍 𝑆) = (𝑍 𝐸))
 
Theoremcdleme46f2g2 38434 Conversion for 𝐺 to reuse 𝐹 theorems. TODO FIX COMMENT. TODO What other conversion theorems would be reused? e.g. cdlemeg46nlpq 38458? Find other hlatjcom 37309 uses giving 𝑄 𝑃. (Contributed by NM, 1-Apr-2013.)
= (join‘𝐾)    &   𝐴 = (Atoms‘𝐾)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑄𝑃 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑄 𝑃)))
 
Theoremcdleme46f2g1 38435 Conversion for 𝐺 to reuse 𝐹 theorems. TODO FIX COMMENT. (Contributed by NM, 1-Apr-2013.)
= (join‘𝐾)    &   𝐴 = (Atoms‘𝐾)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑄𝑃 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑄 𝑃) ∧ ¬ 𝑆 (𝑄 𝑃))))
 
Theoremcdleme17d2 38436* Part of proof of Lemma E in [Crawley] p. 114, first part of 4th paragraph. 𝐹, 𝐺 represent f(s), fs(p) respectively. We show, in their notation, fs(p)=q. TODO: FIX COMMENT. (Contributed by NM, 5-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝐹𝑃) = 𝑄)
 
Theoremcdleme17d3 38437* TODO: FIX COMMENT. (Contributed by NM, 5-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄) → (𝐹𝑃) = 𝑄)
 
Theoremcdleme17d4 38438* TODO: FIX COMMENT. (Contributed by NM, 11-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃 = 𝑄) → (𝐹𝑃) = 𝑄)
 
Theoremcdleme17d 38439* Part of proof of Lemma E in [Crawley] p. 114, first part of 4th paragraph. We show, in their notation, fs(p)=q. TODO FIX COMMENT. (Contributed by NM, 11-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (𝐹𝑃) = 𝑄)
 
Theoremcdleme48fv 38440* Part of proof of Lemma D in [Crawley] p. 113. TODO: Can this replace uses of cdleme32a 38382? TODO: Can this be used to help prove the 𝑅 or 𝑆 case where 𝑋 is an atom? (Contributed by NM, 8-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑆 (𝑋 𝑊)) = 𝑋)) → (𝐹𝑋) = ((𝐹𝑆) (𝑋 𝑊)))
 
Theoremcdleme48fvg 38441* Remove 𝑃𝑄 condition in cdleme48fv 38440. TODO: Can this replace uses of cdleme32a 38382? TODO: Can this be used to help prove the 𝑅 or 𝑆 case where 𝑋 is an atom? TODO: Can this be proved more directly by eliminating 𝑃𝑄 in earlier theorems? Should this replace uses of cdleme48fv 38440? (Contributed by NM, 23-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑆 (𝑋 𝑊)) = 𝑋)) → (𝐹𝑋) = ((𝐹𝑆) (𝑋 𝑊)))
 
Theoremcdleme46fvaw 38442* Show that (𝐹𝑅) is an atom not under 𝑊 when 𝑅 is an atom not under 𝑊. (Contributed by NM, 18-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) → ((𝐹𝑅) ∈ 𝐴 ∧ ¬ (𝐹𝑅) 𝑊))
 
Theoremcdleme48bw 38443* TODO: fix comment. TODO: Remove unnecessary 𝑃𝑄 from cdleme48bw 38443 cdlemeg46c 38454 cdlemeg46fvaw 38457 cdlemeg46rgv 38469 cdlemeg46gfv 38471? cdleme48d 38476? and possibly others they affect. (Contributed by NM, 9-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑆 (𝑋 𝑊)) = 𝑋)) → ¬ (𝐹𝑋) 𝑊)
 
Theoremcdleme48b 38444* TODO: fix comment. (Contributed by NM, 8-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑆 (𝑋 𝑊)) = 𝑋)) → ((𝐹𝑋) 𝑊) = (𝑋 𝑊))
 
Theoremcdleme46frvlpq 38445* Show that (𝐹𝑆) is not under 𝑃 𝑄 when 𝑆 isn't. (Contributed by NM, 1-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ¬ (𝐹𝑆) (𝑃 𝑄))
 
Theoremcdleme46fsvlpq 38446* Show that (𝐹𝑅) is under 𝑃 𝑄 when 𝑅 is. (Contributed by NM, 1-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝑅 (𝑃 𝑄)) → (𝐹𝑅) (𝑃 𝑄))
 
Theoremcdlemeg46fvcl 38447* TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑋𝐵) → (𝐺𝑋) ∈ 𝐵)
 
Theoremcdleme4gfv 38448* Part of proof of Lemma D in [Crawley] p. 113. TODO: Can this replace uses of cdleme32a 38382? TODO: Can this be used to help prove the 𝑅 or 𝑆 case where 𝑋 is an atom? TODO: Would an antecedent transformer like cdleme46f2g2 38434 help? (Contributed by NM, 8-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑆 (𝑋 𝑊)) = 𝑋)) → (𝐺𝑋) = ((𝐺𝑆) (𝑋 𝑊)))
 
Theoremcdlemeg47b 38449* TODO: FIX COMMENT. (Contributed by NM, 1-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝐺𝑆) = 𝑆 / 𝑣𝑁)
 
Theoremcdlemeg47rv 38450* Value of gs(r) when r is an atom under pq and s is any atom not under pq, using very compact hypotheses. TODO: FIX COMMENT. (Contributed by NM, 3-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → (𝐺𝑅) = 𝑅 / 𝑢𝑆 / 𝑣𝑂)
 
Theoremcdlemeg47rv2 38451* Value of gs(r) when r is an atom under pq and s is any atom not under pq, using very compact hypotheses. TODO: FIX COMMENT. (Contributed by NM, 1-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → (𝐺𝑅) = ((𝑄 𝑃) ((𝐺𝑆) ((𝑅 𝑆) 𝑊))))
 
Theoremcdlemeg49le 38452* Part of proof of Lemma D in [Crawley] p. 113. (Contributed by NM, 9-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑌) → (𝐺𝑋) (𝐺𝑌))
 
Theoremcdlemeg46bOLDN 38453* TODO FIX COMMENT. (Contributed by NM, 1-Apr-2013.) (New usage is discouraged.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝐺𝑆) = 𝑆 / 𝑣𝑁)
 
Theoremcdlemeg46c 38454* TODO FIX COMMENT. (Contributed by NM, 1-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝐹‘(𝐺𝑆)) = 𝑆 / 𝑣𝑁 / 𝑡𝐷)
 
Theoremcdlemeg46rvOLDN 38455* Value of gs(r) when r is an atom under pq and s is any atom not under pq, using very compact hypotheses. TODO FIX COMMENT. (Contributed by NM, 3-Apr-2013.) (New usage is discouraged.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → (𝐺𝑅) = 𝑅 / 𝑢𝑆 / 𝑣𝑂)
 
Theoremcdlemeg46rv2OLDN 38456* Value of gs(r) when r is an atom under pq and s is any atom not under pq, using very compact hypotheses. TODO FIX COMMENT. (Contributed by NM, 3-Apr-2013.) (New usage is discouraged.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → (𝐺𝑅) = ((𝑄 𝑃) ((𝐺𝑆) ((𝑅 𝑆) 𝑊))))
 
Theoremcdlemeg46fvaw 38457* Show that (𝐹𝑅) is an atom not under 𝑊 when 𝑅 is an atom not under 𝑊. (Contributed by NM, 1-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → ((𝐺𝑅) ∈ 𝐴 ∧ ¬ (𝐺𝑅) 𝑊))
 
Theoremcdlemeg46nlpq 38458* Show that (𝐺𝑆) is not under 𝑃 𝑄 when 𝑆 isn't. (Contributed by NM, 3-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ¬ (𝐺𝑆) (𝑃 𝑄))
 
Theoremcdlemeg46ngfr 38459* TODO FIX COMMENT g(f(s))=s p. 115 4th line from bottom. (Contributed by NM, 4-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝐺‘(𝐹𝑅)) = 𝑅)
 
Theoremcdlemeg46nfgr 38460* TODO FIX COMMENT f(g(s))=s p. 115 antepenultimate line. (Contributed by NM, 4-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝐹‘(𝐺𝑅)) = 𝑅)
 
Theoremcdlemeg46sfg 38461* TODO FIX COMMENT f(r) s = f(r) g(s) p. 116 2nd line TODO: eliminate eqcomd? (Contributed by NM, 4-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → ((𝐹𝑅) 𝑆) = ((𝐹𝑅) (𝐹‘(𝐺𝑆))))
 
Theoremcdlemeg46fjgN 38462* NOT NEEDED? TODO FIX COMMENT. TODO eliminate eqcomd 2744? p. 116 2nd line. (Contributed by NM, 2-Apr-2013.) (New usage is discouraged.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → ((𝐹𝑅) (𝐹‘(𝐺𝑆))) = (𝐹‘(𝑅 (𝐺𝑆))))
 
Theoremcdlemeg46rjgN 38463* NOT NEEDED? TODO FIX COMMENT. r g(s) = r v2 p. 115 last line. (Contributed by NM, 2-Apr-2013.) (New usage is discouraged.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))    &   𝑌 = ((𝑅 (𝐺𝑆)) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → (𝑅 (𝐺𝑆)) = (𝑅 𝑌))
 
Theoremcdlemeg46fjv 38464* TODO FIX COMMENT f(r) f(g(s)) = f(r) v2 p. 116 2nd line. (Contributed by NM, 2-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))    &   𝑌 = ((𝑅 (𝐺𝑆)) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → ((𝐹𝑅) (𝐹‘(𝐺𝑆))) = ((𝐹𝑅) 𝑌))
 
Theoremcdlemeg46fsfv 38465* TODO FIX COMMENT f(r) s = f(r) v2 p. 116 2nd line. (Contributed by NM, 2-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))    &   𝑌 = ((𝑅 (𝐺𝑆)) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → ((𝐹𝑅) 𝑆) = ((𝐹𝑅) 𝑌))
 
Theoremcdlemeg46frv 38466* TODO FIX COMMENT. (f(r) v2) w = v2 p. 116 3rd line. (Contributed by NM, 2-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))    &   𝑌 = ((𝑅 (𝐺𝑆)) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → (((𝐹𝑅) 𝑌) 𝑊) = 𝑌)
 
Theoremcdlemeg46v1v2 38467* TODO FIX COMMENT v1 = v2 p. 116 3rd line. (Contributed by NM, 2-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))    &   𝑌 = ((𝑅 (𝐺𝑆)) 𝑊)    &   𝑋 = (((𝐹𝑅) 𝑆) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝑋 = 𝑌)
 
Theoremcdlemeg46vrg 38468* TODO FIX COMMENT v1 r g(s) p. 116 3rd line. (Contributed by NM, 3-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))    &   𝑌 = ((𝑅 (𝐺𝑆)) 𝑊)    &   𝑋 = (((𝐹𝑅) 𝑆) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝑋 (𝑅 (𝐺𝑆)))
 
Theoremcdlemeg46rgv 38469* TODO FIX COMMENT r g(s) v1 p. 116 3rd line. (Contributed by NM, 3-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))    &   𝑌 = ((𝑅 (𝐺𝑆)) 𝑊)    &   𝑋 = (((𝐹𝑅) 𝑆) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝑅 ((𝐺𝑆) 𝑋))
 
Theoremcdlemeg46req 38470* TODO FIX COMMENT r = (v1 g(s)) p. 116 3rd line. (Contributed by NM, 3-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))    &   𝑌 = ((𝑅 (𝐺𝑆)) 𝑊)    &   𝑋 = (((𝐹𝑅) 𝑆) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝑅 = ((𝑃 𝑄) ((𝐺𝑆) 𝑋)))
 
Theoremcdlemeg46gfv 38471* TODO FIX COMMENT p. 115 penultimate line: g(f(r)) = (p v q) ^ (g(s) v v1). (Contributed by NM, 4-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))    &   𝑌 = ((𝑅 (𝐺𝑆)) 𝑊)    &   𝑋 = (((𝐹𝑅) 𝑆) 𝑊)       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → (𝐺‘(𝐹𝑅)) = ((𝑃 𝑄) ((𝐺𝑆) 𝑋)))
 
Theoremcdlemeg46gfr 38472* TODO FIX COMMENT p. 116 penultimate line: g(f(r)) = r. (Contributed by NM, 4-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → (𝐺‘(𝐹𝑅)) = 𝑅)
 
Theoremcdlemeg46gfre 38473* TODO FIX COMMENT p. 116 penultimate line: g(f(r)) = r. (Contributed by NM, 4-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝑅 (𝑃 𝑄)) → (𝐺‘(𝐹𝑅)) = 𝑅)
 
Theoremcdlemeg46gf 38474* TODO FIX COMMENT Eliminate antecedent 𝑅 (𝑃 𝑄). (Contributed by NM, 4-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊))) → (𝐺‘(𝐹𝑅)) = 𝑅)
 
Theoremcdlemeg46fgN 38475* TODO FIX COMMENT p. 116 penultimate line: f(g(r)) = r. (Contributed by NM, 4-Apr-2013.) (New usage is discouraged.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊))) → (𝐹‘(𝐺𝑅)) = 𝑅)
 
Theoremcdleme48d 38476* TODO: fix comment. (Contributed by NM, 8-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑆 (𝑋 𝑊)) = 𝑋)) → (𝐺‘(𝐹𝑋)) = 𝑋)
 
Theoremcdleme48gfv1 38477* TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → (𝐺‘(𝐹𝑋)) = 𝑋)
 
Theoremcdleme48gfv 38478* TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑋𝐵) → (𝐺‘(𝐹𝑋)) = 𝑋)
 
Theoremcdleme48fgv 38479* TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑋𝐵) → (𝐹‘(𝐺𝑋)) = 𝑋)
 
Theoremcdlemeg49lebilem 38480* Part of proof of Lemma D in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑋𝐵𝑌𝐵)) → (𝑋 𝑌 ↔ (𝐹𝑋) (𝐹𝑌)))
 
Theoremcdleme50lebi 38481* Part of proof of Lemma D in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑋𝐵𝑌𝐵)) → (𝑋 𝑌 ↔ (𝐹𝑋) (𝐹𝑌)))
 
Theoremcdleme50eq 38482* Part of proof of Lemma D in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑋𝐵𝑌𝐵)) → ((𝐹𝑋) = (𝐹𝑌) ↔ 𝑋 = 𝑌))
 
Theoremcdleme50f 38483* Part of proof of Lemma D in [Crawley] p. 113. TODO: fix comment. TODO: can we use just 𝐹 Fn 𝐵 since range is computed in cdleme50rn 38486? (Contributed by NM, 9-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → 𝐹:𝐵𝐵)
 
Theoremcdleme50f1 38484* Part of proof of Lemma D in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → 𝐹:𝐵1-1𝐵)
 
Theoremcdleme50rnlem 38485* Part of proof of Lemma D in [Crawley] p. 113. TODO: fix comment. TODO: can we get rid of 𝐺 stuff if we show 𝐺 = 𝐹 earlier? (Contributed by NM, 9-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → ran 𝐹 = 𝐵)
 
Theoremcdleme50rn 38486* Part of proof of Lemma D in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → ran 𝐹 = 𝐵)
 
Theoremcdleme50f1o 38487* Part of proof of Lemma D in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → 𝐹:𝐵1-1-onto𝐵)
 
Theoremcdleme50laut 38488* Part of proof of Lemma D in [Crawley] p. 113. 𝐹 is a lattice automorphism. TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝐼 = (LAut‘𝐾)       (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → 𝐹𝐼)
 
Theoremcdleme50ldil 38489* Part of proof of Lemma D in [Crawley] p. 113. 𝐹 is a lattice dilation. TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝐶 = ((LDil‘𝐾)‘𝑊)       (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → 𝐹𝐶)
 
Theoremcdleme50trn1 38490* Part of proof that 𝐹 is a translation. ¬ 𝑅 (𝑃 𝑄) case. TODO: fix comment. (Contributed by NM, 10-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → ((𝑅 (𝐹𝑅)) 𝑊) = 𝑈)
 
Theoremcdleme50trn2a 38491* Part of proof that 𝐹 is a translation. 𝑅 (𝑃 𝑄) case. TODO: fix comment. (Contributed by NM, 10-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → ((𝑅 (𝐹𝑅)) 𝑊) = 𝑈)
 
Theoremcdleme50trn2 38492* Part of proof that 𝐹 is a translation. Remove 𝑆 hypotheses no longer needed from cdleme50trn2a 38491. TODO: fix comment. (Contributed by NM, 10-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝑅 (𝑃 𝑄)) → ((𝑅 (𝐹𝑅)) 𝑊) = 𝑈)
 
Theoremcdleme50trn12 38493* Part of proof that 𝐹 is a translation. Combine 𝑅 (𝑃 𝑄) and ¬ 𝑅 (𝑃 𝑄) cases. TODO: fix comment. (Contributed by NM, 10-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊))) → ((𝑅 (𝐹𝑅)) 𝑊) = 𝑈)
 
Theoremcdleme50trn3 38494* Part of proof that 𝐹 is a translation. 𝑃 = 𝑄 case. TODO: fix comment. (Contributed by NM, 10-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃 = 𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊))) → ((𝑅 (𝐹𝑅)) 𝑊) = 𝑈)
 
Theoremcdleme50trn123 38495* Part of proof that 𝐹 is a translation. Combine all cases. TODO: fix comment. (Contributed by NM, 10-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) → ((𝑅 (𝐹𝑅)) 𝑊) = 𝑈)
 
Theoremcdleme51finvfvN 38496* Part of proof of Lemma E in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 14-Apr-2013.) (New usage is discouraged.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑋𝐵) → (𝐹𝑋) = (𝐺𝑋))
 
Theoremcdleme51finvN 38497* Part of proof of Lemma E in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 14-Apr-2013.) (New usage is discouraged.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑉 = ((𝑄 𝑃) 𝑊)    &   𝑁 = ((𝑣 𝑉) (𝑃 ((𝑄 𝑣) 𝑊)))    &   𝑂 = ((𝑄 𝑃) (𝑁 ((𝑢 𝑣) 𝑊)))    &   𝐺 = (𝑎𝐵 ↦ if((𝑄𝑃 ∧ ¬ 𝑎 𝑊), (𝑐𝐵𝑢𝐴 ((¬ 𝑢 𝑊 ∧ (𝑢 (𝑎 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 (𝑄 𝑃), (𝑏𝐵𝑣𝐴 ((¬ 𝑣 𝑊 ∧ ¬ 𝑣 (𝑄 𝑃)) → 𝑏 = 𝑂)), 𝑢 / 𝑣𝑁) (𝑎 𝑊)))), 𝑎))       (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → 𝐹 = 𝐺)
 
Theoremcdleme50ltrn 38498* Part of proof of Lemma E in [Crawley] p. 113. 𝐹 is a lattice translation. TODO: fix comment. (Contributed by NM, 10-Apr-2013.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑇 = ((LTrn‘𝐾)‘𝑊)       (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → 𝐹𝑇)
 
Theoremcdleme51finvtrN 38499* Part of proof of Lemma E in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 14-Apr-2013.) (New usage is discouraged.)
𝐵 = (Base‘𝐾)    &    = (le‘𝐾)    &    = (join‘𝐾)    &    = (meet‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑈 = ((𝑃 𝑄) 𝑊)    &   𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))    &   𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))    &   𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))    &   𝑇 = ((LTrn‘𝐾)‘𝑊)       (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → 𝐹𝑇)
 
Theoremcdleme50ex 38500* Part of Lemma E in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 11-Apr-2013.)
= (le‘𝐾)    &   𝐴 = (Atoms‘𝐾)    &   𝐻 = (LHyp‘𝐾)    &   𝑇 = ((LTrn‘𝐾)‘𝑊)       (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → ∃𝑓𝑇 (𝑓𝑃) = 𝑄)
    < Previous  Next >

Page List
Jump to page: Contents  1 1-100 2 101-200 3 201-300 4 301-400 5 401-500 6 501-600 7 601-700 8 701-800 9 801-900 10 901-1000 11 1001-1100 12 1101-1200 13 1201-1300 14 1301-1400 15 1401-1500 16 1501-1600 17 1601-1700 18 1701-1800 19 1801-1900 20 1901-2000 21 2001-2100 22 2101-2200 23 2201-2300 24 2301-2400 25 2401-2500 26 2501-2600 27 2601-2700 28 2701-2800 29 2801-2900 30 2901-3000 31 3001-3100 32 3101-3200 33 3201-3300 34 3301-3400 35 3401-3500 36 3501-3600 37 3601-3700 38 3701-3800 39 3801-3900 40 3901-4000 41 4001-4100 42 4101-4200 43 4201-4300 44 4301-4400 45 4401-4500 46 4501-4600 47 4601-4700 48 4701-4800 49 4801-4900 50 4901-5000 51 5001-5100 52 5101-5200 53 5201-5300 54 5301-5400 55 5401-5500 56 5501-5600 57 5601-5700 58 5701-5800 59 5801-5900 60 5901-6000 61 6001-6100 62 6101-6200 63 6201-6300 64 6301-6400 65 6401-6500 66 6501-6600 67 6601-6700 68 6701-6800 69 6801-6900 70 6901-7000 71 7001-7100 72 7101-7200 73 7201-7300 74 7301-7400 75 7401-7500 76 7501-7600 77 7601-7700 78 7701-7800 79 7801-7900 80 7901-8000 81 8001-8100 82 8101-8200 83 8201-8300 84 8301-8400 85 8401-8500 86 8501-8600 87 8601-8700 88 8701-8800 89 8801-8900 90 8901-9000 91 9001-9100 92 9101-9200 93 9201-9300 94 9301-9400 95 9401-9500 96 9501-9600 97 9601-9700 98 9701-9800 99 9801-9900 100 9901-10000 101 10001-10100 102 10101-10200 103 10201-10300 104 10301-10400 105 10401-10500 106 10501-10600 107 10601-10700 108 10701-10800 109 10801-10900 110 10901-11000 111 11001-11100 112 11101-11200 113 11201-11300 114 11301-11400 115 11401-11500 116 11501-11600 117 11601-11700 118 11701-11800 119 11801-11900 120 11901-12000 121 12001-12100 122 12101-12200 123 12201-12300 124 12301-12400 125 12401-12500 126 12501-12600 127 12601-12700 128 12701-12800 129 12801-12900 130 12901-13000 131 13001-13100 132 13101-13200 133 13201-13300 134 13301-13400 135 13401-13500 136 13501-13600 137 13601-13700 138 13701-13800 139 13801-13900 140 13901-14000 141 14001-14100 142 14101-14200 143 14201-14300 144 14301-14400 145 14401-14500 146 14501-14600 147 14601-14700 148 14701-14800 149 14801-14900 150 14901-15000 151 15001-15100 152 15101-15200 153 15201-15300 154 15301-15400 155 15401-15500 156 15501-15600 157 15601-15700 158 15701-15800 159 15801-15900 160 15901-16000 161 16001-16100 162 16101-16200 163 16201-16300 164 16301-16400 165 16401-16500 166 16501-16600 167 16601-16700 168 16701-16800 169 16801-16900 170 16901-17000 171 17001-17100 172 17101-17200 173 17201-17300 174 17301-17400 175 17401-17500 176 17501-17600 177 17601-17700 178 17701-17800 179 17801-17900 180 17901-18000 181 18001-18100 182 18101-18200 183 18201-18300 184 18301-18400 185 18401-18500 186 18501-18600 187 18601-18700 188 18701-18800 189 18801-18900 190 18901-19000 191 19001-19100 192 19101-19200 193 19201-19300 194 19301-19400 195 19401-19500 196 19501-19600 197 19601-19700 198 19701-19800 199 19801-19900 200 19901-20000 201 20001-20100 202 20101-20200 203 20201-20300 204 20301-20400 205 20401-20500 206 20501-20600 207 20601-20700 208 20701-20800 209 20801-20900 210 20901-21000 211 21001-21100 212 21101-21200 213 21201-21300 214 21301-21400 215 21401-21500 216 21501-21600 217 21601-21700 218 21701-21800 219 21801-21900 220 21901-22000 221 22001-22100 222 22101-22200 223 22201-22300 224 22301-22400 225 22401-22500 226 22501-22600 227 22601-22700 228 22701-22800 229 22801-22900 230 22901-23000 231 23001-23100 232 23101-23200 233 23201-23300 234 23301-23400 235 23401-23500 236 23501-23600 237 23601-23700 238 23701-23800 239 23801-23900 240 23901-24000 241 24001-24100 242 24101-24200 243 24201-24300 244 24301-24400 245 24401-24500 246 24501-24600 247 24601-24700 248 24701-24800 249 24801-24900 250 24901-25000 251 25001-25100 252 25101-25200 253 25201-25300 254 25301-25400 255 25401-25500 256 25501-25600 257 25601-25700 258 25701-25800 259 25801-25900 260 25901-26000 261 26001-26100 262 26101-26200 263 26201-26300 264 26301-26400 265 26401-26500 266 26501-26600 267 26601-26700 268 26701-26800 269 26801-26900 270 26901-27000 271 27001-27100 272 27101-27200 273 27201-27300 274 27301-27400 275 27401-27500 276 27501-27600 277 27601-27700 278 27701-27800 279 27801-27900 280 27901-28000 281 28001-28100 282 28101-28200 283 28201-28300 284 28301-28400 285 28401-28500 286 28501-28600 287 28601-28700 288 28701-28800 289 28801-28900 290 28901-29000 291 29001-29100 292 29101-29200 293 29201-29300 294 29301-29400 295 29401-29500 296 29501-29600 297 29601-29700 298 29701-29800 299 29801-29900 300 29901-30000 301 30001-30100 302 30101-30200 303 30201-30300 304 30301-30400 305 30401-30500 306 30501-30600 307 30601-30700 308 30701-30800 309 30801-30900 310 30901-31000 311 31001-31100 312 31101-31200 313 31201-31300 314 31301-31400 315 31401-31500 316 31501-31600 317 31601-31700 318 31701-31800 319 31801-31900 320 31901-32000 321 32001-32100 322 32101-32200 323 32201-32300 324 32301-32400 325 32401-32500 326 32501-32600 327 32601-32700 328 32701-32800 329 32801-32900 330 32901-33000 331 33001-33100 332 33101-33200 333 33201-33300 334 33301-33400 335 33401-33500 336 33501-33600 337 33601-33700 338 33701-33800 339 33801-33900 340 33901-34000 341 34001-34100 342 34101-34200 343 34201-34300 344 34301-34400 345 34401-34500 346 34501-34600 347 34601-34700 348 34701-34800 349 34801-34900 350 34901-35000 351 35001-35100 352 35101-35200 353 35201-35300 354 35301-35400 355 35401-35500 356 35501-35600 357 35601-35700 358 35701-35800 359 35801-35900 360 35901-36000 361 36001-36100 362 36101-36200 363 36201-36300 364 36301-36400 365 36401-36500 366 36501-36600 367 36601-36700 368 36701-36800 369 36801-36900 370 36901-37000 371 37001-37100 372 37101-37200 373 37201-37300 374 37301-37400 375 37401-37500 376 37501-37600 377 37601-37700 378 37701-37800 379 37801-37900 380 37901-38000 381 38001-38100 382 38101-38200 383 38201-38300 384 38301-38400 385 38401-38500 386 38501-38600 387 38601-38700 388 38701-38800 389 38801-38900 390 38901-39000 391 39001-39100 392 39101-39200 393 39201-39300 394 39301-39400 395 39401-39500 396 39501-39600 397 39601-39700 398 39701-39800 399 39801-39900 400 39901-40000 401 40001-40100 402 40101-40200 403 40201-40300 404 40301-40400 405 40401-40500 406 40501-40600 407 40601-40700 408 40701-40800 409 40801-40900 410 40901-41000 411 41001-41100 412 41101-41200 413 41201-41300 414 41301-41400 415 41401-41500 416 41501-41600 417 41601-41700 418 41701-41800 419 41801-41900 420 41901-42000 421 42001-42100 422 42101-42200 423 42201-42300 424 42301-42400 425 42401-42500 426 42501-42600 427 42601-42700 428 42701-42800 429 42801-42900 430 42901-43000 431 43001-43100 432 43101-43200 433 43201-43300 434 43301-43400 435 43401-43500 436 43501-43600 437 43601-43700 438 43701-43800 439 43801-43900 440 43901-44000 441 44001-44100 442 44101-44200 443 44201-44300 444 44301-44400 445 44401-44500 446 44501-44600 447 44601-44700 448 44701-44800 449 44801-44900 450 44901-45000 451 45001-45100 452 45101-45200 453 45201-45300 454 45301-45400 455 45401-45500 456 45501-45600 457 45601-45700 458 45701-45800 459 45801-45900 460 45901-46000 461 46001-46100 462 46101-46200 463 46201-46300 464 46301-46395
  Copyright terms: Public domain < Previous  Next >