iscgrglt - Metamath Proof Explorer

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

Theorem iscgrglt 28992

Description: The property for two sequences 𝐴 and 𝐵 of points to be congruent, where the congruence is only required for indices verifying a less-than relation. (Contributed by Thierry Arnoux, 7-Oct-2020.)

**Hypotheses**
Ref	Expression
trgcgrg.p	⊢ 𝑃 = (Base‘𝐺)
trgcgrg.m	⊢ − = (dist‘𝐺)
trgcgrg.r	⊢ ∼ = (cgrG‘𝐺)
trgcgrg.g	⊢ (𝜑 → 𝐺 ∈ TarskiG)
iscgrglt.d	⊢ (𝜑 → 𝐷 ⊆ ℝ)
iscgrglt.a	⊢ (𝜑 → 𝐴:𝐷⟶𝑃)
iscgrglt.b	⊢ (𝜑 → 𝐵:𝐷⟶𝑃)

**Assertion**
Ref	Expression
iscgrglt	⊢ (𝜑 → (𝐴 ∼ 𝐵 ↔ ∀𝑖 ∈ dom 𝐴∀𝑗 ∈ dom 𝐴(𝑖 < 𝑗 → ((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗)))))

Distinct variable groups: − ,𝑖,𝑗 𝐴,𝑖,𝑗 𝐵,𝑖,𝑗 𝑖,𝐺,𝑗 𝜑,𝑖,𝑗 Allowed substitution hints: 𝐷(𝑖, 𝑗) 𝑃(𝑖, 𝑗) ∼ (𝑖, 𝑗)

