chnsubseq - Mathbox for Ender Ting

	Mathbox for Ender Ting		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > chnsubseq		Structured version Visualization version GIF version

Theorem chnsubseq 47066

Description: An order-preserving subsequence of an ordered chain is itself a chain. (Contributed by Ender Ting, 22-Jan-2026.)

**Hypotheses**
Ref	Expression
chnsubseq.1	⊢ (𝜑 → 𝑊 ∈ ( < Chain 𝐴))
chnsubseq.2	⊢ (𝜑 → 𝐼 ∈ ( < Chain (0..^(♯‘𝑊))))
chnsubseq.3	⊢ (𝜑 → < Po 𝐴)

**Assertion**
Ref	Expression
chnsubseq	⊢ (𝜑 → (𝑊 ∘ 𝐼) ∈ ( < Chain 𝐴))

Proof of Theorem chnsubseq Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		chnsubseq.1	. . 3 ⊢ (𝜑 → 𝑊 ∈ ( < Chain 𝐴))
2		chnsubseq.2	. . 3 ⊢ (𝜑 → 𝐼 ∈ ( < Chain (0..^(♯‘𝑊))))
3	1, 2	chnsubseqword 47064	. 2 ⊢ (𝜑 → (𝑊 ∘ 𝐼) ∈ Word 𝐴)
4		chnsubseq.3	. . . . . 6 ⊢ (𝜑 → < Po 𝐴)
5	4	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → < Po 𝐴)
6	1	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → 𝑊 ∈ ( < Chain 𝐴))
7	2	chnwrd 18529	. . . . . . . 8 ⊢ (𝜑 → 𝐼 ∈ Word (0..^(♯‘𝑊)))
8	7	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → 𝐼 ∈ Word (0..^(♯‘𝑊)))
9		wrdf 14439	. . . . . . 7 ⊢ (𝐼 ∈ Word (0..^(♯‘𝑊)) → 𝐼:(0..^(♯‘𝐼))⟶(0..^(♯‘𝑊)))
10	8, 9	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → 𝐼:(0..^(♯‘𝐼))⟶(0..^(♯‘𝑊)))
11		eldifi 4081	. . . . . . 7 ⊢ (𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0}) → 𝑥 ∈ dom (𝑊 ∘ 𝐼))
12		wrddm 14442	. . . . . . . . . . 11 ⊢ ((𝑊 ∘ 𝐼) ∈ Word 𝐴 → dom (𝑊 ∘ 𝐼) = (0..^(♯‘(𝑊 ∘ 𝐼))))
13	3, 12	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → dom (𝑊 ∘ 𝐼) = (0..^(♯‘(𝑊 ∘ 𝐼))))
14	1, 2	chnsubseqwl 47065	. . . . . . . . . . 11 ⊢ (𝜑 → (♯‘(𝑊 ∘ 𝐼)) = (♯‘𝐼))
15	14	oveq2d 7372	. . . . . . . . . 10 ⊢ (𝜑 → (0..^(♯‘(𝑊 ∘ 𝐼))) = (0..^(♯‘𝐼)))
16	13, 15	eqtrd 2769	. . . . . . . . 9 ⊢ (𝜑 → dom (𝑊 ∘ 𝐼) = (0..^(♯‘𝐼)))
17	16	eleq2d 2820	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ dom (𝑊 ∘ 𝐼) ↔ 𝑥 ∈ (0..^(♯‘𝐼))))
18	17	biimpa 476	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ dom (𝑊 ∘ 𝐼)) → 𝑥 ∈ (0..^(♯‘𝐼)))
19	11, 18	sylan2 593	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → 𝑥 ∈ (0..^(♯‘𝐼)))
20	10, 19	ffvelcdmd 7028	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → (𝐼‘𝑥) ∈ (0..^(♯‘𝑊)))
21		elfzonn0 13621	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ (0..^(♯‘𝐼)) → 𝑥 ∈ ℕ₀)
22	19, 21	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → 𝑥 ∈ ℕ₀)
23		simpr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0}))
24	23	eldifbd 3912	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → ¬ 𝑥 ∈ {0})
25		velsn 4594	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ {0} ↔ 𝑥 = 0)
26	24, 25	sylnib 328	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → ¬ 𝑥 = 0)
27	26	neqned 2937	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → 𝑥 ≠ 0)
28		elnnne0 12413	. . . . . . . . . . 11 ⊢ (𝑥 ∈ ℕ ↔ (𝑥 ∈ ℕ₀ ∧ 𝑥 ≠ 0))
29	22, 27, 28	sylanbrc 583	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → 𝑥 ∈ ℕ)
30		nnm1ge0 12558	. . . . . . . . . 10 ⊢ (𝑥 ∈ ℕ → 0 ≤ (𝑥 − 1))
31	29, 30	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → 0 ≤ (𝑥 − 1))
32	22	nn0red 12461	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → 𝑥 ∈ ℝ)
33		peano2rem 11446	. . . . . . . . . . 11 ⊢ (𝑥 ∈ ℝ → (𝑥 − 1) ∈ ℝ)
34	32, 33	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → (𝑥 − 1) ∈ ℝ)
35		lencl 14454	. . . . . . . . . . . . 13 ⊢ (𝐼 ∈ Word (0..^(♯‘𝑊)) → (♯‘𝐼) ∈ ℕ₀)
36	7, 35	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (♯‘𝐼) ∈ ℕ₀)
37	36	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → (♯‘𝐼) ∈ ℕ₀)
38	37	nn0red 12461	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → (♯‘𝐼) ∈ ℝ)
39	32	ltm1d 12072	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → (𝑥 − 1) < 𝑥)
40	11	adantl 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → 𝑥 ∈ dom (𝑊 ∘ 𝐼))
41	13	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → dom (𝑊 ∘ 𝐼) = (0..^(♯‘(𝑊 ∘ 𝐼))))
42	40, 41	eleqtrd 2836	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → 𝑥 ∈ (0..^(♯‘(𝑊 ∘ 𝐼))))
43		elfzolt2 13582	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ (0..^(♯‘(𝑊 ∘ 𝐼))) → 𝑥 < (♯‘(𝑊 ∘ 𝐼)))
44	42, 43	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → 𝑥 < (♯‘(𝑊 ∘ 𝐼)))
45	14	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → (♯‘(𝑊 ∘ 𝐼)) = (♯‘𝐼))
46	44, 45	breqtrd 5122	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → 𝑥 < (♯‘𝐼))
47	34, 32, 38, 39, 46	lttrd 11292	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → (𝑥 − 1) < (♯‘𝐼))
48		elfzoelz 13573	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ (0..^(♯‘𝐼)) → 𝑥 ∈ ℤ)
49	19, 48	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → 𝑥 ∈ ℤ)
50		peano2zm 12532	. . . . . . . . . . 11 ⊢ (𝑥 ∈ ℤ → (𝑥 − 1) ∈ ℤ)
51	49, 50	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → (𝑥 − 1) ∈ ℤ)
52		0zd 12498	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → 0 ∈ ℤ)
53	36	nn0zd 12511	. . . . . . . . . . 11 ⊢ (𝜑 → (♯‘𝐼) ∈ ℤ)
54	53	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → (♯‘𝐼) ∈ ℤ)
55		elfzo 13575	. . . . . . . . . 10 ⊢ (((𝑥 − 1) ∈ ℤ ∧ 0 ∈ ℤ ∧ (♯‘𝐼) ∈ ℤ) → ((𝑥 − 1) ∈ (0..^(♯‘𝐼)) ↔ (0 ≤ (𝑥 − 1) ∧ (𝑥 − 1) < (♯‘𝐼))))
56	51, 52, 54, 55	syl3anc 1373	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → ((𝑥 − 1) ∈ (0..^(♯‘𝐼)) ↔ (0 ≤ (𝑥 − 1) ∧ (𝑥 − 1) < (♯‘𝐼))))
57	31, 47, 56	mpbir2and 713	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → (𝑥 − 1) ∈ (0..^(♯‘𝐼)))
58	10, 57	ffvelcdmd 7028	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → (𝐼‘(𝑥 − 1)) ∈ (0..^(♯‘𝑊)))
59		elfzonn0 13621	. . . . . . 7 ⊢ ((𝐼‘(𝑥 − 1)) ∈ (0..^(♯‘𝑊)) → (𝐼‘(𝑥 − 1)) ∈ ℕ₀)
60	58, 59	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → (𝐼‘(𝑥 − 1)) ∈ ℕ₀)
61		elfzoelz 13573	. . . . . . 7 ⊢ ((𝐼‘𝑥) ∈ (0..^(♯‘𝑊)) → (𝐼‘𝑥) ∈ ℤ)
62	20, 61	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → (𝐼‘𝑥) ∈ ℤ)
63	2	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → 𝐼 ∈ ( < Chain (0..^(♯‘𝑊))))
64		wrddm 14442	. . . . . . . . . . . 12 ⊢ (𝐼 ∈ Word (0..^(♯‘𝑊)) → dom 𝐼 = (0..^(♯‘𝐼)))
65	7, 64	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → dom 𝐼 = (0..^(♯‘𝐼)))
66	15, 13, 65	3eqtr4d 2779	. . . . . . . . . 10 ⊢ (𝜑 → dom (𝑊 ∘ 𝐼) = dom 𝐼)
67	66	difeq1d 4075	. . . . . . . . 9 ⊢ (𝜑 → (dom (𝑊 ∘ 𝐼) ∖ {0}) = (dom 𝐼 ∖ {0}))
68	67	eleq2d 2820	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0}) ↔ 𝑥 ∈ (dom 𝐼 ∖ {0})))
69	68	biimpa 476	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → 𝑥 ∈ (dom 𝐼 ∖ {0}))
70	63, 69	chnltm1 18530	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → (𝐼‘(𝑥 − 1)) < (𝐼‘𝑥))
71		elfzo0z 13615	. . . . . 6 ⊢ ((𝐼‘(𝑥 − 1)) ∈ (0..^(𝐼‘𝑥)) ↔ ((𝐼‘(𝑥 − 1)) ∈ ℕ₀ ∧ (𝐼‘𝑥) ∈ ℤ ∧ (𝐼‘(𝑥 − 1)) < (𝐼‘𝑥)))
72	60, 62, 70, 71	syl3anbrc 1344	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → (𝐼‘(𝑥 − 1)) ∈ (0..^(𝐼‘𝑥)))
73	5, 6, 20, 72	chnlt 18544	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → (𝑊‘(𝐼‘(𝑥 − 1))) < (𝑊‘(𝐼‘𝑥)))
74	10, 57	fvco3d 6932	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → ((𝑊 ∘ 𝐼)‘(𝑥 − 1)) = (𝑊‘(𝐼‘(𝑥 − 1))))
75	10, 19	fvco3d 6932	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → ((𝑊 ∘ 𝐼)‘𝑥) = (𝑊‘(𝐼‘𝑥)))
76	73, 74, 75	3brtr4d 5128	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})) → ((𝑊 ∘ 𝐼)‘(𝑥 − 1)) < ((𝑊 ∘ 𝐼)‘𝑥))
77	76	ralrimiva 3126	. 2 ⊢ (𝜑 → ∀𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})((𝑊 ∘ 𝐼)‘(𝑥 − 1)) < ((𝑊 ∘ 𝐼)‘𝑥))
78		ischn 18528	. 2 ⊢ ((𝑊 ∘ 𝐼) ∈ ( < Chain 𝐴) ↔ ((𝑊 ∘ 𝐼) ∈ Word 𝐴 ∧ ∀𝑥 ∈ (dom (𝑊 ∘ 𝐼) ∖ {0})((𝑊 ∘ 𝐼)‘(𝑥 − 1)) < ((𝑊 ∘ 𝐼)‘𝑥)))
79	3, 77, 78	sylanbrc 583	1 ⊢ (𝜑 → (𝑊 ∘ 𝐼) ∈ ( < Chain 𝐴))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 = wceq 1541 ∈ wcel 2113 ≠ wne 2930 ∀wral 3049 ∖ cdif 3896 {csn 4578 class class class wbr 5096 Po wpo 5528 dom cdm 5622 ∘ ccom 5626 ⟶wf 6486 ‘cfv 6490 (class class class)co 7356 ℝcr 11023 0cc0 11024 1c1 11025 < clt 11164 ≤ cle 11165 − cmin 11362 ℕcn 12143 ℕ₀cn0 12399 ℤcz 12486 ..^cfzo 13568 ♯chash 14251 Word cword 14434 Chain cchn 18526

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2115 ax-9 2123 ax-10 2146 ax-11 2162 ax-12 2182 ax-ext 2706 ax-rep 5222 ax-sep 5239 ax-nul 5249 ax-pow 5308 ax-pr 5375 ax-un 7678 ax-cnex 11080 ax-resscn 11081 ax-1cn 11082 ax-icn 11083 ax-addcl 11084 ax-addrcl 11085 ax-mulcl 11086 ax-mulrcl 11087 ax-mulcom 11088 ax-addass 11089 ax-mulass 11090 ax-distr 11091 ax-i2m1 11092 ax-1ne0 11093 ax-1rid 11094 ax-rnegex 11095 ax-rrecex 11096 ax-cnre 11097 ax-pre-lttri 11098 ax-pre-lttrn 11099 ax-pre-ltadd 11100 ax-pre-mulgt0 11101

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 df-mo 2537 df-eu 2567 df-clab 2713 df-cleq 2726 df-clel 2809 df-nfc 2883 df-ne 2931 df-nel 3035 df-ral 3050 df-rex 3059 df-reu 3349 df-rab 3398 df-v 3440 df-sbc 3739 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4284 df-if 4478 df-pw 4554 df-sn 4579 df-pr 4581 df-op 4585 df-uni 4862 df-int 4901 df-iun 4946 df-br 5097 df-opab 5159 df-mpt 5178 df-tr 5204 df-id 5517 df-eprel 5522 df-po 5530 df-so 5531 df-fr 5575 df-we 5577 df-xp 5628 df-rel 5629 df-cnv 5630 df-co 5631 df-dm 5632 df-rn 5633 df-res 5634 df-ima 5635 df-pred 6257 df-ord 6318 df-on 6319 df-lim 6320 df-suc 6321 df-iota 6446 df-fun 6492 df-fn 6493 df-f 6494 df-f1 6495 df-fo 6496 df-f1o 6497 df-fv 6498 df-riota 7313 df-ov 7359 df-oprab 7360 df-mpo 7361 df-om 7807 df-1st 7931 df-2nd 7932 df-frecs 8221 df-wrecs 8252 df-recs 8301 df-rdg 8339 df-1o 8395 df-er 8633 df-en 8882 df-dom 8883 df-sdom 8884 df-fin 8885 df-card 9849 df-pnf 11166 df-mnf 11167 df-xr 11168 df-ltxr 11169 df-le 11170 df-sub 11364 df-neg 11365 df-nn 12144 df-n0 12400 df-xnn0 12473 df-z 12487 df-uz 12750 df-rp 12904 df-fz 13422 df-fzo 13569 df-hash 14252 df-word 14435 df-lsw 14484 df-concat 14492 df-s1 14518 df-substr 14563 df-pfx 14593 df-chn 18527

This theorem is referenced by: (None)

W3C validator