Metamath Proof Explorer


Theorem acopy

Description: Angle construction. Theorem 11.15 of Schwabhauser p. 98. This is Hilbert's axiom III.4 for geometry. (Contributed by Thierry Arnoux, 9-Aug-2020)

Ref Expression
Hypotheses dfcgra2.p P=BaseG
dfcgra2.i I=ItvG
dfcgra2.m -˙=distG
dfcgra2.g φG𝒢Tarski
dfcgra2.a φAP
dfcgra2.b φBP
dfcgra2.c φCP
dfcgra2.d φDP
dfcgra2.e φEP
dfcgra2.f φFP
acopy.l L=Line𝒢G
acopy.1 φ¬ABLCB=C
acopy.2 φ¬DELFE=F
Assertion acopy φfP⟨“ABC”⟩𝒢G⟨“DEf”⟩fhp𝒢GDLEF

Proof

Step Hyp Ref Expression
1 dfcgra2.p P=BaseG
2 dfcgra2.i I=ItvG
3 dfcgra2.m -˙=distG
4 dfcgra2.g φG𝒢Tarski
5 dfcgra2.a φAP
6 dfcgra2.b φBP
7 dfcgra2.c φCP
8 dfcgra2.d φDP
9 dfcgra2.e φEP
10 dfcgra2.f φFP
11 acopy.l L=Line𝒢G
12 acopy.1 φ¬ABLCB=C
13 acopy.2 φ¬DELFE=F
14 eqid hl𝒢G=hl𝒢G
15 4 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙AG𝒢Tarski
16 5 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙AAP
17 6 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙ABP
18 7 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙ACP
19 simplr φdPdhl𝒢GEDE-˙d=B-˙AdP
20 9 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙AEP
21 10 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙AFP
22 12 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙A¬ABLCB=C
23 8 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙ADP
24 13 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙A¬DELFE=F
25 simprl φdPdhl𝒢GEDE-˙d=B-˙Adhl𝒢GED
26 1 2 14 19 23 20 15 11 25 hlln φdPdhl𝒢GEDE-˙d=B-˙AdDLE
27 1 2 14 19 23 20 15 25 hlne1 φdPdhl𝒢GEDE-˙d=B-˙AdE
28 1 2 11 15 23 20 21 19 24 26 27 ncolncol φdPdhl𝒢GEDE-˙d=B-˙A¬dELFE=F
29 simprr φdPdhl𝒢GEDE-˙d=B-˙AE-˙d=B-˙A
30 29 eqcomd φdPdhl𝒢GEDE-˙d=B-˙AB-˙A=E-˙d
31 1 3 2 15 17 16 20 19 30 tgcgrcomlr φdPdhl𝒢GEDE-˙d=B-˙AA-˙B=d-˙E
32 1 3 2 11 14 15 16 17 18 19 20 21 22 28 31 trgcopy φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“dEf”⟩fhp𝒢GdLEF
33 15 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“dEf”⟩G𝒢Tarski
34 16 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“dEf”⟩AP
35 17 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“dEf”⟩BP
36 18 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“dEf”⟩CP
37 19 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“dEf”⟩dP
38 20 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“dEf”⟩EP
39 simplr φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“dEf”⟩fP
40 1 2 11 4 5 6 7 12 ncolne1 φAB
41 40 ad4antr φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“dEf”⟩AB
42 1 11 2 4 6 7 5 12 ncolrot1 φ¬BCLAC=A
43 1 2 11 4 6 7 5 42 ncolne1 φBC
44 43 ad4antr φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“dEf”⟩BC
45 simpr φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“dEf”⟩⟨“ABC”⟩𝒢G⟨“dEf”⟩
46 1 2 33 14 34 35 36 37 38 39 41 44 45 cgrcgra φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“dEf”⟩⟨“ABC”⟩𝒢G⟨“dEf”⟩
47 23 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“dEf”⟩DP
48 25 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“dEf”⟩dhl𝒢GED
49 1 2 14 37 47 38 33 48 hlcomd φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“dEf”⟩Dhl𝒢GEd
50 1 2 14 33 34 35 36 37 38 39 46 47 49 cgrahl1 φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“dEf”⟩⟨“ABC”⟩𝒢G⟨“DEf”⟩
51 50 ex φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“dEf”⟩⟨“ABC”⟩𝒢G⟨“DEf”⟩
52 simpr φdPdhl𝒢GEDE-˙d=B-˙AfPfhp𝒢GdLEFfhp𝒢GdLEF
53 15 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙AfPfhp𝒢GdLEFG𝒢Tarski
54 19 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙AfPfhp𝒢GdLEFdP
55 20 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙AfPfhp𝒢GdLEFEP
56 27 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙AfPfhp𝒢GdLEFdE
57 1 2 11 4 8 9 10 13 ncolne1 φDE
58 1 2 11 4 8 9 57 tgelrnln φDLEranL
59 58 ad4antr φdPdhl𝒢GEDE-˙d=B-˙AfPfhp𝒢GdLEFDLEranL
60 26 ad2antrr φdPdhl𝒢GEDE-˙d=B-˙AfPfhp𝒢GdLEFdDLE
61 1 2 11 4 8 9 57 tglinerflx2 φEDLE
62 61 ad4antr φdPdhl𝒢GEDE-˙d=B-˙AfPfhp𝒢GdLEFEDLE
63 1 2 11 53 54 55 56 56 59 60 62 tglinethru φdPdhl𝒢GEDE-˙d=B-˙AfPfhp𝒢GdLEFDLE=dLE
64 63 fveq2d φdPdhl𝒢GEDE-˙d=B-˙AfPfhp𝒢GdLEFhp𝒢GDLE=hp𝒢GdLE
65 64 breqd φdPdhl𝒢GEDE-˙d=B-˙AfPfhp𝒢GdLEFfhp𝒢GDLEFfhp𝒢GdLEF
66 52 65 mpbird φdPdhl𝒢GEDE-˙d=B-˙AfPfhp𝒢GdLEFfhp𝒢GDLEF
67 66 ex φdPdhl𝒢GEDE-˙d=B-˙AfPfhp𝒢GdLEFfhp𝒢GDLEF
68 51 67 anim12d φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“dEf”⟩fhp𝒢GdLEF⟨“ABC”⟩𝒢G⟨“DEf”⟩fhp𝒢GDLEF
69 68 reximdva φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“dEf”⟩fhp𝒢GdLEFfP⟨“ABC”⟩𝒢G⟨“DEf”⟩fhp𝒢GDLEF
70 32 69 mpd φdPdhl𝒢GEDE-˙d=B-˙AfP⟨“ABC”⟩𝒢G⟨“DEf”⟩fhp𝒢GDLEF
71 40 necomd φBA
72 1 2 14 9 6 5 4 8 3 57 71 hlcgrex φdPdhl𝒢GEDE-˙d=B-˙A
73 70 72 r19.29a φfP⟨“ABC”⟩𝒢G⟨“DEf”⟩fhp𝒢GDLEF