Proof of Theorem iscgrglt Dummy variables 𝑘 𝑙 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		trgcgrg.p	. . 3 ⊢ 𝑃 = (Base‘𝐺)
2		trgcgrg.m	. . 3 ⊢ − = (dist‘𝐺)
3		trgcgrg.r	. . 3 ⊢ ∼ = (cgrG‘𝐺)
4		trgcgrg.g	. . 3 ⊢ (𝜑 → 𝐺 ∈ TarskiG)
5		iscgrglt.d	. . 3 ⊢ (𝜑 → 𝐷 ⊆ ℝ)
6		iscgrglt.a	. . 3 ⊢ (𝜑 → 𝐴:𝐷⟶𝑃)
7		iscgrglt.b	. . 3 ⊢ (𝜑 → 𝐵:𝐷⟶𝑃)
8	1, 2, 3, 4, 5, 6, 7	iscgrgd 28991	. 2 ⊢ (𝜑 → (𝐴 ∼ 𝐵 ↔ ∀𝑖 ∈ dom 𝐴∀𝑗 ∈ dom 𝐴((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗))))
9		simp2 1155	. . . . 5 ⊢ (((𝜑 ∧ (𝑖 ∈ dom 𝐴 ∧ 𝑗 ∈ dom 𝐴)) ∧ ((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗)) ∧ 𝑖 < 𝑗) → ((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗)))
10	9	3exp 1137	. . . 4 ⊢ ((𝜑 ∧ (𝑖 ∈ dom 𝐴 ∧ 𝑗 ∈ dom 𝐴)) → (((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗)) → (𝑖 < 𝑗 → ((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗)))))
11	10	ralimdvva 3213	. . 3 ⊢ (𝜑 → (∀𝑖 ∈ dom 𝐴∀𝑗 ∈ dom 𝐴((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗)) → ∀𝑖 ∈ dom 𝐴∀𝑗 ∈ dom 𝐴(𝑖 < 𝑗 → ((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗)))))
12		breq1 5109	. . . . . 6 ⊢ (𝑘 = 𝑖 → (𝑘 < 𝑙 ↔ 𝑖 < 𝑙))
13		fveq2 6896	. . . . . . . 8 ⊢ (𝑘 = 𝑖 → (𝐴‘𝑘) = (𝐴‘𝑖))
14	13	oveq1d 7445	. . . . . . 7 ⊢ (𝑘 = 𝑖 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐴‘𝑖) − (𝐴‘𝑙)))
15		fveq2 6896	. . . . . . . 8 ⊢ (𝑘 = 𝑖 → (𝐵‘𝑘) = (𝐵‘𝑖))
16	15	oveq1d 7445	. . . . . . 7 ⊢ (𝑘 = 𝑖 → ((𝐵‘𝑘) − (𝐵‘𝑙)) = ((𝐵‘𝑖) − (𝐵‘𝑙)))
17	14, 16	eqeq12d 2779	. . . . . 6 ⊢ (𝑘 = 𝑖 → (((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)) ↔ ((𝐴‘𝑖) − (𝐴‘𝑙)) = ((𝐵‘𝑖) − (𝐵‘𝑙))))
18	12, 17	imbi12d 347	. . . . 5 ⊢ (𝑘 = 𝑖 → ((𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙))) ↔ (𝑖 < 𝑙 → ((𝐴‘𝑖) − (𝐴‘𝑙)) = ((𝐵‘𝑖) − (𝐵‘𝑙)))))
19		breq2 5110	. . . . . 6 ⊢ (𝑙 = 𝑗 → (𝑖 < 𝑙 ↔ 𝑖 < 𝑗))
20		fveq2 6896	. . . . . . . 8 ⊢ (𝑙 = 𝑗 → (𝐴‘𝑙) = (𝐴‘𝑗))
21	20	oveq2d 7446	. . . . . . 7 ⊢ (𝑙 = 𝑗 → ((𝐴‘𝑖) − (𝐴‘𝑙)) = ((𝐴‘𝑖) − (𝐴‘𝑗)))
22		fveq2 6896	. . . . . . . 8 ⊢ (𝑙 = 𝑗 → (𝐵‘𝑙) = (𝐵‘𝑗))
23	22	oveq2d 7446	. . . . . . 7 ⊢ (𝑙 = 𝑗 → ((𝐵‘𝑖) − (𝐵‘𝑙)) = ((𝐵‘𝑖) − (𝐵‘𝑗)))
24	21, 23	eqeq12d 2779	. . . . . 6 ⊢ (𝑙 = 𝑗 → (((𝐴‘𝑖) − (𝐴‘𝑙)) = ((𝐵‘𝑖) − (𝐵‘𝑙)) ↔ ((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗))))
25	19, 24	imbi12d 347	. . . . 5 ⊢ (𝑙 = 𝑗 → ((𝑖 < 𝑙 → ((𝐴‘𝑖) − (𝐴‘𝑙)) = ((𝐵‘𝑖) − (𝐵‘𝑙))) ↔ (𝑖 < 𝑗 → ((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗)))))
26	18, 25	cbvral2vw 3248	. . . 4 ⊢ (∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙))) ↔ ∀𝑖 ∈ dom 𝐴∀𝑗 ∈ dom 𝐴(𝑖 < 𝑗 → ((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗))))
27		simpllr 788	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑖 < 𝑗) → 𝑖 ∈ dom 𝐴)
28		simplr 781	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑖 < 𝑗) → 𝑗 ∈ dom 𝐴)
29		simp-4r 796	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑖 < 𝑗) → ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙))))
30	27, 28, 29	jca31 524	. . . . . . . . 9 ⊢ (((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑖 < 𝑗) → ((𝑖 ∈ dom 𝐴 ∧ 𝑗 ∈ dom 𝐴) ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))))
31		simpr 490	. . . . . . . . 9 ⊢ (((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑖 < 𝑗) → 𝑖 < 𝑗)
32	18, 25	rspc2va 3591	. . . . . . . . 9 ⊢ (((𝑖 ∈ dom 𝐴 ∧ 𝑗 ∈ dom 𝐴) ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) → (𝑖 < 𝑗 → ((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗))))
33	30, 31, 32	sylc 66	. . . . . . . 8 ⊢ (((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑖 < 𝑗) → ((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗)))
34		eqid 2763	. . . . . . . . . . 11 ⊢ (Itv‘𝐺) = (Itv‘𝐺)
35	4	ad3antrrr 743	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑖 = 𝑗) → 𝐺 ∈ TarskiG)
36	6	ad2antrr 739	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) → 𝐴:𝐷⟶𝑃)
37		simplr 781	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) → 𝑖 ∈ dom 𝐴)
38	36	fdmd 6731	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) → dom 𝐴 = 𝐷)
39	37, 38	eleqtrd 2866	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) → 𝑖 ∈ 𝐷)
40	36, 39	ffvelcdmd 7096	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) → (𝐴‘𝑖) ∈ 𝑃)
41	40	adantr 486	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑖 = 𝑗) → (𝐴‘𝑖) ∈ 𝑃)
42	7	ad2antrr 739	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) → 𝐵:𝐷⟶𝑃)
43	42, 39	ffvelcdmd 7096	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) → (𝐵‘𝑖) ∈ 𝑃)
44	43	adantr 486	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑖 = 𝑗) → (𝐵‘𝑖) ∈ 𝑃)
45	1, 2, 34, 35, 41, 44	tgcgrtriv 28961	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑖 = 𝑗) → ((𝐴‘𝑖) − (𝐴‘𝑖)) = ((𝐵‘𝑖) − (𝐵‘𝑖)))
46		simpr 490	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑖 = 𝑗) → 𝑖 = 𝑗)
47	46	fveq2d 6900	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑖 = 𝑗) → (𝐴‘𝑖) = (𝐴‘𝑗))
48	47	oveq2d 7446	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑖 = 𝑗) → ((𝐴‘𝑖) − (𝐴‘𝑖)) = ((𝐴‘𝑖) − (𝐴‘𝑗)))
49	46	fveq2d 6900	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑖 = 𝑗) → (𝐵‘𝑖) = (𝐵‘𝑗))
50	49	oveq2d 7446	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑖 = 𝑗) → ((𝐵‘𝑖) − (𝐵‘𝑖)) = ((𝐵‘𝑖) − (𝐵‘𝑗)))
51	45, 48, 50	3eqtr3d 2806	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑖 = 𝑗) → ((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗)))
52	51	adantl3r 763	. . . . . . . 8 ⊢ (((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑖 = 𝑗) → ((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗)))
53	4	ad4antr 745	. . . . . . . . 9 ⊢ (((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑗 < 𝑖) → 𝐺 ∈ TarskiG)
54		simpr 490	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) → 𝑗 ∈ dom 𝐴)
55	54, 38	eleqtrd 2866	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) → 𝑗 ∈ 𝐷)
56	36, 55	ffvelcdmd 7096	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) → (𝐴‘𝑗) ∈ 𝑃)
57	56	adantr 486	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑗 < 𝑖) → (𝐴‘𝑗) ∈ 𝑃)
58	57	adantl3r 763	. . . . . . . . 9 ⊢ (((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑗 < 𝑖) → (𝐴‘𝑗) ∈ 𝑃)
59	40	adantr 486	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑗 < 𝑖) → (𝐴‘𝑖) ∈ 𝑃)
60	59	adantl3r 763	. . . . . . . . 9 ⊢ (((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑗 < 𝑖) → (𝐴‘𝑖) ∈ 𝑃)
61	42, 55	ffvelcdmd 7096	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) → (𝐵‘𝑗) ∈ 𝑃)
62	61	adantr 486	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑗 < 𝑖) → (𝐵‘𝑗) ∈ 𝑃)
63	62	adantl3r 763	. . . . . . . . 9 ⊢ (((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑗 < 𝑖) → (𝐵‘𝑗) ∈ 𝑃)
64	43	adantr 486	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑗 < 𝑖) → (𝐵‘𝑖) ∈ 𝑃)
65	64	adantl3r 763	. . . . . . . . 9 ⊢ (((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑗 < 𝑖) → (𝐵‘𝑖) ∈ 𝑃)
66		simplr 781	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑗 < 𝑖) → 𝑗 ∈ dom 𝐴)
67		simpllr 788	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑗 < 𝑖) → 𝑖 ∈ dom 𝐴)
68		simp-4r 796	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑗 < 𝑖) → ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙))))
69	66, 67, 68	jca31 524	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑗 < 𝑖) → ((𝑗 ∈ dom 𝐴 ∧ 𝑖 ∈ dom 𝐴) ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))))
70		simpr 490	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑗 < 𝑖) → 𝑗 < 𝑖)
71		breq1 5109	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑗 → (𝑘 < 𝑙 ↔ 𝑗 < 𝑙))
72		fveq2 6896	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 𝑗 → (𝐴‘𝑘) = (𝐴‘𝑗))
73	72	oveq1d 7445	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑗 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐴‘𝑗) − (𝐴‘𝑙)))
74		fveq2 6896	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 𝑗 → (𝐵‘𝑘) = (𝐵‘𝑗))
75	74	oveq1d 7445	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑗 → ((𝐵‘𝑘) − (𝐵‘𝑙)) = ((𝐵‘𝑗) − (𝐵‘𝑙)))
76	73, 75	eqeq12d 2779	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑗 → (((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)) ↔ ((𝐴‘𝑗) − (𝐴‘𝑙)) = ((𝐵‘𝑗) − (𝐵‘𝑙))))
77	71, 76	imbi12d 347	. . . . . . . . . . 11 ⊢ (𝑘 = 𝑗 → ((𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙))) ↔ (𝑗 < 𝑙 → ((𝐴‘𝑗) − (𝐴‘𝑙)) = ((𝐵‘𝑗) − (𝐵‘𝑙)))))
78		breq2 5110	. . . . . . . . . . . 12 ⊢ (𝑙 = 𝑖 → (𝑗 < 𝑙 ↔ 𝑗 < 𝑖))
79		fveq2 6896	. . . . . . . . . . . . . 14 ⊢ (𝑙 = 𝑖 → (𝐴‘𝑙) = (𝐴‘𝑖))
80	79	oveq2d 7446	. . . . . . . . . . . . 13 ⊢ (𝑙 = 𝑖 → ((𝐴‘𝑗) − (𝐴‘𝑙)) = ((𝐴‘𝑗) − (𝐴‘𝑖)))
81		fveq2 6896	. . . . . . . . . . . . . 14 ⊢ (𝑙 = 𝑖 → (𝐵‘𝑙) = (𝐵‘𝑖))
82	81	oveq2d 7446	. . . . . . . . . . . . 13 ⊢ (𝑙 = 𝑖 → ((𝐵‘𝑗) − (𝐵‘𝑙)) = ((𝐵‘𝑗) − (𝐵‘𝑖)))
83	80, 82	eqeq12d 2779	. . . . . . . . . . . 12 ⊢ (𝑙 = 𝑖 → (((𝐴‘𝑗) − (𝐴‘𝑙)) = ((𝐵‘𝑗) − (𝐵‘𝑙)) ↔ ((𝐴‘𝑗) − (𝐴‘𝑖)) = ((𝐵‘𝑗) − (𝐵‘𝑖))))
84	78, 83	imbi12d 347	. . . . . . . . . . 11 ⊢ (𝑙 = 𝑖 → ((𝑗 < 𝑙 → ((𝐴‘𝑗) − (𝐴‘𝑙)) = ((𝐵‘𝑗) − (𝐵‘𝑙))) ↔ (𝑗 < 𝑖 → ((𝐴‘𝑗) − (𝐴‘𝑖)) = ((𝐵‘𝑗) − (𝐵‘𝑖)))))
85	77, 84	rspc2va 3591	. . . . . . . . . 10 ⊢ (((𝑗 ∈ dom 𝐴 ∧ 𝑖 ∈ dom 𝐴) ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) → (𝑗 < 𝑖 → ((𝐴‘𝑗) − (𝐴‘𝑖)) = ((𝐵‘𝑗) − (𝐵‘𝑖))))
86	69, 70, 85	sylc 66	. . . . . . . . 9 ⊢ (((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑗 < 𝑖) → ((𝐴‘𝑗) − (𝐴‘𝑖)) = ((𝐵‘𝑗) − (𝐵‘𝑖)))
87	1, 2, 34, 53, 58, 60, 63, 65, 86	tgcgrcomlr 28957	. . . . . . . 8 ⊢ (((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) ∧ 𝑗 < 𝑖) → ((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗)))
88	6	fdmd 6731	. . . . . . . . . . . 12 ⊢ (𝜑 → dom 𝐴 = 𝐷)
89	88, 5	eqsstrd 3947	. . . . . . . . . . 11 ⊢ (𝜑 → dom 𝐴 ⊆ ℝ)
90	89	ad3antrrr 743	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) → dom 𝐴 ⊆ ℝ)
91		simplr 781	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) → 𝑖 ∈ dom 𝐴)
92	90, 91	sseldd 3914	. . . . . . . . 9 ⊢ ((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) → 𝑖 ∈ ℝ)
93		simpr 490	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) → 𝑗 ∈ dom 𝐴)
94	90, 93	sseldd 3914	. . . . . . . . 9 ⊢ ((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) → 𝑗 ∈ ℝ)
95	92, 94	lttri4d 11464	. . . . . . . 8 ⊢ ((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) → (𝑖 < 𝑗 ∨ 𝑖 = 𝑗 ∨ 𝑗 < 𝑖))
96	33, 52, 87, 95	mpjao3dan 1459	. . . . . . 7 ⊢ ((((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ 𝑖 ∈ dom 𝐴) ∧ 𝑗 ∈ dom 𝐴) → ((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗)))
97	96	anasss 472	. . . . . 6 ⊢ (((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) ∧ (𝑖 ∈ dom 𝐴 ∧ 𝑗 ∈ dom 𝐴)) → ((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗)))
98	97	ralrimivva 3209	. . . . 5 ⊢ ((𝜑 ∧ ∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙)))) → ∀𝑖 ∈ dom 𝐴∀𝑗 ∈ dom 𝐴((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗)))
99	98	ex 418	. . . 4 ⊢ (𝜑 → (∀𝑘 ∈ dom 𝐴∀𝑙 ∈ dom 𝐴(𝑘 < 𝑙 → ((𝐴‘𝑘) − (𝐴‘𝑙)) = ((𝐵‘𝑘) − (𝐵‘𝑙))) → ∀𝑖 ∈ dom 𝐴∀𝑗 ∈ dom 𝐴((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗))))
100	26, 99	biimtrrid 246	. . 3 ⊢ (𝜑 → (∀𝑖 ∈ dom 𝐴∀𝑗 ∈ dom 𝐴(𝑖 < 𝑗 → ((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗))) → ∀𝑖 ∈ dom 𝐴∀𝑗 ∈ dom 𝐴((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗))))
101	11, 100	impbid 215	. 2 ⊢ (𝜑 → (∀𝑖 ∈ dom 𝐴∀𝑗 ∈ dom 𝐴((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗)) ↔ ∀𝑖 ∈ dom 𝐴∀𝑗 ∈ dom 𝐴(𝑖 < 𝑗 → ((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗)))))
102	8, 101	bitrd 282	1 ⊢ (𝜑 → (𝐴 ∼ 𝐵 ↔ ∀𝑖 ∈ dom 𝐴∀𝑗 ∈ dom 𝐴(𝑖 < 𝑗 → ((𝐴‘𝑖) − (𝐴‘𝑗)) = ((𝐵‘𝑖) − (𝐵‘𝑗)))))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ↔ wb 209 ∧ wa 401 = wceq 1569 ∈ wcel 2146 ∀wral 3080 ⊆ wss 3900 class class class wbr 5106 dom cdm 5655 ⟶wf 6543 ‘cfv 6547 (class class class)co 7430 ℝcr 11212 < clt 11356 Basecbs 17402 distcds 17452 TarskiGcstrkg 28904 Itvcitv 28910 cgrGccgrg 28988

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1827 ax-4 1841 ax-5 1944 ax-6 2001 ax-7 2042 ax-8 2148 ax-9 2156 ax-10 2179 ax-11 2196 ax-12 2215 ax-ext 2735 ax-sep 5252 ax-nul 5263 ax-pow 5331 ax-pr 5395 ax-un 7761 ax-cnex 11269 ax-resscn 11270 ax-pre-lttri 11287 ax-pre-lttrn 11288

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1572 df-fal 1582 df-ex 1812 df-nf 1816 df-sb 2101 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2839 df-nfc 2913 df-ne 2960 df-nel 3066 df-ral 3081 df-rex 3091 df-rab 3417 df-v 3456 df-sbc 3743 df-csb 3852 df-ss 3901 df-dif 4050 df-in 4094 df-un 4154 df-nul 4282 df-if 4486 df-pw 4562 df-sn 4589 df-pr 4591 df-op 4839 df-uni 4871 df-br 5107 df-opab 5171 df-mpt 5190 df-id 5550 df-po 5563 df-so 5564 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 6501 df-fun 6549 df-fn 6550 df-f 6551 df-f1 6552 df-fo 6553 df-f1o 6554 df-fv 6555 df-ov 7433 df-oprab 7434 df-mpo 7435 df-er 8731 df-pm 8864 df-en 8988 df-dom 8989 df-sdom 8990 df-pnf 11358 df-mnf 11359 df-ltxr 11361 df-trkgc 28925 df-trkgcb 28927 df-trkg 28930 df-cgrg 28989

This theorem is used by: tgcgr4 29009

W3C validator