Metamath Proof Explorer


Theorem midex

Description: Existence of the midpoint, part Theorem 8.22 of Schwabhauser p. 64. Note that this proof requires a construction in 2 dimensions or more, i.e. it does not prove the existence of a midpoint in dimension 1, for a geometry restricted to a line. (Contributed by Thierry Arnoux, 25-Nov-2019)

Ref Expression
Hypotheses colperpex.p P=BaseG
colperpex.d -˙=distG
colperpex.i I=ItvG
colperpex.l L=Line𝒢G
colperpex.g φG𝒢Tarski
mideu.s S=pInv𝒢G
mideu.1 φAP
mideu.2 φBP
mideu.3 φGDim𝒢2
Assertion midex φxPB=SxA

Proof

Step Hyp Ref Expression
1 colperpex.p P=BaseG
2 colperpex.d -˙=distG
3 colperpex.i I=ItvG
4 colperpex.l L=Line𝒢G
5 colperpex.g φG𝒢Tarski
6 mideu.s S=pInv𝒢G
7 mideu.1 φAP
8 mideu.2 φBP
9 mideu.3 φGDim𝒢2
10 5 adantr φA=BG𝒢Tarski
11 7 adantr φA=BAP
12 eqid SA=SA
13 1 2 3 4 6 10 11 12 mircinv φA=BSAA=A
14 simpr φA=BA=B
15 13 14 eqtr2d φA=BB=SAA
16 fveq2 x=ASx=SA
17 16 fveq1d x=ASxA=SAA
18 17 rspceeqv APB=SAAxPB=SxA
19 7 15 18 syl2an2r φA=BxPB=SxA
20 5 ad3antrrr φABqPBLq𝒢GALBG𝒢Tarski
21 20 ad4antr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qG𝒢Tarski
22 7 ad3antrrr φABqPBLq𝒢GALBAP
23 22 ad4antr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qAP
24 8 ad3antrrr φABqPBLq𝒢GALBBP
25 24 ad4antr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qBP
26 simpllr φABqPBLq𝒢GALBAB
27 26 ad4antr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qAB
28 simplr φABqPBLq𝒢GALBqP
29 28 ad4antr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qqP
30 simp-4r φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qpP
31 simpllr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qtP
32 simp-5r φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qBLq𝒢GALB
33 4 21 32 perpln1 φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qBLqranL
34 1 3 4 21 23 25 27 tgelrnln φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qALBranL
35 1 2 3 4 21 33 34 32 perpcom φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qALB𝒢GBLq
36 1 3 4 21 25 29 33 tglnne φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qBq
37 1 3 4 21 25 29 36 tglinecom φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qBLq=qLB
38 35 37 breqtrd φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qALB𝒢GqLB
39 simplr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qALp𝒢GALBtALBA=BtqIp
40 39 simpld φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qALp𝒢GALB
41 4 21 40 perpln1 φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qALpranL
42 1 2 3 4 21 41 34 40 perpcom φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qALB𝒢GALp
43 27 neneqd φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙q¬A=B
44 39 simprd φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qtALBA=BtqIp
45 44 simpld φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qtALBA=B
46 45 orcomd φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qA=BtALB
47 46 ord φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙q¬A=BtALB
48 43 47 mpd φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qtALB
49 44 simprd φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qtqIp
50 simpr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qA-˙p𝒢GB-˙q
51 1 2 3 4 21 6 23 25 27 29 30 31 38 42 48 49 50 mideulem φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qxPB=SxA
52 20 ad4antr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pG𝒢Tarski
53 52 adantr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pxPA=SxBG𝒢Tarski
54 simprl φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pxPA=SxBxP
55 eqid Sx=Sx
56 24 ad4antr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pBP
57 56 adantr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pxPA=SxBBP
58 simprr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pxPA=SxBA=SxB
59 58 eqcomd φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pxPA=SxBSxB=A
60 1 2 3 4 6 53 54 55 57 59 mircom φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pxPA=SxBSxA=B
61 60 eqcomd φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pxPA=SxBB=SxA
62 22 ad4antr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pAP
63 26 ad4antr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pAB
64 63 necomd φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pBA
65 simp-4r φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙ppP
66 28 ad4antr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pqP
67 simpllr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙ptP
68 simplr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pALp𝒢GALBtALBA=BtqIp
69 68 simpld φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pALp𝒢GALB
70 4 52 69 perpln1 φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pALpranL
71 1 3 4 52 62 65 70 tglnne φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pAp
72 1 3 4 52 62 65 71 tglinecom φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pALp=pLA
73 72 70 eqeltrrd φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙ppLAranL
74 1 3 4 52 56 62 64 tgelrnln φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pBLAranL
75 1 3 4 52 62 56 63 tglinecom φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pALB=BLA
76 69 72 75 3brtr3d φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙ppLA𝒢GBLA
77 1 2 3 4 52 73 74 76 perpcom φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pBLA𝒢GpLA
78 simp-5r φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pBLq𝒢GALB
79 4 52 78 perpln1 φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pBLqranL
80 78 75 breqtrd φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pBLq𝒢GBLA
81 1 2 3 4 52 79 74 80 perpcom φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pBLA𝒢GBLq
82 63 neneqd φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙p¬A=B
83 68 simprd φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙ptALBA=BtqIp
84 83 simpld φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙ptALBA=B
85 84 orcomd φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pA=BtALB
86 85 ord φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙p¬A=BtALB
87 82 86 mpd φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙ptALB
88 87 75 eleqtrd φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙ptBLA
89 83 simprd φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙ptqIp
90 1 2 3 52 66 67 65 89 tgbtwncom φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙ptpIq
91 simpr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pB-˙q𝒢GA-˙p
92 1 2 3 4 52 6 56 62 64 65 66 67 77 81 88 90 91 mideulem φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pxPA=SxB
93 61 92 reximddv φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpB-˙q𝒢GA-˙pxPB=SxA
94 eqid 𝒢G=𝒢G
95 20 ad3antrrr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpG𝒢Tarski
96 22 ad3antrrr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpAP
97 simpllr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIppP
98 24 ad3antrrr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpBP
99 simp-5r φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpqP
100 1 2 3 94 95 96 97 98 99 legtrid φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpA-˙p𝒢GB-˙qB-˙q𝒢GA-˙p
101 51 93 100 mpjaodan φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIpxPB=SxA
102 9 ad3antrrr φABqPBLq𝒢GALBGDim𝒢2
103 1 2 3 4 20 22 24 28 26 102 colperpex φABqPBLq𝒢GALBpPALp𝒢GALBtPtALBA=BtqIp
104 r19.42v tPALp𝒢GALBtALBA=BtqIpALp𝒢GALBtPtALBA=BtqIp
105 104 rexbii pPtPALp𝒢GALBtALBA=BtqIppPALp𝒢GALBtPtALBA=BtqIp
106 103 105 sylibr φABqPBLq𝒢GALBpPtPALp𝒢GALBtALBA=BtqIp
107 101 106 r19.29vva φABqPBLq𝒢GALBxPB=SxA
108 5 adantr φABG𝒢Tarski
109 8 adantr φABBP
110 7 adantr φABAP
111 simpr φABAB
112 111 necomd φABBA
113 9 adantr φABGDim𝒢2
114 1 2 3 4 108 109 110 110 112 113 colperpex φABqPBLq𝒢GBLAsPsBLAB=AsAIq
115 simprl φABBLq𝒢GBLAsPsBLAB=AsAIqBLq𝒢GBLA
116 1 3 4 108 110 109 111 tglinecom φABALB=BLA
117 116 adantr φABBLq𝒢GBLAsPsBLAB=AsAIqALB=BLA
118 115 117 breqtrrd φABBLq𝒢GBLAsPsBLAB=AsAIqBLq𝒢GALB
119 118 ex φABBLq𝒢GBLAsPsBLAB=AsAIqBLq𝒢GALB
120 119 reximdv φABqPBLq𝒢GBLAsPsBLAB=AsAIqqPBLq𝒢GALB
121 114 120 mpd φABqPBLq𝒢GALB
122 107 121 r19.29a φABxPB=SxA
123 19 122 pm2.61dane φxPB=SxA