Metamath Proof Explorer


Theorem tglineineq

Description: Two distinct lines intersect in at most one point, variation. Theorem 6.21 of Schwabhauser p. 46. (Contributed by Thierry Arnoux, 6-Aug-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
tglineineq.x ⊢ φ → X ∈ A ∩ B
tglineineq.y ⊢ φ → Y ∈ A ∩ B
Assertion tglineineq ⊢ φ → X = Y

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 tglineineq.x ⊢ φ → X ∈ A ∩ B
9 tglineineq.y ⊢ φ → Y ∈ A ∩ B
10 1 2 3 4 5 6 7 tglineintmo ⊢ φ → ∃* x x ∈ A ∧ x ∈ B
11 elin ⊢ X ∈ A ∩ B ↔ X ∈ A ∧ X ∈ B
12 8 11 sylib ⊢ φ → X ∈ A ∧ X ∈ B
13 elin ⊢ Y ∈ A ∩ B ↔ Y ∈ A ∧ Y ∈ B
14 9 13 sylib ⊢ φ → Y ∈ A ∧ Y ∈ B
15 eleq1 ⊢ x = X → x ∈ A ↔ X ∈ A
16 eleq1 ⊢ x = X → x ∈ B ↔ X ∈ B
17 15 16 anbi12d ⊢ x = X → x ∈ A ∧ x ∈ B ↔ X ∈ A ∧ X ∈ B
18 eleq1 ⊢ x = Y → x ∈ A ↔ Y ∈ A
19 eleq1 ⊢ x = Y → x ∈ B ↔ Y ∈ B
20 18 19 anbi12d ⊢ x = Y → x ∈ A ∧ x ∈ B ↔ Y ∈ A ∧ Y ∈ B
21 17 20 moi ⊢ X ∈ A ∩ B ∧ Y ∈ A ∩ B ∧ ∃* x x ∈ A ∧ x ∈ B ∧ X ∈ A ∧ X ∈ B ∧ Y ∈ A ∧ Y ∈ B → X = Y
22 8 9 10 12 14 21 syl212anc ⊢ φ → X = Y