Theorem smores2 8288

Description: A strictly monotone ordinal function restricted to an ordinal is still monotone. (Contributed by Mario Carneiro, 15-Mar-2013.)

Assertion

Ref	Expression
smores2	⊢ ((Smo 𝐹 ∧ Ord 𝐴) → Smo (𝐹 ↾ 𝐴))

Proof of Theorem smores2

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		dfsmo2 8281	. . . . . . 7 ⊢ (Smo 𝐹 ↔ (𝐹:dom 𝐹⟶On ∧ Ord dom 𝐹 ∧ ∀𝑥 ∈ dom 𝐹∀𝑦 ∈ 𝑥 (𝐹‘𝑦) ∈ (𝐹‘𝑥)))
2	1	simp1bi 1146	. . . . . 6 ⊢ (Smo 𝐹 → 𝐹:dom 𝐹⟶On)
3	2	ffund 6667	. . . . 5 ⊢ (Smo 𝐹 → Fun 𝐹)
4		funres 6535	. . . . . 6 ⊢ (Fun 𝐹 → Fun (𝐹 ↾ 𝐴))
5	4	funfnd 6524	. . . . 5 ⊢ (Fun 𝐹 → (𝐹 ↾ 𝐴) Fn dom (𝐹 ↾ 𝐴))
6	3, 5	syl 17	. . . 4 ⊢ (Smo 𝐹 → (𝐹 ↾ 𝐴) Fn dom (𝐹 ↾ 𝐴))
7		df-ima 5638	. . . . . 6 ⊢ (𝐹 “ 𝐴) = ran (𝐹 ↾ 𝐴)
8		imassrn 6031	. . . . . 6 ⊢ (𝐹 “ 𝐴) ⊆ ran 𝐹
9	7, 8	eqsstrri 3970	. . . . 5 ⊢ ran (𝐹 ↾ 𝐴) ⊆ ran 𝐹
10	2	frnd 6671	. . . . 5 ⊢ (Smo 𝐹 → ran 𝐹 ⊆ On)
11	9, 10	sstrid 3934	. . . 4 ⊢ (Smo 𝐹 → ran (𝐹 ↾ 𝐴) ⊆ On)
12		df-f 6497	. . . 4 ⊢ ((𝐹 ↾ 𝐴):dom (𝐹 ↾ 𝐴)⟶On ↔ ((𝐹 ↾ 𝐴) Fn dom (𝐹 ↾ 𝐴) ∧ ran (𝐹 ↾ 𝐴) ⊆ On))
13	6, 11, 12	sylanbrc 584	. . 3 ⊢ (Smo 𝐹 → (𝐹 ↾ 𝐴):dom (𝐹 ↾ 𝐴)⟶On)
14	13	adantr 480	. 2 ⊢ ((Smo 𝐹 ∧ Ord 𝐴) → (𝐹 ↾ 𝐴):dom (𝐹 ↾ 𝐴)⟶On)
15		smodm 8285	. . 3 ⊢ (Smo 𝐹 → Ord dom 𝐹)
16		ordin 6348	. . . . 5 ⊢ ((Ord 𝐴 ∧ Ord dom 𝐹) → Ord (𝐴 ∩ dom 𝐹))
17		dmres 5972	. . . . . 6 ⊢ dom (𝐹 ↾ 𝐴) = (𝐴 ∩ dom 𝐹)
18		ordeq 6325	. . . . . 6 ⊢ (dom (𝐹 ↾ 𝐴) = (𝐴 ∩ dom 𝐹) → (Ord dom (𝐹 ↾ 𝐴) ↔ Ord (𝐴 ∩ dom 𝐹)))
19	17, 18	ax-mp 5	. . . . 5 ⊢ (Ord dom (𝐹 ↾ 𝐴) ↔ Ord (𝐴 ∩ dom 𝐹))
20	16, 19	sylibr 234	. . . 4 ⊢ ((Ord 𝐴 ∧ Ord dom 𝐹) → Ord dom (𝐹 ↾ 𝐴))
21	20	ancoms 458	. . 3 ⊢ ((Ord dom 𝐹 ∧ Ord 𝐴) → Ord dom (𝐹 ↾ 𝐴))
22	15, 21	sylan 581	. 2 ⊢ ((Smo 𝐹 ∧ Ord 𝐴) → Ord dom (𝐹 ↾ 𝐴))
23		resss 5961	. . . . . 6 ⊢ (𝐹 ↾ 𝐴) ⊆ 𝐹
24		dmss 5852	. . . . . 6 ⊢ ((𝐹 ↾ 𝐴) ⊆ 𝐹 → dom (𝐹 ↾ 𝐴) ⊆ dom 𝐹)
25	23, 24	ax-mp 5	. . . . 5 ⊢ dom (𝐹 ↾ 𝐴) ⊆ dom 𝐹
26	1	simp3bi 1148	. . . . 5 ⊢ (Smo 𝐹 → ∀𝑥 ∈ dom 𝐹∀𝑦 ∈ 𝑥 (𝐹‘𝑦) ∈ (𝐹‘𝑥))
27		ssralv 3991	. . . . 5 ⊢ (dom (𝐹 ↾ 𝐴) ⊆ dom 𝐹 → (∀𝑥 ∈ dom 𝐹∀𝑦 ∈ 𝑥 (𝐹‘𝑦) ∈ (𝐹‘𝑥) → ∀𝑥 ∈ dom (𝐹 ↾ 𝐴)∀𝑦 ∈ 𝑥 (𝐹‘𝑦) ∈ (𝐹‘𝑥)))
28	25, 26, 27	mpsyl 68	. . . 4 ⊢ (Smo 𝐹 → ∀𝑥 ∈ dom (𝐹 ↾ 𝐴)∀𝑦 ∈ 𝑥 (𝐹‘𝑦) ∈ (𝐹‘𝑥))
29	28	adantr 480	. . 3 ⊢ ((Smo 𝐹 ∧ Ord 𝐴) → ∀𝑥 ∈ dom (𝐹 ↾ 𝐴)∀𝑦 ∈ 𝑥 (𝐹‘𝑦) ∈ (𝐹‘𝑥))
30		ordtr1 6362	. . . . . . . . . . 11 ⊢ (Ord dom (𝐹 ↾ 𝐴) → ((𝑦 ∈ 𝑥 ∧ 𝑥 ∈ dom (𝐹 ↾ 𝐴)) → 𝑦 ∈ dom (𝐹 ↾ 𝐴)))
31	22, 30	syl 17	. . . . . . . . . 10 ⊢ ((Smo 𝐹 ∧ Ord 𝐴) → ((𝑦 ∈ 𝑥 ∧ 𝑥 ∈ dom (𝐹 ↾ 𝐴)) → 𝑦 ∈ dom (𝐹 ↾ 𝐴)))
32		inss1 4178	. . . . . . . . . . . 12 ⊢ (𝐴 ∩ dom 𝐹) ⊆ 𝐴
33	17, 32	eqsstri 3969	. . . . . . . . . . 11 ⊢ dom (𝐹 ↾ 𝐴) ⊆ 𝐴
34	33	sseli 3918	. . . . . . . . . 10 ⊢ (𝑦 ∈ dom (𝐹 ↾ 𝐴) → 𝑦 ∈ 𝐴)
35	31, 34	syl6 35	. . . . . . . . 9 ⊢ ((Smo 𝐹 ∧ Ord 𝐴) → ((𝑦 ∈ 𝑥 ∧ 𝑥 ∈ dom (𝐹 ↾ 𝐴)) → 𝑦 ∈ 𝐴))
36	35	expcomd 416	. . . . . . . 8 ⊢ ((Smo 𝐹 ∧ Ord 𝐴) → (𝑥 ∈ dom (𝐹 ↾ 𝐴) → (𝑦 ∈ 𝑥 → 𝑦 ∈ 𝐴)))
37	36	imp31 417	. . . . . . 7 ⊢ ((((Smo 𝐹 ∧ Ord 𝐴) ∧ 𝑥 ∈ dom (𝐹 ↾ 𝐴)) ∧ 𝑦 ∈ 𝑥) → 𝑦 ∈ 𝐴)
38	37	fvresd 6855	. . . . . 6 ⊢ ((((Smo 𝐹 ∧ Ord 𝐴) ∧ 𝑥 ∈ dom (𝐹 ↾ 𝐴)) ∧ 𝑦 ∈ 𝑥) → ((𝐹 ↾ 𝐴)‘𝑦) = (𝐹‘𝑦))
39	33	sseli 3918	. . . . . . . 8 ⊢ (𝑥 ∈ dom (𝐹 ↾ 𝐴) → 𝑥 ∈ 𝐴)
40	39	fvresd 6855	. . . . . . 7 ⊢ (𝑥 ∈ dom (𝐹 ↾ 𝐴) → ((𝐹 ↾ 𝐴)‘𝑥) = (𝐹‘𝑥))
41	40	ad2antlr 728	. . . . . 6 ⊢ ((((Smo 𝐹 ∧ Ord 𝐴) ∧ 𝑥 ∈ dom (𝐹 ↾ 𝐴)) ∧ 𝑦 ∈ 𝑥) → ((𝐹 ↾ 𝐴)‘𝑥) = (𝐹‘𝑥))
42	38, 41	eleq12d 2831	. . . . 5 ⊢ ((((Smo 𝐹 ∧ Ord 𝐴) ∧ 𝑥 ∈ dom (𝐹 ↾ 𝐴)) ∧ 𝑦 ∈ 𝑥) → (((𝐹 ↾ 𝐴)‘𝑦) ∈ ((𝐹 ↾ 𝐴)‘𝑥) ↔ (𝐹‘𝑦) ∈ (𝐹‘𝑥)))
43	42	ralbidva 3159	. . . 4 ⊢ (((Smo 𝐹 ∧ Ord 𝐴) ∧ 𝑥 ∈ dom (𝐹 ↾ 𝐴)) → (∀𝑦 ∈ 𝑥 ((𝐹 ↾ 𝐴)‘𝑦) ∈ ((𝐹 ↾ 𝐴)‘𝑥) ↔ ∀𝑦 ∈ 𝑥 (𝐹‘𝑦) ∈ (𝐹‘𝑥)))
44	43	ralbidva 3159	. . 3 ⊢ ((Smo 𝐹 ∧ Ord 𝐴) → (∀𝑥 ∈ dom (𝐹 ↾ 𝐴)∀𝑦 ∈ 𝑥 ((𝐹 ↾ 𝐴)‘𝑦) ∈ ((𝐹 ↾ 𝐴)‘𝑥) ↔ ∀𝑥 ∈ dom (𝐹 ↾ 𝐴)∀𝑦 ∈ 𝑥 (𝐹‘𝑦) ∈ (𝐹‘𝑥)))
45	29, 44	mpbird 257	. 2 ⊢ ((Smo 𝐹 ∧ Ord 𝐴) → ∀𝑥 ∈ dom (𝐹 ↾ 𝐴)∀𝑦 ∈ 𝑥 ((𝐹 ↾ 𝐴)‘𝑦) ∈ ((𝐹 ↾ 𝐴)‘𝑥))
46		dfsmo2 8281	. 2 ⊢ (Smo (𝐹 ↾ 𝐴) ↔ ((𝐹 ↾ 𝐴):dom (𝐹 ↾ 𝐴)⟶On ∧ Ord dom (𝐹 ↾ 𝐴) ∧ ∀𝑥 ∈ dom (𝐹 ↾ 𝐴)∀𝑦 ∈ 𝑥 ((𝐹 ↾ 𝐴)‘𝑦) ∈ ((𝐹 ↾ 𝐴)‘𝑥)))
47	14, 22, 45, 46	syl3anbrc 1345	1 ⊢ ((Smo 𝐹 ∧ Ord 𝐴) → Smo (𝐹 ↾ 𝐴))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1542   ∈ wcel 2114  ∀wral 3052   ∩ cin 3889   ⊆ wss 3890  dom cdm 5625  ran crn 5626   ↾ cres 5627   “ cima 5628  Ord word 6317  Oncon0 6318  Fun wfun 6487   Fn wfn 6488  ⟶wf 6489  ‘cfv 6493  Smo wsmo 8279

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-11 2163  ax-ext 2709  ax-sep 5232  ax-pr 5371

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-sb 2069  df-clab 2716  df-cleq 2729  df-clel 2812  df-ral 3053  df-rex 3063  df-rab 3391  df-v 3432  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4275  df-if 4468  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-br 5087  df-opab 5149  df-tr 5194  df-po 5533  df-so 5534  df-fr 5578  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-ord 6321  df-iota 6449  df-fun 6495  df-fn 6496  df-f 6497  df-fv 6501  df-smo 8280

This theorem is referenced by: (None)