Metamath Proof Explorer


Theorem opphllem3

Description: Lemma for opphl : We assume opphllem3.l "without loss of generality". (Contributed by Thierry Arnoux, 21-Feb-2020)

Ref Expression
Hypotheses hpg.p P=BaseG
hpg.d -˙=distG
hpg.i I=ItvG
hpg.o O=ab|aPDbPDtDtaIb
opphl.l L=Line𝒢G
opphl.d φDranL
opphl.g φG𝒢Tarski
opphl.k K=hl𝒢G
opphllem5.n N=pInv𝒢GM
opphllem5.a φAP
opphllem5.c φCP
opphllem5.r φRD
opphllem5.s φSD
opphllem5.m φMP
opphllem5.o φAOC
opphllem5.p φD𝒢GALR
opphllem5.q φD𝒢GCLS
opphllem3.t φRS
opphllem3.l φS-˙C𝒢GR-˙A
opphllem3.u φUP
opphllem3.v φNR=S
Assertion opphllem3 φUKRANUKSC

Proof

Step Hyp Ref Expression
1 hpg.p P=BaseG
2 hpg.d -˙=distG
3 hpg.i I=ItvG
4 hpg.o O=ab|aPDbPDtDtaIb
5 opphl.l L=Line𝒢G
6 opphl.d φDranL
7 opphl.g φG𝒢Tarski
8 opphl.k K=hl𝒢G
9 opphllem5.n N=pInv𝒢GM
10 opphllem5.a φAP
11 opphllem5.c φCP
12 opphllem5.r φRD
13 opphllem5.s φSD
14 opphllem5.m φMP
15 opphllem5.o φAOC
16 opphllem5.p φD𝒢GALR
17 opphllem5.q φD𝒢GCLS
18 opphllem3.t φRS
19 opphllem3.l φS-˙C𝒢GR-˙A
20 opphllem3.u φUP
21 opphllem3.v φNR=S
22 20 ad4antr φtDtAICpPpRIAS-˙C=R-˙pUP
23 10 ad4antr φtDtAICpPpRIAS-˙C=R-˙pAP
24 1 5 3 7 6 12 tglnpt φRP
25 24 ad4antr φtDtAICpPpRIAS-˙C=R-˙pRP
26 7 ad4antr φtDtAICpPpRIAS-˙C=R-˙pG𝒢Tarski
27 simplr φtDtAICpPpRIAS-˙C=R-˙ppP
28 simprl φtDtAICpPpRIAS-˙C=R-˙ppRIA
29 5 7 16 perpln2 φALRranL
30 1 3 5 7 10 24 29 tglnne φAR
31 30 ad4antr φtDtAICpPpRIAS-˙C=R-˙pAR
32 11 ad4antr φtDtAICpPpRIAS-˙C=R-˙pCP
33 1 5 3 7 6 13 tglnpt φSP
34 33 ad4antr φtDtAICpPpRIAS-˙C=R-˙pSP
35 simprr φtDtAICpPpRIAS-˙C=R-˙pS-˙C=R-˙p
36 1 2 3 26 34 32 25 27 35 tgcgrcomlr φtDtAICpPpRIAS-˙C=R-˙pC-˙S=p-˙R
37 17 ad4antr φtDtAICpPpRIAS-˙C=R-˙pD𝒢GCLS
38 5 26 37 perpln2 φtDtAICpPpRIAS-˙C=R-˙pCLSranL
39 1 3 5 26 32 34 38 tglnne φtDtAICpPpRIAS-˙C=R-˙pCS
40 1 2 3 26 32 34 27 25 36 39 tgcgrneq φtDtAICpPpRIAS-˙C=R-˙ppR
41 1 3 8 22 23 25 26 27 28 31 40 hlbtwn φtDtAICpPpRIAS-˙C=R-˙pUKRAUKRp
42 eqid pInv𝒢G=pInv𝒢G
43 26 adantr φtDtAICpPpRIAS-˙C=R-˙pUKRpG𝒢Tarski
44 14 ad5antr φtDtAICpPpRIAS-˙C=R-˙pUKRpMP
45 22 adantr φtDtAICpPpRIAS-˙C=R-˙pUKRpUP
46 simpllr φtDtAICpPpRIAS-˙C=R-˙pUKRppP
47 25 adantr φtDtAICpPpRIAS-˙C=R-˙pUKRpRP
48 simpr φtDtAICpPpRIAS-˙C=R-˙pUKRpUKRp
49 1 2 3 5 42 43 9 8 44 45 46 47 48 mirhl φtDtAICpPpRIAS-˙C=R-˙pUKRpNUKNRNp
50 eqidd φtDtAICpPpRIAS-˙C=R-˙pUKRpNU=NU
51 21 ad5antr φtDtAICpPpRIAS-˙C=R-˙pUKRpNR=S
52 51 fveq2d φtDtAICpPpRIAS-˙C=R-˙pUKRpKNR=KS
53 simprr φtDtAICpPpRIAS-˙C=R-˙pmPR=pInv𝒢GmSC=pInv𝒢GmpC=pInv𝒢Gmp
54 26 ad2antrr φtDtAICpPpRIAS-˙C=R-˙pmPR=pInv𝒢GmSC=pInv𝒢GmpG𝒢Tarski
55 simplr φtDtAICpPpRIAS-˙C=R-˙pmPR=pInv𝒢GmSC=pInv𝒢GmpmP
56 14 ad6antr φtDtAICpPpRIAS-˙C=R-˙pmPR=pInv𝒢GmSC=pInv𝒢GmpMP
57 34 ad2antrr φtDtAICpPpRIAS-˙C=R-˙pmPR=pInv𝒢GmSC=pInv𝒢GmpSP
58 25 ad2antrr φtDtAICpPpRIAS-˙C=R-˙pmPR=pInv𝒢GmSC=pInv𝒢GmpRP
59 simprl φtDtAICpPpRIAS-˙C=R-˙pmPR=pInv𝒢GmSC=pInv𝒢GmpR=pInv𝒢GmS
60 59 eqcomd φtDtAICpPpRIAS-˙C=R-˙pmPR=pInv𝒢GmSC=pInv𝒢GmppInv𝒢GmS=R
61 9 fveq1i NS=pInv𝒢GMS
62 1 2 3 5 42 7 14 9 24 21 mircom φNS=R
63 61 62 eqtr3id φpInv𝒢GMS=R
64 63 ad6antr φtDtAICpPpRIAS-˙C=R-˙pmPR=pInv𝒢GmSC=pInv𝒢GmppInv𝒢GMS=R
65 1 2 3 5 42 54 55 56 57 58 60 64 miduniq φtDtAICpPpRIAS-˙C=R-˙pmPR=pInv𝒢GmSC=pInv𝒢Gmpm=M
66 65 fveq2d φtDtAICpPpRIAS-˙C=R-˙pmPR=pInv𝒢GmSC=pInv𝒢GmppInv𝒢Gm=pInv𝒢GM
67 66 9 eqtr4di φtDtAICpPpRIAS-˙C=R-˙pmPR=pInv𝒢GmSC=pInv𝒢GmppInv𝒢Gm=N
68 67 fveq1d φtDtAICpPpRIAS-˙C=R-˙pmPR=pInv𝒢GmSC=pInv𝒢GmppInv𝒢Gmp=Np
69 53 68 eqtr2d φtDtAICpPpRIAS-˙C=R-˙pmPR=pInv𝒢GmSC=pInv𝒢GmpNp=C
70 18 ad4antr φtDtAICpPpRIAS-˙C=R-˙pRS
71 70 necomd φtDtAICpPpRIAS-˙C=R-˙pSR
72 6 ad4antr φtDtAICpPpRIAS-˙C=R-˙pDranL
73 simp-4r φtDtAICpPpRIAS-˙C=R-˙ptD
74 1 5 3 26 72 73 tglnpt φtDtAICpPpRIAS-˙C=R-˙ptP
75 13 ad4antr φtDtAICpPpRIAS-˙C=R-˙pSD
76 12 ad4antr φtDtAICpPpRIAS-˙C=R-˙pRD
77 1 3 5 26 34 25 71 71 72 75 76 tglinethru φtDtAICpPpRIAS-˙C=R-˙pD=SLR
78 16 ad4antr φtDtAICpPpRIAS-˙C=R-˙pD𝒢GALR
79 77 78 eqbrtrrd φtDtAICpPpRIAS-˙C=R-˙pSLR𝒢GALR
80 1 3 5 26 32 34 39 tglinecom φtDtAICpPpRIAS-˙C=R-˙pCLS=SLC
81 37 77 80 3brtr3d φtDtAICpPpRIAS-˙C=R-˙pSLR𝒢GSLC
82 73 77 eleqtrd φtDtAICpPpRIAS-˙C=R-˙ptSLR
83 simpllr φtDtAICpPpRIAS-˙C=R-˙ptAIC
84 1 2 3 5 26 42 34 25 71 23 32 74 79 81 82 83 27 28 35 opphllem φtDtAICpPpRIAS-˙C=R-˙pmPR=pInv𝒢GmSC=pInv𝒢Gmp
85 69 84 r19.29a φtDtAICpPpRIAS-˙C=R-˙pNp=C
86 85 adantr φtDtAICpPpRIAS-˙C=R-˙pUKRpNp=C
87 50 52 86 breq123d φtDtAICpPpRIAS-˙C=R-˙pUKRpNUKNRNpNUKSC
88 49 87 mpbid φtDtAICpPpRIAS-˙C=R-˙pUKRpNUKSC
89 26 adantr φtDtAICpPpRIAS-˙C=R-˙pNUKSCG𝒢Tarski
90 14 ad5antr φtDtAICpPpRIAS-˙C=R-˙pNUKSCMP
91 1 2 3 5 42 7 14 9 20 mircl φNUP
92 91 ad5antr φtDtAICpPpRIAS-˙C=R-˙pNUKSCNUP
93 32 adantr φtDtAICpPpRIAS-˙C=R-˙pNUKSCCP
94 34 adantr φtDtAICpPpRIAS-˙C=R-˙pNUKSCSP
95 simpr φtDtAICpPpRIAS-˙C=R-˙pNUKSCNUKSC
96 1 2 3 5 42 89 9 8 90 92 93 94 95 mirhl φtDtAICpPpRIAS-˙C=R-˙pNUKSCNNUKNSNC
97 22 adantr φtDtAICpPpRIAS-˙C=R-˙pNUKSCUP
98 1 2 3 5 42 89 90 9 97 mirmir φtDtAICpPpRIAS-˙C=R-˙pNUKSCNNU=U
99 25 adantr φtDtAICpPpRIAS-˙C=R-˙pNUKSCRP
100 21 ad5antr φtDtAICpPpRIAS-˙C=R-˙pNUKSCNR=S
101 1 2 3 5 42 89 90 9 99 100 mircom φtDtAICpPpRIAS-˙C=R-˙pNUKSCNS=R
102 101 fveq2d φtDtAICpPpRIAS-˙C=R-˙pNUKSCKNS=KR
103 simpllr φtDtAICpPpRIAS-˙C=R-˙pNUKSCpP
104 85 adantr φtDtAICpPpRIAS-˙C=R-˙pNUKSCNp=C
105 1 2 3 5 42 89 90 9 103 104 mircom φtDtAICpPpRIAS-˙C=R-˙pNUKSCNC=p
106 98 102 105 breq123d φtDtAICpPpRIAS-˙C=R-˙pNUKSCNNUKNSNCUKRp
107 96 106 mpbid φtDtAICpPpRIAS-˙C=R-˙pNUKSCUKRp
108 88 107 impbida φtDtAICpPpRIAS-˙C=R-˙pUKRpNUKSC
109 41 108 bitrd φtDtAICpPpRIAS-˙C=R-˙pUKRANUKSC
110 eqid 𝒢G=𝒢G
111 1 2 3 110 7 33 11 24 10 legov φS-˙C𝒢GR-˙ApPpRIAS-˙C=R-˙p
112 19 111 mpbid φpPpRIAS-˙C=R-˙p
113 112 ad2antrr φtDtAICpPpRIAS-˙C=R-˙p
114 109 113 r19.29a φtDtAICUKRANUKSC
115 1 2 3 4 10 11 islnopp φAOC¬AD¬CDtDtAIC
116 15 115 mpbid φ¬AD¬CDtDtAIC
117 116 simprd φtDtAIC
118 114 117 r19.29a φUKRANUKSC