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=BaseG
tglineintmo.i I=ItvG
tglineintmo.l L=Line𝒢G
tglineintmo.g φG𝒢Tarski
tglineintmo.a φAranL
tglineintmo.b φBranL
tglineintmo.c φAB
Assertion tglineintmo φ*xxAxB

Proof

Step Hyp Ref Expression
1 tglineintmo.p P=BaseG
2 tglineintmo.i I=ItvG
3 tglineintmo.l L=Line𝒢G
4 tglineintmo.g φG𝒢Tarski
5 tglineintmo.a φAranL
6 tglineintmo.b φBranL
7 tglineintmo.c φAB
8 4 ad2antrr φxAxByAyBxyG𝒢Tarski
9 elssuni AranLAranL
10 5 9 syl φAranL
11 1 3 2 tglnunirn G𝒢TarskiranLP
12 4 11 syl φranLP
13 10 12 sstrd φAP
14 13 ad2antrr φxAxByAyBxyAP
15 simplrl φxAxByAyBxyxAxB
16 15 simpld φxAxByAyBxyxA
17 14 16 sseldd φxAxByAyBxyxP
18 simplrr φxAxByAyBxyyAyB
19 18 simpld φxAxByAyBxyyA
20 14 19 sseldd φxAxByAyBxyyP
21 simpr φxAxByAyBxyxy
22 5 ad2antrr φxAxByAyBxyAranL
23 1 2 3 8 17 20 21 21 22 16 19 tglinethru φxAxByAyBxyA=xLy
24 6 ad2antrr φxAxByAyBxyBranL
25 15 simprd φxAxByAyBxyxB
26 18 simprd φxAxByAyBxyyB
27 1 2 3 8 17 20 21 21 24 25 26 tglinethru φxAxByAyBxyB=xLy
28 23 27 eqtr4d φxAxByAyBxyA=B
29 7 ad2antrr φxAxByAyBxyAB
30 29 neneqd φxAxByAyBxy¬A=B
31 28 30 pm2.65da φxAxByAyB¬xy
32 nne ¬xyx=y
33 31 32 sylib φxAxByAyBx=y
34 33 ex φxAxByAyBx=y
35 34 alrimivv φxyxAxByAyBx=y
36 eleq1w x=yxAyA
37 eleq1w x=yxByB
38 36 37 anbi12d x=yxAxByAyB
39 38 mo4 *xxAxBxyxAxByAyBx=y
40 35 39 sylibr φ*xxAxB