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 36144
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 477 . . 3 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → 𝑋 𝑌)
2 simpl1 1171 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → 𝐾 ∈ HL)
3 simpl3 1173 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → 𝑌𝑃)
4 llncvrlpln2.n . . . . . 6 𝑁 = (LLines‘𝐾)
5 llncvrlpln2.p . . . . . 6 𝑃 = (LPlanes‘𝐾)
64, 5lplnnelln 36133 . . . . 5 ((𝐾 ∈ HL ∧ 𝑌𝑃) → ¬ 𝑌𝑁)
72, 3, 6syl2anc 576 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → ¬ 𝑌𝑁)
8 simpl2 1172 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → 𝑋𝑁)
9 eleq1 2853 . . . . . 6 (𝑋 = 𝑌 → (𝑋𝑁𝑌𝑁))
108, 9syl5ibcom 237 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → (𝑋 = 𝑌𝑌𝑁))
1110necon3bd 2981 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → (¬ 𝑌𝑁𝑋𝑌))
127, 11mpd 15 . . 3 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → 𝑋𝑌)
13 llncvrlpln2.l . . . . 5 = (le‘𝐾)
14 eqid 2778 . . . . 5 (lt‘𝐾) = (lt‘𝐾)
1513, 14pltval 17428 . . . 4 ((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) → (𝑋(lt‘𝐾)𝑌 ↔ (𝑋 𝑌𝑋𝑌)))
1615adantr 473 . . 3 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → (𝑋(lt‘𝐾)𝑌 ↔ (𝑋 𝑌𝑋𝑌)))
171, 12, 16mpbir2and 700 . 2 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → 𝑋(lt‘𝐾)𝑌)
18 simpl1 1171 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋(lt‘𝐾)𝑌) → 𝐾 ∈ HL)
19 simpl2 1172 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋(lt‘𝐾)𝑌) → 𝑋𝑁)
20 eqid 2778 . . . . . 6 (Base‘𝐾) = (Base‘𝐾)
2120, 4llnbase 36096 . . . . 5 (𝑋𝑁𝑋 ∈ (Base‘𝐾))
2219, 21syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋(lt‘𝐾)𝑌) → 𝑋 ∈ (Base‘𝐾))
23 simpl3 1173 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋(lt‘𝐾)𝑌) → 𝑌𝑃)
2420, 5lplnbase 36121 . . . . 5 (𝑌𝑃𝑌 ∈ (Base‘𝐾))
2523, 24syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋(lt‘𝐾)𝑌) → 𝑌 ∈ (Base‘𝐾))
26 simpr 477 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋(lt‘𝐾)𝑌) → 𝑋(lt‘𝐾)𝑌)
27 eqid 2778 . . . . 5 (join‘𝐾) = (join‘𝐾)
28 llncvrlpln2.c . . . . 5 𝐶 = ( ⋖ ‘𝐾)
29 eqid 2778 . . . . 5 (Atoms‘𝐾) = (Atoms‘𝐾)
3020, 13, 14, 27, 28, 29hlrelat3 35999 . . . 4 (((𝐾 ∈ HL ∧ 𝑋 ∈ (Base‘𝐾) ∧ 𝑌 ∈ (Base‘𝐾)) ∧ 𝑋(lt‘𝐾)𝑌) → ∃𝑟 ∈ (Atoms‘𝐾)(𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌))
3118, 22, 25, 26, 30syl31anc 1353 . . 3 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋(lt‘𝐾)𝑌) → ∃𝑟 ∈ (Atoms‘𝐾)(𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌))
3220, 13, 27, 29, 5islpln2 36123 . . . . . . . 8 (𝐾 ∈ HL → (𝑌𝑃 ↔ (𝑌 ∈ (Base‘𝐾) ∧ ∃𝑠 ∈ (Atoms‘𝐾)∃𝑡 ∈ (Atoms‘𝐾)∃𝑢 ∈ (Atoms‘𝐾)(𝑠𝑡 ∧ ¬ 𝑢 (𝑠(join‘𝐾)𝑡) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢)))))
3332adantr 473 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑋𝑁) → (𝑌𝑃 ↔ (𝑌 ∈ (Base‘𝐾) ∧ ∃𝑠 ∈ (Atoms‘𝐾)∃𝑡 ∈ (Atoms‘𝐾)∃𝑢 ∈ (Atoms‘𝐾)(𝑠𝑡 ∧ ¬ 𝑢 (𝑠(join‘𝐾)𝑡) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢)))))
34 simp3 1118 . . . . . . . . . . 11 ((𝑠𝑡 ∧ ¬ 𝑢 (𝑠(join‘𝐾)𝑡) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢)) → 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢))
3520, 27, 29, 4islln2 36098 . . . . . . . . . . . . 13 (𝐾 ∈ HL → (𝑋𝑁 ↔ (𝑋 ∈ (Base‘𝐾) ∧ ∃𝑝 ∈ (Atoms‘𝐾)∃𝑞 ∈ (Atoms‘𝐾)(𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)))))
36 simp3l 1181 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑋𝐶(𝑋(join‘𝐾)𝑟))
37 simp3r 1182 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → (𝑋(join‘𝐾)𝑟) 𝑌)
38 simp12r 1267 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑋 = (𝑝(join‘𝐾)𝑞))
3938oveq1d 6991 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → (𝑋(join‘𝐾)𝑟) = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))
40 simp22 1187 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢))
4137, 39, 403brtr3d 4960 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟) ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢))
42 simp111 1282 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝐾 ∈ HL)
43 simp112 1283 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑝 ∈ (Atoms‘𝐾))
44 simp113 1284 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑞 ∈ (Atoms‘𝐾))
45 simp23 1188 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑟 ∈ (Atoms‘𝐾))
4643, 44, 453jca 1108 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾) ∧ 𝑟 ∈ (Atoms‘𝐾)))
47 simp13l 1268 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑠 ∈ (Atoms‘𝐾))
48 simp13r 1269 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑡 ∈ (Atoms‘𝐾))
49 simp21 1186 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑢 ∈ (Atoms‘𝐾))
5047, 48, 493jca 1108 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)))
5136, 38, 393brtr3d 4960 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → (𝑝(join‘𝐾)𝑞)𝐶((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))
5220, 27, 29hlatjcl 35954 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) → (𝑝(join‘𝐾)𝑞) ∈ (Base‘𝐾))
5342, 43, 44, 52syl3anc 1351 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → (𝑝(join‘𝐾)𝑞) ∈ (Base‘𝐾))
5420, 13, 27, 28, 29cvr1 35997 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝐾 ∈ HL ∧ (𝑝(join‘𝐾)𝑞) ∈ (Base‘𝐾) ∧ 𝑟 ∈ (Atoms‘𝐾)) → (¬ 𝑟 (𝑝(join‘𝐾)𝑞) ↔ (𝑝(join‘𝐾)𝑞)𝐶((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)))
5542, 53, 45, 54syl3anc 1351 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → (¬ 𝑟 (𝑝(join‘𝐾)𝑞) ↔ (𝑝(join‘𝐾)𝑞)𝐶((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)))
5651, 55mpbird 249 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → ¬ 𝑟 (𝑝(join‘𝐾)𝑞))
57 simp12l 1266 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑝𝑞)
5813, 27, 293at 36077 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾))) ∧ (¬ 𝑟 (𝑝(join‘𝐾)𝑞) ∧ 𝑝𝑞)) → (((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟) ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ↔ ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟) = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢)))
5942, 46, 50, 56, 57, 58syl32anc 1358 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → (((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟) ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ↔ ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟) = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢)))
6041, 59mpbid 224 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟) = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢))
6160, 39, 403eqtr4d 2824 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → (𝑋(join‘𝐾)𝑟) = 𝑌)
6236, 61breqtrd 4955 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑋𝐶𝑌)
63623exp 1099 . . . . . . . . . . . . . . . . . 18 (((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) → ((𝑢 ∈ (Atoms‘𝐾) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) ∧ 𝑟 ∈ (Atoms‘𝐾)) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌)))
64633expd 1333 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) → (𝑢 ∈ (Atoms‘𝐾) → (𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌)))))
65643exp 1099 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) → ((𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) → ((𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾)) → (𝑢 ∈ (Atoms‘𝐾) → (𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌)))))))
66653expib 1102 . . . . . . . . . . . . . . 15 (𝐾 ∈ HL → ((𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) → ((𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) → ((𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾)) → (𝑢 ∈ (Atoms‘𝐾) → (𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌))))))))
6766rexlimdvv 3238 . . . . . . . . . . . . . 14 (𝐾 ∈ HL → (∃𝑝 ∈ (Atoms‘𝐾)∃𝑞 ∈ (Atoms‘𝐾)(𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞)) → ((𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾)) → (𝑢 ∈ (Atoms‘𝐾) → (𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌)))))))
6867adantld 483 . . . . . . . . . . . . 13 (𝐾 ∈ HL → ((𝑋 ∈ (Base‘𝐾) ∧ ∃𝑝 ∈ (Atoms‘𝐾)∃𝑞 ∈ (Atoms‘𝐾)(𝑝𝑞𝑋 = (𝑝(join‘𝐾)𝑞))) → ((𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾)) → (𝑢 ∈ (Atoms‘𝐾) → (𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌)))))))
6935, 68sylbid 232 . . . . . . . . . . . 12 (𝐾 ∈ HL → (𝑋𝑁 → ((𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾)) → (𝑢 ∈ (Atoms‘𝐾) → (𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌)))))))
7069imp31 410 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑋𝑁) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) → (𝑢 ∈ (Atoms‘𝐾) → (𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌)))))
7134, 70syl7 74 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑋𝑁) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) → (𝑢 ∈ (Atoms‘𝐾) → ((𝑠𝑡 ∧ ¬ 𝑢 (𝑠(join‘𝐾)𝑡) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢)) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌)))))
7271rexlimdv 3228 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑋𝑁) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾))) → (∃𝑢 ∈ (Atoms‘𝐾)(𝑠𝑡 ∧ ¬ 𝑢 (𝑠(join‘𝐾)𝑡) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢)) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌))))
7372rexlimdvva 3239 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑋𝑁) → (∃𝑠 ∈ (Atoms‘𝐾)∃𝑡 ∈ (Atoms‘𝐾)∃𝑢 ∈ (Atoms‘𝐾)(𝑠𝑡 ∧ ¬ 𝑢 (𝑠(join‘𝐾)𝑡) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢)) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌))))
7473adantld 483 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑋𝑁) → ((𝑌 ∈ (Base‘𝐾) ∧ ∃𝑠 ∈ (Atoms‘𝐾)∃𝑡 ∈ (Atoms‘𝐾)∃𝑢 ∈ (Atoms‘𝐾)(𝑠𝑡 ∧ ¬ 𝑢 (𝑠(join‘𝐾)𝑡) ∧ 𝑌 = ((𝑠(join‘𝐾)𝑡)(join‘𝐾)𝑢))) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌))))
7533, 74sylbid 232 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑋𝑁) → (𝑌𝑃 → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌))))
76753impia 1097 . . . . 5 ((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) → (𝑟 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌)))
7776rexlimdv 3228 . . . 4 ((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) → (∃𝑟 ∈ (Atoms‘𝐾)(𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌) → 𝑋𝐶𝑌))
7877imp 398 . . 3 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ ∃𝑟 ∈ (Atoms‘𝐾)(𝑋𝐶(𝑋(join‘𝐾)𝑟) ∧ (𝑋(join‘𝐾)𝑟) 𝑌)) → 𝑋𝐶𝑌)
7931, 78syldan 582 . 2 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋(lt‘𝐾)𝑌) → 𝑋𝐶𝑌)
8017, 79syldan 582 1 (((𝐾 ∈ HL ∧ 𝑋𝑁𝑌𝑃) ∧ 𝑋 𝑌) → 𝑋𝐶𝑌)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 198  wa 387  w3a 1068   = wceq 1507  wcel 2050  wne 2967  wrex 3089   class class class wbr 4929  cfv 6188  (class class class)co 6976  Basecbs 16339  lecple 16428  ltcplt 17409  joincjn 17412  ccvr 35849  Atomscatm 35850  HLchlt 35937  LLinesclln 36078  LPlanesclpl 36079
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1758  ax-4 1772  ax-5 1869  ax-6 1928  ax-7 1965  ax-8 2052  ax-9 2059  ax-10 2079  ax-11 2093  ax-12 2106  ax-13 2301  ax-ext 2750  ax-rep 5049  ax-sep 5060  ax-nul 5067  ax-pow 5119  ax-pr 5186  ax-un 7279
This theorem depends on definitions:  df-bi 199  df-an 388  df-or 834  df-3an 1070  df-tru 1510  df-ex 1743  df-nf 1747  df-sb 2016  df-mo 2547  df-eu 2584  df-clab 2759  df-cleq 2771  df-clel 2846  df-nfc 2918  df-ne 2968  df-ral 3093  df-rex 3094  df-reu 3095  df-rab 3097  df-v 3417  df-sbc 3682  df-csb 3787  df-dif 3832  df-un 3834  df-in 3836  df-ss 3843  df-nul 4179  df-if 4351  df-pw 4424  df-sn 4442  df-pr 4444  df-op 4448  df-uni 4713  df-iun 4794  df-br 4930  df-opab 4992  df-mpt 5009  df-id 5312  df-xp 5413  df-rel 5414  df-cnv 5415  df-co 5416  df-dm 5417  df-rn 5418  df-res 5419  df-ima 5420  df-iota 6152  df-fun 6190  df-fn 6191  df-f 6192  df-f1 6193  df-fo 6194  df-f1o 6195  df-fv 6196  df-riota 6937  df-ov 6979  df-oprab 6980  df-proset 17396  df-poset 17414  df-plt 17426  df-lub 17442  df-glb 17443  df-join 17444  df-meet 17445  df-p0 17507  df-lat 17514  df-clat 17576  df-oposet 35763  df-ol 35765  df-oml 35766  df-covers 35853  df-ats 35854  df-atl 35885  df-cvlat 35909  df-hlat 35938  df-llines 36085  df-lplanes 36086
This theorem is referenced by:  llncvrlpln  36145  2llnmj  36147  lplncmp  36149  lplnexatN  36150  2llnm2N  36155  2lplnmj  36209
  Copyright terms: Public domain W3C validator