ltgov - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > ltgov		Structured version Visualization version GIF version

Theorem ltgov 29087

Description: Strict "shorter than" geometric relation between segments. (Contributed by Thierry Arnoux, 15-Dec-2019.)

**Hypotheses**
Ref	Expression
legval.p	⊢ 𝑃 = (Base‘𝐺)
legval.d	⊢ − = (dist‘𝐺)
legval.i	⊢ 𝐼 = (Itv‘𝐺)
legval.l	⊢ ≤ = (≤G‘𝐺)
legval.g	⊢ (𝜑 → 𝐺 ∈ TarskiG)
legso.a	⊢ 𝐸 = ( − “ (𝑃 × 𝑃))
legso.f	⊢ (𝜑 → Fun − )
legso.l	⊢ < = (( ≤ ↾ 𝐸) ∖ I )
legso.d	⊢ (𝜑 → (𝑃 × 𝑃) ⊆ dom − )
ltgov.a	⊢ (𝜑 → 𝐴 ∈ 𝑃)
ltgov.b	⊢ (𝜑 → 𝐵 ∈ 𝑃)

**Assertion**
Ref	Expression
ltgov	⊢ (𝜑 → ((𝐴 − 𝐵) < (𝐶 − 𝐷) ↔ ((𝐴 − 𝐵) ≤ (𝐶 − 𝐷) ∧ (𝐴 − 𝐵) ≠ (𝐶 − 𝐷))))

