Metamath Proof Explorer


Theorem oppperpex

Description: Restating colperpex using the "opposite side of a line" relation. (Contributed by Thierry Arnoux, 2-Aug-2020)

Ref Expression
Hypotheses hpg.p 𝑃 = ( Base ‘ 𝐺 )
hpg.d = ( dist ‘ 𝐺 )
hpg.i 𝐼 = ( Itv ‘ 𝐺 )
hpg.o 𝑂 = { ⟨ 𝑎 , 𝑏 ⟩ ∣ ( ( 𝑎 ∈ ( 𝑃𝐷 ) ∧ 𝑏 ∈ ( 𝑃𝐷 ) ) ∧ ∃ 𝑡𝐷 𝑡 ∈ ( 𝑎 𝐼 𝑏 ) ) }
opphl.l 𝐿 = ( LineG ‘ 𝐺 )
opphl.d ( 𝜑𝐷 ∈ ran 𝐿 )
opphl.g ( 𝜑𝐺 ∈ TarskiG )
opphl.k 𝐾 = ( hlG ‘ 𝐺 )
oppperpex.1 ( 𝜑𝐴𝐷 )
oppperpex.2 ( 𝜑𝐶𝑃 )
oppperpex.3 ( 𝜑 → ¬ 𝐶𝐷 )
oppperpex.4 ( 𝜑𝐺 DimTarskiG≥ 2 )
Assertion oppperpex ( 𝜑 → ∃ 𝑝𝑃 ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) 𝐷𝐶 𝑂 𝑝 ) )

Proof

