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

Theorem llncvrlpln2 40220
Description: A lattice line under a lattice plane is covered by it. (Contributed by NM, 24-Jun-2012.)
Hypotheses
Ref Expression
llncvrlpln2.l = (le‘𝐾)
llncvrlpln2.c 𝐶 = ( ⋖ ‘𝐾)
llncvrlpln2.n 𝑁 = (LLines‘𝐾)
llncvrlpln2.p 𝑃 = (LPlanes‘𝐾)
Assertion
Ref Expression
llncvrlpln2 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → 𝑋𝐶𝑌)

Proof of Theorem llncvrlpln2
Dummy variables 𝑞 𝑝 𝑟 𝑠 𝑡 𝑢 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpr 489 . . 3 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → 𝑋 𝑌)
2 simpl1 1208 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → 𝐾 ∈ HL)
3 simpl3 1210 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → 𝑌𝑃)
4 llncvrlpln2.n . . . . . 6 𝑁 = (LLines‘𝐾)
5 llncvrlpln2.p . . . . . 6 𝑃 = (LPlanes‘𝐾)
64, 5lplnnelln 40209 . . . . 5 ((𝐾 ∈ HL ∧ 𝑌𝑃) → ¬ 𝑌𝑁)
72, 3, 6syl2anc 595 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → ¬ 𝑌𝑁)
8 simpl2 1209 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → 𝑋𝑁)
9 eleq1 2857 . . . . . 6 (𝑋 = 𝑌 → (𝑋𝑁𝑌𝑁))
108, 9syl5ibcom 248 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → (𝑋 = 𝑌𝑌𝑁))
1110necon3bd 2978 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → (¬ 𝑌𝑁𝑋𝑌))
127, 11mpd 16 . . 3 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → 𝑋𝑌)
13 llncvrlpln2.l . . . . 5 = (le‘𝐾)
14 eqid 2769 . . . . 5 (lt‘𝐾) = (lt‘𝐾)
1513, 14pltval 18385 . . . 4 ((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) → (𝑋(lt‘𝐾)𝑌 ↔ (𝑋 𝑌𝑋𝑌)))
1615adantr 485 . . 3 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → (𝑋(lt‘𝐾)𝑌 ↔ (𝑋 𝑌𝑋𝑌)))
171, 12, 16mpbir2and 725 . 2 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → 𝑋(lt‘𝐾)𝑌)
18 simpl1 1208 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋(lt‘𝐾)𝑌) → 𝐾 ∈ HL)
19 simpl2 1209 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋(lt‘𝐾)𝑌) → 𝑋𝑁)
20 eqid 2769 . . . . . 6 (Base‘𝐾) = (Base‘𝐾)
2120, 4llnbase 40172 . . . . 5 (𝑋𝑁𝑋 ∈ (Base‘𝐾))
2219, 21syl 18 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋(lt‘𝐾)𝑌) → 𝑋 ∈ (Base‘𝐾))
23 simpl3 1210 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋(lt‘𝐾)𝑌) → 𝑌𝑃)
2420, 5lplnbase 40197 . . . . 5 (𝑌𝑃𝑌 ∈ (Base‘𝐾))
2523, 24syl 18 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋(lt‘𝐾)𝑌) → 𝑌 ∈ (Base‘𝐾))
26 simpr 489 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋(lt‘𝐾)𝑌) → 𝑋(lt‘𝐾)𝑌)
27 eqid 2769 . . . . 5 (join‘𝐾) = (join‘𝐾)
28 llncvrlpln2.c . . . . 5 𝐶 = ( ⋖ ‘𝐾)
29 eqid 2769 . . . . 5 (Atoms‘𝐾) = (Atoms‘𝐾)
3020, 13, 14, 27, 28, 29hlrelat3 40075 . . . 4 (((𝐾 ∈ HL ∧ 𝑋 ∈ (Base‘𝐾) ∧ 𝑌 ∈ (Base‘𝐾)) ∧ 𝑋(lt‘𝐾)𝑌) → ∃𝑟 ∈ (Atoms‘𝐾)(𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌))
3118, 22, 25, 26, 30syl31anc 1398 . . 3 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋(lt‘𝐾)𝑌) → ∃𝑟 ∈ (Atoms‘𝐾)(𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌))
3220, 13, 27, 29, 5islpln2 40199 . . . . . . . 8 (𝐾 ∈ HL → (𝑌𝑃 ↔ (𝑌 ∈ (Base‘𝐾) ∧ ∃𝑠 ∈ (Atoms‘𝐾)∃𝑡 ∈ (Atoms‘𝐾)∃𝑢 ∈ (Atoms‘𝐾)(𝑠𝑡 ∧ ¬ 𝑢 (𝑠(join‘𝐾)𝑡) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢)))))
3332adantr 485 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑋𝑁) → (𝑌𝑃 ↔ (𝑌 ∈ (Base‘𝐾) ∧ ∃𝑠 ∈ (Atoms‘𝐾)∃𝑡 ∈ (Atoms‘𝐾)∃𝑢 ∈ (Atoms‘𝐾)(𝑠𝑡 ∧ ¬ 𝑢 (𝑠(join‘𝐾)𝑡) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢)))))
34 simp3 1154 . . . . . . . . . . 11 ((𝑠𝑡 ∧ ¬ 𝑢 (𝑠(join‘𝐾)𝑡) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢)) → 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢))
3520, 27, 29, 4islln2 40174 . . . . . . . . . . . . 13 (𝐾 ∈ HL → (𝑋𝑁 ↔ (𝑋 ∈ (Base‘𝐾) ∧ ∃𝑝 ∈ (Atoms‘𝐾)∃𝑞 ∈ (Atoms‘𝐾)(𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)))))
36 simp3l 1218 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑋𝐶(𝑋(join‘𝐾)𝑟))
37 simp3r 1219 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → (𝑋(join‘𝐾)𝑟) 𝑌)
38 simp12r 1304 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑋 = (𝑝(join‘𝐾)𝑞))
3938oveq1d 7426 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → (𝑋(join‘𝐾)𝑟) = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))
40 simp22 1224 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢))
4137, 39, 403brtr3d 5146 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟) ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢))
42 simp111 1319 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝐾 ∈ HL)
43 simp112 1320 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑝 ∈ (Atoms‘𝐾))
44 simp113 1321 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑞 ∈ (Atoms‘𝐾))
45 simp23 1225 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑟 ∈ (Atoms‘𝐾))
4643, 44, 453jca 1144 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾) ∧ 𝑟 ∈ (Atoms‘𝐾)))
47 simp13l 1305 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑠 ∈ (Atoms‘𝐾))
48 simp13r 1306 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑡 ∈ (Atoms‘𝐾))
49 simp21 1223 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑢 ∈ (Atoms‘𝐾))
5047, 48, 493jca 1144 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)))
5136, 38, 393brtr3d 5146 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → (𝑝(join‘𝐾)𝑞)𝐶((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))
5220, 27, 29hlatjcl 40030 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) → (𝑝(join‘𝐾)𝑞) ∈ (Base‘𝐾))
5342, 43, 44, 52syl3anc 1396 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → (𝑝(join‘𝐾)𝑞) ∈ (Base‘𝐾))
5420, 13, 27, 28, 29cvr1 40073 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝐾 ∈ HL ∧ (𝑝(join‘𝐾)𝑞) ∈ (Base‘𝐾) ∧ 𝑟 ∈ (Atoms‘𝐾)) → (¬ 𝑟 (𝑝(join‘𝐾)𝑞) ↔ (𝑝(join‘𝐾)𝑞)𝐶((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)))
5542, 53, 45, 54syl3anc 1396 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → (¬ 𝑟 (𝑝(join‘𝐾)𝑞) ↔ (𝑝(join‘𝐾)𝑞)𝐶((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)))
5651, 55mpbird 260 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → ¬ 𝑟 (𝑝(join‘𝐾)𝑞))
57 simp12l 1303 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑝𝑞)
5813, 27, 293at 40153 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾))) ∧ (¬ 𝑟 (𝑝(join‘𝐾)𝑞) ∧ 𝑝𝑞)) → (((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟) ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ↔ ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟) = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢)))
5942, 46, 50, 56, 57, 58syl32anc 1403 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → (((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟) ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ↔ ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟) = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢)))
6041, 59mpbid 235 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟) = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢))
6160, 39, 403eqtr4d 2814 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → (𝑋(join‘𝐾)𝑟) = 𝑌)
6236, 61breqtrd 5141 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑋𝐶𝑌)
63623exp 1135 . . . . . . . . . . . . . . . . . 18 (((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) → ((𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌)))
64633expd 1370 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) → (𝑢 ∈ (Atoms‘𝐾) → (𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌)))))
65643exp 1135 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) → ((𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) → ((𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾)) → (𝑢 ∈ (Atoms‘𝐾) → (𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌)))))))
66653expib 1138 . . . . . . . . . . . . . . 15 (𝐾 ∈ HL → ((𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) → ((𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) → ((𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾)) → (𝑢 ∈ (Atoms‘𝐾) → (𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌))))))))
6766rexlimdvv 3227 . . . . . . . . . . . . . 14 (𝐾 ∈ HL → (∃𝑝 ∈ (Atoms‘𝐾)∃𝑞 ∈ (Atoms‘𝐾)(𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) → ((𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾)) → (𝑢 ∈ (Atoms‘𝐾) → (𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌)))))))
6867adantld 495 . . . . . . . . . . . . 13 (𝐾 ∈ HL → ((𝑋 ∈ (Base‘𝐾) ∧ ∃𝑝 ∈ (Atoms‘𝐾)∃𝑞 ∈ (Atoms‘𝐾)(𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞))) → ((𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾)) → (𝑢 ∈ (Atoms‘𝐾) → (𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌)))))))
6935, 68sylbid 243 . . . . . . . . . . . 12 (𝐾 ∈ HL → (𝑋𝑁 → ((𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾)) → (𝑢 ∈ (Atoms‘𝐾) → (𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌)))))))
7069imp31 422 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑋𝑁) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) → (𝑢 ∈ (Atoms‘𝐾) → (𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌)))))
7134, 70syl7 75 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑋𝑁) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) → (𝑢 ∈ (Atoms‘𝐾) → ((𝑠𝑡 ∧ ¬ 𝑢 (𝑠(join‘𝐾)𝑡) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢)) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌)))))
7271rexlimdv 3170 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑋𝑁) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) → (∃𝑢 ∈ (Atoms‘𝐾)(𝑠𝑡 ∧ ¬ 𝑢 (𝑠(join‘𝐾)𝑡) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢)) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌))))
7372rexlimdvva 3228 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑋𝑁) → (∃𝑠 ∈ (Atoms‘𝐾)∃𝑡 ∈ (Atoms‘𝐾)∃𝑢 ∈ (Atoms‘𝐾)(𝑠𝑡 ∧ ¬ 𝑢 (𝑠(join‘𝐾)𝑡) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢)) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌))))
7473adantld 495 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑋𝑁) → ((𝑌 ∈ (Base‘𝐾) ∧ ∃𝑠 ∈ (Atoms‘𝐾)∃𝑡 ∈ (Atoms‘𝐾)∃𝑢 ∈ (Atoms‘𝐾)(𝑠𝑡 ∧ ¬ 𝑢 (𝑠(join‘𝐾)𝑡) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢))) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌))))
7533, 74sylbid 243 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑋𝑁) → (𝑌𝑃 → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌))))
76753impia 1133 . . . . 5 ((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌)))
7776rexlimdv 3170 . . . 4 ((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) → (∃𝑟 ∈ (Atoms‘𝐾)(𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌))
7877imp 411 . . 3 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ ∃𝑟 ∈ (Atoms‘𝐾)(𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑋𝐶𝑌)
7931, 78syldan 602 . 2 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋(lt‘𝐾)𝑌) → 𝑋𝐶𝑌)
8017, 79syldan 602 1 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → 𝑋𝐶𝑌)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 400  w3a 1101   = wceq 1567  wcel 2149  wne 2964  wrex 3095   class class class wbr 5113  cfv 6537  (class class class)co 7411  Basecbs 17268  lecple 17316  ltcplt 18363  joincjn 18366  ccvr 39925  Atomscatm 39926  HLchlt 40013  LLinesclln 40154  LPlanesclpl 40155
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5242  ax-sep 5261  ax-nul 5271  ax-pow 5337  ax-pr 5405  ax-un 7733
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-iun 4962  df-br 5114  df-opab 5178  df-mpt 5197  df-id 5557  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7368  df-ov 7414  df-oprab 7415  df-proset 18349  df-poset 18368  df-plt 18383  df-lub 18399  df-glb 18400  df-join 18401  df-meet 18402  df-p0 18478  df-lat 18487  df-clat 18554  df-oposet 39839  df-ol 39841  df-oml 39842  df-covers 39929  df-ats 39930  df-atl 39961  df-cvlat 39985  df-hlat 40014  df-llines 40161  df-lplanes 40162
This theorem is referenced by:  llncvrlpln  40221  2llnmj  40223  lplncmp  40225  lplnexatN  40226  2llnm2N  40231  2lplnmj  40285
  Copyright terms: Public domain W3C validator