Theorem smores2 8284

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 8277	. . . . . . 7 ⊢ (Smo 𝐹 ↔ (𝐹:dom 𝐹⟶On ∧ Ord dom 𝐹 ∧ ∀𝑥 ∈ dom 𝐹∀𝑦 ∈ 𝑥 (𝐹‘𝑦) ∈ (𝐹‘𝑥)))
2	1	simp1bi 1145	. . . . . 6 ⊢ (Smo 𝐹 → 𝐹:dom 𝐹⟶On)
3	2	ffund 6664	. . . . 5 ⊢ (Smo 𝐹 → Fun 𝐹)
4		funres 6532	. . . . . 6 ⊢ (Fun 𝐹 → Fun (𝐹 ↾ 𝐴))
5	4	funfnd 6521	. . . . 5 ⊢ (Fun 𝐹 → (𝐹 ↾ 𝐴) Fn dom (𝐹 ↾ 𝐴))
6	3, 5	syl 17	. . . 4 ⊢ (Smo 𝐹 → (𝐹 ↾ 𝐴) Fn dom (𝐹 ↾ 𝐴))
7		df-ima 5635	. . . . . 6 ⊢ (𝐹 “ 𝐴) = ran (𝐹 ↾ 𝐴)
8		imassrn 6028	. . . . . 6 ⊢ (𝐹 “ 𝐴) ⊆ ran 𝐹
9	7, 8	eqsstrri 3979	. . . . 5 ⊢ ran (𝐹 ↾ 𝐴) ⊆ ran 𝐹
10	2	frnd 6668	. . . . 5 ⊢ (Smo 𝐹 → ran 𝐹 ⊆ On)
11	9, 10	sstrid 3943	. . . 4 ⊢ (Smo 𝐹 → ran (𝐹 ↾ 𝐴) ⊆ On)
12		df-f 6494	. . . 4 ⊢ ((𝐹 ↾ 𝐴):dom (𝐹 ↾ 𝐴)⟶On ↔ ((𝐹 ↾ 𝐴) Fn dom (𝐹 ↾ 𝐴) ∧ ran (𝐹 ↾ 𝐴) ⊆ On))
13	6, 11, 12	sylanbrc 583	. . 3 ⊢ (Smo 𝐹 → (𝐹 ↾ 𝐴):dom (𝐹 ↾ 𝐴)⟶On)
14	13	adantr 480	. 2 ⊢ ((Smo 𝐹 ∧ Ord 𝐴) → (𝐹 ↾ 𝐴):dom (𝐹 ↾ 𝐴)⟶On)
15		smodm 8281	. . 3 ⊢ (Smo 𝐹 → Ord dom 𝐹)
16		ordin 6345	. . . . 5 ⊢ ((Ord 𝐴 ∧ Ord dom 𝐹) → Ord (𝐴 ∩ dom 𝐹))
17		dmres 5969	. . . . . 6 ⊢ dom (𝐹 ↾ 𝐴) = (𝐴 ∩ dom 𝐹)
18		ordeq 6322	. . . . . 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 580	. 2 ⊢ ((Smo 𝐹 ∧ Ord 𝐴) → Ord dom (𝐹 ↾ 𝐴))
23		resss 5958	. . . . . 6 ⊢ (𝐹 ↾ 𝐴) ⊆ 𝐹
24		dmss 5849	. . . . . 6 ⊢ ((𝐹 ↾ 𝐴) ⊆ 𝐹 → dom (𝐹 ↾ 𝐴) ⊆ dom 𝐹)
25	23, 24	ax-mp 5	. . . . 5 ⊢ dom (𝐹 ↾ 𝐴) ⊆ dom 𝐹
26	1	simp3bi 1147	. . . . 5 ⊢ (Smo 𝐹 → ∀𝑥 ∈ dom 𝐹∀𝑦 ∈ 𝑥 (𝐹‘𝑦) ∈ (𝐹‘𝑥))
27		ssralv 4000	. . . . 5 ⊢ (dom (𝐹 ↾ 𝐴) ⊆ dom 𝐹 → (∀𝑥 ∈ dom 𝐹∀𝑦 ∈ 𝑥 (𝐹‘𝑦) ∈ (𝐹‘𝑥) → ∀𝑥 ∈ dom (𝐹 ↾ 𝐴)∀𝑦 ∈ 𝑥 (𝐹‘𝑦) ∈ (𝐹‘𝑥)))
28	25, 26, 27	mpsyl 68	. . . 4 ⊢ (Smo 𝐹 → ∀𝑥 ∈ dom (𝐹 ↾ 𝐴)∀𝑦 ∈ 𝑥 (𝐹‘𝑦) ∈ (𝐹‘𝑥))
29	28	adantr 480	. . 3 ⊢ ((Smo 𝐹 ∧ Ord 𝐴) → ∀𝑥 ∈ dom (𝐹 ↾ 𝐴)∀𝑦 ∈ 𝑥 (𝐹‘𝑦) ∈ (𝐹‘𝑥))
30		ordtr1 6359	. . . . . . . . . . 11 ⊢ (Ord dom (𝐹 ↾ 𝐴) → ((𝑦 ∈ 𝑥 ∧ 𝑥 ∈ dom (𝐹 ↾ 𝐴)) → 𝑦 ∈ dom (𝐹 ↾ 𝐴)))
31	22, 30	syl 17	. . . . . . . . . 10 ⊢ ((Smo 𝐹 ∧ Ord 𝐴) → ((𝑦 ∈ 𝑥 ∧ 𝑥 ∈ dom (𝐹 ↾ 𝐴)) → 𝑦 ∈ dom (𝐹 ↾ 𝐴)))
32		inss1 4187	. . . . . . . . . . . 12 ⊢ (𝐴 ∩ dom 𝐹) ⊆ 𝐴
33	17, 32	eqsstri 3978	. . . . . . . . . . 11 ⊢ dom (𝐹 ↾ 𝐴) ⊆ 𝐴
34	33	sseli 3927	. . . . . . . . . 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 6852	. . . . . 6 ⊢ ((((Smo 𝐹 ∧ Ord 𝐴) ∧ 𝑥 ∈ dom (𝐹 ↾ 𝐴)) ∧ 𝑦 ∈ 𝑥) → ((𝐹 ↾ 𝐴)‘𝑦) = (𝐹‘𝑦))
39	33	sseli 3927	. . . . . . . 8 ⊢ (𝑥 ∈ dom (𝐹 ↾ 𝐴) → 𝑥 ∈ 𝐴)
40	39	fvresd 6852	. . . . . . 7 ⊢ (𝑥 ∈ dom (𝐹 ↾ 𝐴) → ((𝐹 ↾ 𝐴)‘𝑥) = (𝐹‘𝑥))
41	40	ad2antlr 727	. . . . . 6 ⊢ ((((Smo 𝐹 ∧ Ord 𝐴) ∧ 𝑥 ∈ dom (𝐹 ↾ 𝐴)) ∧ 𝑦 ∈ 𝑥) → ((𝐹 ↾ 𝐴)‘𝑥) = (𝐹‘𝑥))
42	38, 41	eleq12d 2828	. . . . 5 ⊢ ((((Smo 𝐹 ∧ Ord 𝐴) ∧ 𝑥 ∈ dom (𝐹 ↾ 𝐴)) ∧ 𝑦 ∈ 𝑥) → (((𝐹 ↾ 𝐴)‘𝑦) ∈ ((𝐹 ↾ 𝐴)‘𝑥) ↔ (𝐹‘𝑦) ∈ (𝐹‘𝑥)))
43	42	ralbidva 3155	. . . 4 ⊢ (((Smo 𝐹 ∧ Ord 𝐴) ∧ 𝑥 ∈ dom (𝐹 ↾ 𝐴)) → (∀𝑦 ∈ 𝑥 ((𝐹 ↾ 𝐴)‘𝑦) ∈ ((𝐹 ↾ 𝐴)‘𝑥) ↔ ∀𝑦 ∈ 𝑥 (𝐹‘𝑦) ∈ (𝐹‘𝑥)))
44	43	ralbidva 3155	. . 3 ⊢ ((Smo 𝐹 ∧ Ord 𝐴) → (∀𝑥 ∈ dom (𝐹 ↾ 𝐴)∀𝑦 ∈ 𝑥 ((𝐹 ↾ 𝐴)‘𝑦) ∈ ((𝐹 ↾ 𝐴)‘𝑥) ↔ ∀𝑥 ∈ dom (𝐹 ↾ 𝐴)∀𝑦 ∈ 𝑥 (𝐹‘𝑦) ∈ (𝐹‘𝑥)))
45	29, 44	mpbird 257	. 2 ⊢ ((Smo 𝐹 ∧ Ord 𝐴) → ∀𝑥 ∈ dom (𝐹 ↾ 𝐴)∀𝑦 ∈ 𝑥 ((𝐹 ↾ 𝐴)‘𝑦) ∈ ((𝐹 ↾ 𝐴)‘𝑥))
46		dfsmo2 8277	. 2 ⊢ (Smo (𝐹 ↾ 𝐴) ↔ ((𝐹 ↾ 𝐴):dom (𝐹 ↾ 𝐴)⟶On ∧ Ord dom (𝐹 ↾ 𝐴) ∧ ∀𝑥 ∈ dom (𝐹 ↾ 𝐴)∀𝑦 ∈ 𝑥 ((𝐹 ↾ 𝐴)‘𝑦) ∈ ((𝐹 ↾ 𝐴)‘𝑥)))
47	14, 22, 45, 46	syl3anbrc 1344	1 ⊢ ((Smo 𝐹 ∧ Ord 𝐴) → Smo (𝐹 ↾ 𝐴))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1541   ∈ wcel 2113  ∀wral 3049   ∩ cin 3898   ⊆ wss 3899  dom cdm 5622  ran crn 5623   ↾ cres 5624   “ cima 5625  Ord word 6314  Oncon0 6315  Fun wfun 6484   Fn wfn 6485  ⟶wf 6486  ‘cfv 6490  Smo wsmo 8275

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-11 2162  ax-ext 2706  ax-sep 5239  ax-nul 5249  ax-pr 5375

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-sb 2068  df-clab 2713  df-cleq 2726  df-clel 2809  df-ral 3050  df-rex 3059  df-rab 3398  df-v 3440  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4284  df-if 4478  df-sn 4579  df-pr 4581  df-op 4585  df-uni 4862  df-br 5097  df-opab 5159  df-tr 5204  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-ord 6318  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-fv 6498  df-smo 8276

This theorem is referenced by: (None)