Metamath Proof Explorer


Theorem tglineinteq

Description: Two distinct lines intersect in at most one point. 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
tglineinteq.a φ A P
tglineinteq.b φ B P
tglineinteq.c φ C P
tglineinteq.d φ D P
tglineinteq.e φ ¬ A B L C B = C
tglineinteq.1 φ X A L B
tglineinteq.2 φ Y A L B
tglineinteq.3 φ X C L D
tglineinteq.4 φ Y C L D
Assertion tglineinteq φ 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 tglineinteq.a φ A P
6 tglineinteq.b φ B P
7 tglineinteq.c φ C P
8 tglineinteq.d φ D P
9 tglineinteq.e φ ¬ A B L C B = C
10 tglineinteq.1 φ X A L B
11 tglineinteq.2 φ Y A L B
12 tglineinteq.3 φ X C L D
13 tglineinteq.4 φ Y C L D
14 1 3 2 4 5 6 10 tglngne φ A B
15 1 2 3 4 5 6 14 tgelrnln φ A L B ran L
16 1 3 2 4 7 8 12 tglngne φ C D
17 1 2 3 4 7 8 16 tgelrnln φ C L D ran L
18 1 2 3 4 5 6 7 8 9 tglineneq φ A L B C L D
19 1 2 3 4 15 17 18 tglineintmo φ * x x A L B x C L D
20 10 12 jca φ X A L B X C L D
21 11 13 jca φ Y A L B Y C L D
22 eleq1 x = X x A L B X A L B
23 eleq1 x = X x C L D X C L D
24 22 23 anbi12d x = X x A L B x C L D X A L B X C L D
25 eleq1 x = Y x A L B Y A L B
26 eleq1 x = Y x C L D Y C L D
27 25 26 anbi12d x = Y x A L B x C L D Y A L B Y C L D
28 24 27 moi X A L B Y A L B * x x A L B x C L D X A L B X C L D Y A L B Y C L D X = Y
29 10 11 19 20 21 28 syl212anc φ X = Y