Metamath Proof Explorer


Theorem tglineintmo

Description: Two distinct lines intersect in at most one point. Theorem 6.21 of Schwabhauser p. 46. (Contributed by Thierry Arnoux, 25-May-2019)

Ref Expression
Hypotheses tglineintmo.p ⊢ P = Base G
tglineintmo.i ⊢ I = Itv ⁡ G
tglineintmo.l ⊢ L = Line 𝒢 ⁡ G
tglineintmo.g ⊢ φ → G ∈ 𝒢 Tarski
tglineintmo.a ⊢ φ → A ∈ ran ⁡ L
tglineintmo.b ⊢ φ → B ∈ ran ⁡ L
tglineintmo.c ⊢ φ → A ≠ B
Assertion tglineintmo ⊢ φ → ∃* x x ∈ A ∧ x ∈ B

Proof

Step Hyp Ref Expression
1 tglineintmo.p ⊢ P = Base G
2 tglineintmo.i ⊢ I = Itv ⁡ G
3 tglineintmo.l ⊢ L = Line 𝒢 ⁡ G
4 tglineintmo.g ⊢ φ → G ∈ 𝒢 Tarski
5 tglineintmo.a ⊢ φ → A ∈ ran ⁡ L
6 tglineintmo.b ⊢ φ → B ∈ ran ⁡ L
7 tglineintmo.c ⊢ φ → A ≠ B
8 4 ad2antrr ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B ∧ x ≠ y → G ∈ 𝒢 Tarski
9 elssuni ⊢ A ∈ ran ⁡ L → A ⊆ ⋃ ran ⁡ L
10 5 9 syl ⊢ φ → A ⊆ ⋃ ran ⁡ L
11 1 3 2 tglnunirn ⊢ G ∈ 𝒢 Tarski → ⋃ ran ⁡ L ⊆ P
12 4 11 syl ⊢ φ → ⋃ ran ⁡ L ⊆ P
13 10 12 sstrd ⊢ φ → A ⊆ P
14 13 ad2antrr ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B ∧ x ≠ y → A ⊆ P
15 simplrl ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B ∧ x ≠ y → x ∈ A ∧ x ∈ B
16 15 simpld ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B ∧ x ≠ y → x ∈ A
17 14 16 sseldd ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B ∧ x ≠ y → x ∈ P
18 simplrr ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B ∧ x ≠ y → y ∈ A ∧ y ∈ B
19 18 simpld ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B ∧ x ≠ y → y ∈ A
20 14 19 sseldd ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B ∧ x ≠ y → y ∈ P
21 simpr ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B ∧ x ≠ y → x ≠ y
22 5 ad2antrr ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B ∧ x ≠ y → A ∈ ran ⁡ L
23 1 2 3 8 17 20 21 21 22 16 19 tglinethru ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B ∧ x ≠ y → A = x L y
24 6 ad2antrr ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B ∧ x ≠ y → B ∈ ran ⁡ L
25 15 simprd ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B ∧ x ≠ y → x ∈ B
26 18 simprd ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B ∧ x ≠ y → y ∈ B
27 1 2 3 8 17 20 21 21 24 25 26 tglinethru ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B ∧ x ≠ y → B = x L y
28 23 27 eqtr4d ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B ∧ x ≠ y → A = B
29 7 ad2antrr ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B ∧ x ≠ y → A ≠ B
30 29 neneqd ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B ∧ x ≠ y → ¬ A = B
31 28 30 pm2.65da ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B → ¬ x ≠ y
32 nne ⊢ ¬ x ≠ y ↔ x = y
33 31 32 sylib ⊢ φ ∧ x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B → x = y
34 33 ex ⊢ φ → x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B → x = y
35 34 alrimivv ⊢ φ → ∀ x ∀ y x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B → x = y
36 eleq1w ⊢ x = y → x ∈ A ↔ y ∈ A
37 eleq1w ⊢ x = y → x ∈ B ↔ y ∈ B
38 36 37 anbi12d ⊢ x = y → x ∈ A ∧ x ∈ B ↔ y ∈ A ∧ y ∈ B
39 38 mo4 ⊢ ∃* x x ∈ A ∧ x ∈ B ↔ ∀ x ∀ y x ∈ A ∧ x ∈ B ∧ y ∈ A ∧ y ∈ B → x = y
40 35 39 sylibr ⊢ φ → ∃* x x ∈ A ∧ x ∈ B