Step Hyp Ref Expression
1 hpg.p 𝑃 = ( Base ‘ 𝐺 )
2 hpg.d = ( dist ‘ 𝐺 )
3 hpg.i 𝐼 = ( Itv ‘ 𝐺 )
4 hpg.o 𝑂 = { ⟨ 𝑎 , 𝑏 ⟩ ∣ ( ( 𝑎 ∈ ( 𝑃𝐷 ) ∧ 𝑏 ∈ ( 𝑃𝐷 ) ) ∧ ∃ 𝑡𝐷 𝑡 ∈ ( 𝑎 𝐼 𝑏 ) ) }
5 opphl.l 𝐿 = ( LineG ‘ 𝐺 )
6 opphl.d ( 𝜑𝐷 ∈ ran 𝐿 )
7 opphl.g ( 𝜑𝐺 ∈ TarskiG )
8 opphl.k 𝐾 = ( hlG ‘ 𝐺 )
9 oppperpex.1 ( 𝜑𝐴𝐷 )
10 oppperpex.2 ( 𝜑𝐶𝑃 )
11 oppperpex.3 ( 𝜑 → ¬ 𝐶𝐷 )
12 oppperpex.4 ( 𝜑𝐺 DimTarskiG≥ 2 )
13 simprrl ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ ( 𝑝𝑃 ∧ ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ∧ ∃ 𝑡𝑃 ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) ) → ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) )
14 7 ad2antrr ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) → 𝐺 ∈ TarskiG )
15 6 ad2antrr ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) → 𝐷 ∈ ran 𝐿 )
16 9 ad2antrr ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) → 𝐴𝐷 )
17 1 5 3 14 15 16 tglnpt ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) → 𝐴𝑃 )
18 simplr ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) → 𝑥𝐷 )
19 1 5 3 14 15 18 tglnpt ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) → 𝑥𝑃 )
20 simpr ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) → 𝐴𝑥 )
21 1 3 5 14 17 19 20 20 15 16 18 tglinethru ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) → 𝐷 = ( 𝐴 𝐿 𝑥 ) )
22 21 adantr ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ ( 𝑝𝑃 ∧ ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ∧ ∃ 𝑡𝑃 ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) ) → 𝐷 = ( 𝐴 𝐿 𝑥 ) )
23 13 22 breqtrrd ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ ( 𝑝𝑃 ∧ ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ∧ ∃ 𝑡𝑃 ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) ) → ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) 𝐷 )
24 11 ad3antrrr ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ ( 𝑝𝑃 ∧ ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ∧ ∃ 𝑡𝑃 ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) ) → ¬ 𝐶𝐷 )
25 14 adantr ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ ( 𝑝𝑃 ∧ ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ∧ ∃ 𝑡𝑃 ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) ) → 𝐺 ∈ TarskiG )
26 15 adantr ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ ( 𝑝𝑃 ∧ ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ∧ ∃ 𝑡𝑃 ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) ) → 𝐷 ∈ ran 𝐿 )
27 16 adantr ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ ( 𝑝𝑃 ∧ ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ∧ ∃ 𝑡𝑃 ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) ) → 𝐴𝐷 )
28 simprl ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ ( 𝑝𝑃 ∧ ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ∧ ∃ 𝑡𝑃 ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) ) → 𝑝𝑃 )
29 1 2 3 5 25 26 27 28 23 footne ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ ( 𝑝𝑃 ∧ ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ∧ ∃ 𝑡𝑃 ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) ) → ¬ 𝑝𝐷 )
30 20 ad3antrrr ( ( ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ 𝑝𝑃 ) ∧ ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ) ∧ ( 𝑡𝑃 ∧ ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) → 𝐴𝑥 )
31 30 neneqd ( ( ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ 𝑝𝑃 ) ∧ ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ) ∧ ( 𝑡𝑃 ∧ ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) → ¬ 𝐴 = 𝑥 )
32 simprrl ( ( ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ 𝑝𝑃 ) ∧ ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ) ∧ ( 𝑡𝑃 ∧ ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) → ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) )
33 32 orcomd ( ( ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ 𝑝𝑃 ) ∧ ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ) ∧ ( 𝑡𝑃 ∧ ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) → ( 𝐴 = 𝑥𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ) )
34 33 ord ( ( ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ 𝑝𝑃 ) ∧ ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ) ∧ ( 𝑡𝑃 ∧ ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) → ( ¬ 𝐴 = 𝑥𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ) )
35 31 34 mpd ( ( ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ 𝑝𝑃 ) ∧ ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ) ∧ ( 𝑡𝑃 ∧ ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) → 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) )
36 21 ad3antrrr ( ( ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ 𝑝𝑃 ) ∧ ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ) ∧ ( 𝑡𝑃 ∧ ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) → 𝐷 = ( 𝐴 𝐿 𝑥 ) )
37 35 36 eleqtrrd ( ( ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ 𝑝𝑃 ) ∧ ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ) ∧ ( 𝑡𝑃 ∧ ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) → 𝑡𝐷 )
38 simprrr ( ( ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ 𝑝𝑃 ) ∧ ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ) ∧ ( 𝑡𝑃 ∧ ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) → 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) )
39 37 38 jca ( ( ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ 𝑝𝑃 ) ∧ ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ) ∧ ( 𝑡𝑃 ∧ ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) → ( 𝑡𝐷𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) )
40 39 ex ( ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ 𝑝𝑃 ) ∧ ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ) → ( ( 𝑡𝑃 ∧ ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) → ( 𝑡𝐷𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) )
41 40 reximdv2 ( ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ 𝑝𝑃 ) ∧ ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ) → ( ∃ 𝑡𝑃 ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) → ∃ 𝑡𝐷 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) )
42 41 impr ( ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ 𝑝𝑃 ) ∧ ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ∧ ∃ 𝑡𝑃 ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) → ∃ 𝑡𝐷 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) )
43 42 anasss ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ ( 𝑝𝑃 ∧ ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ∧ ∃ 𝑡𝑃 ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) ) → ∃ 𝑡𝐷 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) )
44 24 29 43 jca31 ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ ( 𝑝𝑃 ∧ ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ∧ ∃ 𝑡𝑃 ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) ) → ( ( ¬ 𝐶𝐷 ∧ ¬ 𝑝𝐷 ) ∧ ∃ 𝑡𝐷 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) )
45 10 ad2antrr ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) → 𝐶𝑃 )
46 45 ad2antrr ( ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ 𝑝𝑃 ) ∧ ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ) → 𝐶𝑃 )
47 simplr ( ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ 𝑝𝑃 ) ∧ ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ) → 𝑝𝑃 )
48 1 2 3 4 46 47 islnopp ( ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ 𝑝𝑃 ) ∧ ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ) → ( 𝐶 𝑂 𝑝 ↔ ( ( ¬ 𝐶𝐷 ∧ ¬ 𝑝𝐷 ) ∧ ∃ 𝑡𝐷 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) )
49 48 adantrr ( ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ 𝑝𝑃 ) ∧ ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ∧ ∃ 𝑡𝑃 ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) → ( 𝐶 𝑂 𝑝 ↔ ( ( ¬ 𝐶𝐷 ∧ ¬ 𝑝𝐷 ) ∧ ∃ 𝑡𝐷 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) )
50 49 anasss ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ ( 𝑝𝑃 ∧ ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ∧ ∃ 𝑡𝑃 ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) ) → ( 𝐶 𝑂 𝑝 ↔ ( ( ¬ 𝐶𝐷 ∧ ¬ 𝑝𝐷 ) ∧ ∃ 𝑡𝐷 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) )
51 44 50 mpbird ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ ( 𝑝𝑃 ∧ ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ∧ ∃ 𝑡𝑃 ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) ) → 𝐶 𝑂 𝑝 )
52 23 51 jca ( ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) ∧ ( 𝑝𝑃 ∧ ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ∧ ∃ 𝑡𝑃 ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) ) ) → ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) 𝐷𝐶 𝑂 𝑝 ) )
53 12 ad2antrr ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) → 𝐺 DimTarskiG≥ 2 )
54 1 2 3 5 14 17 19 45 20 53 colperpex ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) → ∃ 𝑝𝑃 ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) ( 𝐴 𝐿 𝑥 ) ∧ ∃ 𝑡𝑃 ( ( 𝑡 ∈ ( 𝐴 𝐿 𝑥 ) ∨ 𝐴 = 𝑥 ) ∧ 𝑡 ∈ ( 𝐶 𝐼 𝑝 ) ) ) )
55 52 54 reximddv ( ( ( 𝜑𝑥𝐷 ) ∧ 𝐴𝑥 ) → ∃ 𝑝𝑃 ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) 𝐷𝐶 𝑂 𝑝 ) )
56 1 3 5 7 6 9 tglnpt2 ( 𝜑 → ∃ 𝑥𝐷 𝐴𝑥 )
57 55 56 r19.29a ( 𝜑 → ∃ 𝑝𝑃 ( ( 𝐴 𝐿 𝑝 ) ( ⟂G ‘ 𝐺 ) 𝐷𝐶 𝑂 𝑝 ) )