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