**Proof of Theorem ltgov**
Step	Hyp	Ref	Expression
1		legso.l	. . . . 5 ⊢ < = (( ≤ ↾ 𝐸) ∖ I )
2	1	breqi 5112	. . . 4 ⊢ ((𝐴 − 𝐵) < (𝐶 − 𝐷) ↔ (𝐴 − 𝐵)(( ≤ ↾ 𝐸) ∖ I )(𝐶 − 𝐷))
3		brdif 5161	. . . 4 ⊢ ((𝐴 − 𝐵)(( ≤ ↾ 𝐸) ∖ I )(𝐶 − 𝐷) ↔ ((𝐴 − 𝐵)( ≤ ↾ 𝐸)(𝐶 − 𝐷) ∧ ¬ (𝐴 − 𝐵) I (𝐶 − 𝐷)))
4	2, 3	bitri 278	. . 3 ⊢ ((𝐴 − 𝐵) < (𝐶 − 𝐷) ↔ ((𝐴 − 𝐵)( ≤ ↾ 𝐸)(𝐶 − 𝐷) ∧ ¬ (𝐴 − 𝐵) I (𝐶 − 𝐷)))
5		ovex 7473	. . . . 5 ⊢ (𝐶 − 𝐷) ∈ V
6	5	brresi 5989	. . . 4 ⊢ ((𝐴 − 𝐵)( ≤ ↾ 𝐸)(𝐶 − 𝐷) ↔ ((𝐴 − 𝐵) ∈ 𝐸 ∧ (𝐴 − 𝐵) ≤ (𝐶 − 𝐷)))
7	6	anbi1i 636	. . 3 ⊢ (((𝐴 − 𝐵)( ≤ ↾ 𝐸)(𝐶 − 𝐷) ∧ ¬ (𝐴 − 𝐵) I (𝐶 − 𝐷)) ↔ (((𝐴 − 𝐵) ∈ 𝐸 ∧ (𝐴 − 𝐵) ≤ (𝐶 − 𝐷)) ∧ ¬ (𝐴 − 𝐵) I (𝐶 − 𝐷)))
8		an21 657	. . 3 ⊢ ((((𝐴 − 𝐵) ∈ 𝐸 ∧ (𝐴 − 𝐵) ≤ (𝐶 − 𝐷)) ∧ ¬ (𝐴 − 𝐵) I (𝐶 − 𝐷)) ↔ ((𝐴 − 𝐵) ≤ (𝐶 − 𝐷) ∧ ((𝐴 − 𝐵) ∈ 𝐸 ∧ ¬ (𝐴 − 𝐵) I (𝐶 − 𝐷))))
9	4, 7, 8	3bitri 300	. 2 ⊢ ((𝐴 − 𝐵) < (𝐶 − 𝐷) ↔ ((𝐴 − 𝐵) ≤ (𝐶 − 𝐷) ∧ ((𝐴 − 𝐵) ∈ 𝐸 ∧ ¬ (𝐴 − 𝐵) I (𝐶 − 𝐷))))
10		ltgov.a	. . . . . . 7 ⊢ (𝜑 → 𝐴 ∈ 𝑃)
11		ltgov.b	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ 𝑃)
12		legso.f	. . . . . . 7 ⊢ (𝜑 → Fun − )
13		legso.d	. . . . . . 7 ⊢ (𝜑 → (𝑃 × 𝑃) ⊆ dom − )
14	10, 11, 12, 13	elovimad 7490	. . . . . 6 ⊢ (𝜑 → (𝐴 − 𝐵) ∈ ( − “ (𝑃 × 𝑃)))
15		legso.a	. . . . . 6 ⊢ 𝐸 = ( − “ (𝑃 × 𝑃))
16	14, 15	eleqtrrdi 2875	. . . . 5 ⊢ (𝜑 → (𝐴 − 𝐵) ∈ 𝐸)
17	16	biantrurd 542	. . . 4 ⊢ (𝜑 → (¬ (𝐴 − 𝐵) I (𝐶 − 𝐷) ↔ ((𝐴 − 𝐵) ∈ 𝐸 ∧ ¬ (𝐴 − 𝐵) I (𝐶 − 𝐷))))
18	5	ideq 5835	. . . . 5 ⊢ ((𝐴 − 𝐵) I (𝐶 − 𝐷) ↔ (𝐴 − 𝐵) = (𝐶 − 𝐷))
19	18	necon3bbii 3006	. . . 4 ⊢ (¬ (𝐴 − 𝐵) I (𝐶 − 𝐷) ↔ (𝐴 − 𝐵) ≠ (𝐶 − 𝐷))
20	17, 19	bitr3di 289	. . 3 ⊢ (𝜑 → (((𝐴 − 𝐵) ∈ 𝐸 ∧ ¬ (𝐴 − 𝐵) I (𝐶 − 𝐷)) ↔ (𝐴 − 𝐵) ≠ (𝐶 − 𝐷)))
21	20	anbi2d 642	. 2 ⊢ (𝜑 → (((𝐴 − 𝐵) ≤ (𝐶 − 𝐷) ∧ ((𝐴 − 𝐵) ∈ 𝐸 ∧ ¬ (𝐴 − 𝐵) I (𝐶 − 𝐷))) ↔ ((𝐴 − 𝐵) ≤ (𝐶 − 𝐷) ∧ (𝐴 − 𝐵) ≠ (𝐶 − 𝐷))))
22	9, 21	bitrid 286	1 ⊢ (𝜑 → ((𝐴 − 𝐵) < (𝐶 − 𝐷) ↔ ((𝐴 − 𝐵) ≤ (𝐶 − 𝐷) ∧ (𝐴 − 𝐵) ≠ (𝐶 − 𝐷))))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 401 = wceq 1570 ∈ wcel 2147 ≠ wne 2959 ⊆ wss 3900 ∖ cdif 4048 class class class wbr 5106 I cid 5549 × cxp 5653 dom cdm 5655 ↾ cres 5657 “ cima 5658 Fun wfun 6549 ‘cfv 6555 (class class class)co 7440 Basecbs 17413 distcds 17463 TarskiGcstrkg 28916 Itvcitv 28922 ≤Gcleg 29072

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1945 ax-6 2002 ax-7 2043 ax-8 2149 ax-9 2157 ax-10 2180 ax-12 2216 ax-ext 2735 ax-sep 5252 ax-nul 5263 ax-pr 5395

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2102 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2839 df-ne 2960 df-ral 3081 df-rex 3091 df-rab 3417 df-v 3456 df-ss 3901 df-dif 4050 df-in 4094 df-un 4154 df-nul 4282 df-if 4486 df-sn 4589 df-pr 4591 df-op 4839 df-uni 4871 df-br 5107 df-opab 5171 df-id 5550 df-xp 5661 df-rel 5662 df-cnv 5663 df-co 5664 df-dm 5665 df-rn 5666 df-res 5667 df-ima 5668 df-iota 6509 df-fun 6557 df-fn 6558 df-fv 6563 df-ov 7443

This theorem is used by: legov3 29088 legso 29089

W3C validator