Metamath Proof Explorer


Theorem coltr

Description: A transitivity law for colinearity. (Contributed by Thierry Arnoux, 27-Nov-2019)

Ref Expression
Hypotheses tglineintmo.p P=BaseG
tglineintmo.i I=ItvG
tglineintmo.l L=Line𝒢G
tglineintmo.g φG𝒢Tarski
coltr.a φAP
coltr.b φBP
coltr.c φCP
coltr.d φDP
coltr.1 φABLC
coltr.2 φBCLDC=D
Assertion coltr φACLDC=D

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 coltr.a φAP
6 coltr.b φBP
7 coltr.c φCP
8 coltr.d φDP
9 coltr.1 φABLC
10 coltr.2 φBCLDC=D
11 4 adantr φCDG𝒢Tarski
12 7 adantr φCDCP
13 8 adantr φCDDP
14 simpr φCDCD
15 1 2 3 11 12 13 14 tglinerflx1 φCDCCLD
16 15 ex φCDCCLD
17 16 necon1bd φ¬CCLDC=D
18 17 orrd φCCLDC=D
19 18 adantr φA=CCCLDC=D
20 simplr φA=CCCLDA=C
21 simpr φA=CCCLDCCLD
22 20 21 eqeltrd φA=CCCLDACLD
23 22 ex φA=CCCLDACLD
24 23 orim1d φA=CCCLDC=DACLDC=D
25 19 24 mpd φA=CACLDC=D
26 10 ad2antrr φAC¬ACLDC=DBCLDC=D
27 4 ad2antrr φAC¬ACLDC=DG𝒢Tarski
28 5 ad2antrr φAC¬ACLDC=DAP
29 7 ad2antrr φAC¬ACLDC=DCP
30 8 ad2antrr φAC¬ACLDC=DDP
31 6 ad2antrr φAC¬ACLDC=DBP
32 simpr φAC¬ACLDC=D¬ACLDC=D
33 4 adantr φACG𝒢Tarski
34 5 adantr φACAP
35 7 adantr φACCP
36 6 adantr φACBP
37 simpr φACAC
38 9 adantr φACABLC
39 1 3 2 33 36 35 38 tglngne φACBC
40 39 necomd φACCB
41 1 2 3 33 35 36 34 40 38 lncom φACACLB
42 1 2 3 33 34 35 36 37 41 40 lnrot2 φACBALC
43 42 adantr φAC¬ACLDC=DBALC
44 1 3 2 4 6 7 9 tglngne φBC
45 44 ad2antrr φAC¬ACLDC=DBC
46 1 2 3 27 28 29 30 31 32 43 45 ncolncol φAC¬ACLDC=D¬BCLDC=D
47 26 46 condan φACACLDC=D
48 25 47 pm2.61dane φACLDC=D