Metamath Proof Explorer |
< Previous
Next >
Nearby theorems |
||
Mirrors > Home > MPE Home > Th. List > perprag | Structured version Visualization version GIF version |
Description: Deduce a right angle from perpendicular lines. (Contributed by Thierry Arnoux, 10-Nov-2019.) |
Ref | Expression |
---|---|
colperpex.p | ⊢ 𝑃 = (Base‘𝐺) |
colperpex.d | ⊢ − = (dist‘𝐺) |
colperpex.i | ⊢ 𝐼 = (Itv‘𝐺) |
colperpex.l | ⊢ 𝐿 = (LineG‘𝐺) |
colperpex.g | ⊢ (𝜑 → 𝐺 ∈ TarskiG) |
perprag.1 | ⊢ (𝜑 → 𝐴 ∈ 𝑃) |
perprag.2 | ⊢ (𝜑 → 𝐵 ∈ 𝑃) |
perprag.3 | ⊢ (𝜑 → 𝐶 ∈ (𝐴𝐿𝐵)) |
perprag.4 | ⊢ (𝜑 → 𝐷 ∈ 𝑃) |
perprag.5 | ⊢ (𝜑 → (𝐴𝐿𝐵)(⟂G‘𝐺)(𝐶𝐿𝐷)) |
Ref | Expression |
---|---|
perprag | ⊢ (𝜑 → 〈“𝐴𝐶𝐷”〉 ∈ (∟G‘𝐺)) |
Step | Hyp | Ref | Expression |
---|---|---|---|
1 | eqidd 2819 | . . . 4 ⊢ ((𝜑 ∧ 𝐶 = 𝐷) → 𝐴 = 𝐴) | |
2 | simpr 485 | . . . 4 ⊢ ((𝜑 ∧ 𝐶 = 𝐷) → 𝐶 = 𝐷) | |
3 | eqidd 2819 | . . . 4 ⊢ ((𝜑 ∧ 𝐶 = 𝐷) → 𝐷 = 𝐷) | |
4 | 1, 2, 3 | s3eqd 14214 | . . 3 ⊢ ((𝜑 ∧ 𝐶 = 𝐷) → 〈“𝐴𝐶𝐷”〉 = 〈“𝐴𝐷𝐷”〉) |
5 | colperpex.p | . . . . 5 ⊢ 𝑃 = (Base‘𝐺) | |
6 | colperpex.d | . . . . 5 ⊢ − = (dist‘𝐺) | |
7 | colperpex.i | . . . . 5 ⊢ 𝐼 = (Itv‘𝐺) | |
8 | colperpex.l | . . . . 5 ⊢ 𝐿 = (LineG‘𝐺) | |
9 | eqid 2818 | . . . . 5 ⊢ (pInvG‘𝐺) = (pInvG‘𝐺) | |
10 | colperpex.g | . . . . 5 ⊢ (𝜑 → 𝐺 ∈ TarskiG) | |
11 | perprag.1 | . . . . 5 ⊢ (𝜑 → 𝐴 ∈ 𝑃) | |
12 | perprag.4 | . . . . 5 ⊢ (𝜑 → 𝐷 ∈ 𝑃) | |
13 | 5, 6, 7, 8, 9, 10, 11, 12, 12 | ragtrivb 26415 | . . . 4 ⊢ (𝜑 → 〈“𝐴𝐷𝐷”〉 ∈ (∟G‘𝐺)) |
14 | 13 | adantr 481 | . . 3 ⊢ ((𝜑 ∧ 𝐶 = 𝐷) → 〈“𝐴𝐷𝐷”〉 ∈ (∟G‘𝐺)) |
15 | 4, 14 | eqeltrd 2910 | . 2 ⊢ ((𝜑 ∧ 𝐶 = 𝐷) → 〈“𝐴𝐶𝐷”〉 ∈ (∟G‘𝐺)) |
16 | 10 | adantr 481 | . . 3 ⊢ ((𝜑 ∧ 𝐶 ≠ 𝐷) → 𝐺 ∈ TarskiG) |
17 | perprag.2 | . . . . 5 ⊢ (𝜑 → 𝐵 ∈ 𝑃) | |
18 | perprag.3 | . . . . . 6 ⊢ (𝜑 → 𝐶 ∈ (𝐴𝐿𝐵)) | |
19 | 5, 8, 7, 10, 11, 17, 18 | tglngne 26263 | . . . . 5 ⊢ (𝜑 → 𝐴 ≠ 𝐵) |
20 | 5, 7, 8, 10, 11, 17, 19 | tgelrnln 26343 | . . . 4 ⊢ (𝜑 → (𝐴𝐿𝐵) ∈ ran 𝐿) |
21 | 20 | adantr 481 | . . 3 ⊢ ((𝜑 ∧ 𝐶 ≠ 𝐷) → (𝐴𝐿𝐵) ∈ ran 𝐿) |
22 | 5, 8, 7, 10, 20, 18 | tglnpt 26262 | . . . . 5 ⊢ (𝜑 → 𝐶 ∈ 𝑃) |
23 | 22 | adantr 481 | . . . 4 ⊢ ((𝜑 ∧ 𝐶 ≠ 𝐷) → 𝐶 ∈ 𝑃) |
24 | 12 | adantr 481 | . . . 4 ⊢ ((𝜑 ∧ 𝐶 ≠ 𝐷) → 𝐷 ∈ 𝑃) |
25 | simpr 485 | . . . 4 ⊢ ((𝜑 ∧ 𝐶 ≠ 𝐷) → 𝐶 ≠ 𝐷) | |
26 | 5, 7, 8, 16, 23, 24, 25 | tgelrnln 26343 | . . 3 ⊢ ((𝜑 ∧ 𝐶 ≠ 𝐷) → (𝐶𝐿𝐷) ∈ ran 𝐿) |
27 | 18 | adantr 481 | . . . 4 ⊢ ((𝜑 ∧ 𝐶 ≠ 𝐷) → 𝐶 ∈ (𝐴𝐿𝐵)) |
28 | 5, 7, 8, 16, 23, 24, 25 | tglinerflx1 26346 | . . . 4 ⊢ ((𝜑 ∧ 𝐶 ≠ 𝐷) → 𝐶 ∈ (𝐶𝐿𝐷)) |
29 | 27, 28 | elind 4168 | . . 3 ⊢ ((𝜑 ∧ 𝐶 ≠ 𝐷) → 𝐶 ∈ ((𝐴𝐿𝐵) ∩ (𝐶𝐿𝐷))) |
30 | 5, 7, 8, 10, 11, 17, 19 | tglinerflx1 26346 | . . . 4 ⊢ (𝜑 → 𝐴 ∈ (𝐴𝐿𝐵)) |
31 | 30 | adantr 481 | . . 3 ⊢ ((𝜑 ∧ 𝐶 ≠ 𝐷) → 𝐴 ∈ (𝐴𝐿𝐵)) |
32 | 5, 7, 8, 16, 23, 24, 25 | tglinerflx2 26347 | . . 3 ⊢ ((𝜑 ∧ 𝐶 ≠ 𝐷) → 𝐷 ∈ (𝐶𝐿𝐷)) |
33 | perprag.5 | . . . 4 ⊢ (𝜑 → (𝐴𝐿𝐵)(⟂G‘𝐺)(𝐶𝐿𝐷)) | |
34 | 33 | adantr 481 | . . 3 ⊢ ((𝜑 ∧ 𝐶 ≠ 𝐷) → (𝐴𝐿𝐵)(⟂G‘𝐺)(𝐶𝐿𝐷)) |
35 | 5, 6, 7, 8, 16, 21, 26, 29, 31, 32, 34 | isperp2d 26429 | . 2 ⊢ ((𝜑 ∧ 𝐶 ≠ 𝐷) → 〈“𝐴𝐶𝐷”〉 ∈ (∟G‘𝐺)) |
36 | 15, 35 | pm2.61dane 3101 | 1 ⊢ (𝜑 → 〈“𝐴𝐶𝐷”〉 ∈ (∟G‘𝐺)) |
Colors of variables: wff setvar class |
Syntax hints: → wi 4 ∧ wa 396 = wceq 1528 ∈ wcel 2105 ≠ wne 3013 class class class wbr 5057 ran crn 5549 ‘cfv 6348 (class class class)co 7145 〈“cs3 14192 Basecbs 16471 distcds 16562 TarskiGcstrkg 26143 Itvcitv 26149 LineGclng 26150 pInvGcmir 26365 ∟Gcrag 26406 ⟂Gcperpg 26408 |
This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1787 ax-4 1801 ax-5 1902 ax-6 1961 ax-7 2006 ax-8 2107 ax-9 2115 ax-10 2136 ax-11 2151 ax-12 2167 ax-ext 2790 ax-rep 5181 ax-sep 5194 ax-nul 5201 ax-pow 5257 ax-pr 5320 ax-un 7450 ax-cnex 10581 ax-resscn 10582 ax-1cn 10583 ax-icn 10584 ax-addcl 10585 ax-addrcl 10586 ax-mulcl 10587 ax-mulrcl 10588 ax-mulcom 10589 ax-addass 10590 ax-mulass 10591 ax-distr 10592 ax-i2m1 10593 ax-1ne0 10594 ax-1rid 10595 ax-rnegex 10596 ax-rrecex 10597 ax-cnre 10598 ax-pre-lttri 10599 ax-pre-lttrn 10600 ax-pre-ltadd 10601 ax-pre-mulgt0 10602 |
This theorem depends on definitions: df-bi 208 df-an 397 df-or 842 df-3or 1080 df-3an 1081 df-tru 1531 df-ex 1772 df-nf 1776 df-sb 2061 df-mo 2615 df-eu 2647 df-clab 2797 df-cleq 2811 df-clel 2890 df-nfc 2960 df-ne 3014 df-nel 3121 df-ral 3140 df-rex 3141 df-reu 3142 df-rmo 3143 df-rab 3144 df-v 3494 df-sbc 3770 df-csb 3881 df-dif 3936 df-un 3938 df-in 3940 df-ss 3949 df-pss 3951 df-nul 4289 df-if 4464 df-pw 4537 df-sn 4558 df-pr 4560 df-tp 4562 df-op 4564 df-uni 4831 df-int 4868 df-iun 4912 df-br 5058 df-opab 5120 df-mpt 5138 df-tr 5164 df-id 5453 df-eprel 5458 df-po 5467 df-so 5468 df-fr 5507 df-we 5509 df-xp 5554 df-rel 5555 df-cnv 5556 df-co 5557 df-dm 5558 df-rn 5559 df-res 5560 df-ima 5561 df-pred 6141 df-ord 6187 df-on 6188 df-lim 6189 df-suc 6190 df-iota 6307 df-fun 6350 df-fn 6351 df-f 6352 df-f1 6353 df-fo 6354 df-f1o 6355 df-fv 6356 df-riota 7103 df-ov 7148 df-oprab 7149 df-mpo 7150 df-om 7570 df-1st 7678 df-2nd 7679 df-wrecs 7936 df-recs 7997 df-rdg 8035 df-1o 8091 df-oadd 8095 df-er 8278 df-map 8397 df-pm 8398 df-en 8498 df-dom 8499 df-sdom 8500 df-fin 8501 df-dju 9318 df-card 9356 df-pnf 10665 df-mnf 10666 df-xr 10667 df-ltxr 10668 df-le 10669 df-sub 10860 df-neg 10861 df-nn 11627 df-2 11688 df-3 11689 df-n0 11886 df-xnn0 11956 df-z 11970 df-uz 12232 df-fz 12881 df-fzo 13022 df-hash 13679 df-word 13850 df-concat 13911 df-s1 13938 df-s2 14198 df-s3 14199 df-trkgc 26161 df-trkgb 26162 df-trkgcb 26163 df-trkg 26166 df-cgrg 26224 df-mir 26366 df-rag 26407 df-perpg 26409 |
This theorem is referenced by: perpdragALT 26440 perpdrag 26441 colperpexlem3 26445 mideulem2 26447 opphllem 26448 opphllem5 26464 opphllem6 26465 trgcopy 26517 |
Copyright terms: Public domain | W3C validator |