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=BaseG
tglineintmo.i I=ItvG
tglineintmo.l L=Line𝒢G
tglineintmo.g φG𝒢Tarski
tglineinteq.a φAP
tglineinteq.b φBP
tglineinteq.c φCP
tglineinteq.d φDP
tglineinteq.e φ¬ABLCB=C
tglineinteq.1 φXALB
tglineinteq.2 φYALB
tglineinteq.3 φXCLD
tglineinteq.4 φYCLD
Assertion tglineinteq φX=Y

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 tglineinteq.a φAP
6 tglineinteq.b φBP
7 tglineinteq.c φCP
8 tglineinteq.d φDP
9 tglineinteq.e φ¬ABLCB=C
10 tglineinteq.1 φXALB
11 tglineinteq.2 φYALB
12 tglineinteq.3 φXCLD
13 tglineinteq.4 φYCLD
14 1 3 2 4 5 6 10 tglngne φAB
15 1 2 3 4 5 6 14 tgelrnln φALBranL
16 1 3 2 4 7 8 12 tglngne φCD
17 1 2 3 4 7 8 16 tgelrnln φCLDranL
18 1 2 3 4 5 6 7 8 9 tglineneq φALBCLD
19 1 2 3 4 15 17 18 tglineintmo φ*xxALBxCLD
20 10 12 jca φXALBXCLD
21 11 13 jca φYALBYCLD
22 eleq1 x=XxALBXALB
23 eleq1 x=XxCLDXCLD
24 22 23 anbi12d x=XxALBxCLDXALBXCLD
25 eleq1 x=YxALBYALB
26 eleq1 x=YxCLDYCLD
27 25 26 anbi12d x=YxALBxCLDYALBYCLD
28 24 27 moi XALBYALB*xxALBxCLDXALBXCLDYALBYCLDX=Y
29 10 11 19 20 21 28 syl212anc φX=Y