Theorem facwordi 11065

Description: Ordering property of factorial. (Contributed by NM, 9-Dec-2005.)

Assertion

Ref	Expression
facwordi	⊢ ((𝑀 ∈ ℕ0 ∧ 𝑁 ∈ ℕ0 ∧ 𝑀 ≤ 𝑁) → (!‘𝑀) ≤ (!‘𝑁))

Proof of Theorem facwordi

Dummy variables 𝑗 𝑘 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		breq2 4097	. . . . . 6 ⊢ (𝑗 = 0 → (𝑀 ≤ 𝑗 ↔ 𝑀 ≤ 0))
2	1	anbi2d 464	. . . . 5 ⊢ (𝑗 = 0 → ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑗) ↔ (𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 0)))
3		fveq2 5648	. . . . . 6 ⊢ (𝑗 = 0 → (!‘𝑗) = (!‘0))
4	3	breq2d 4105	. . . . 5 ⊢ (𝑗 = 0 → ((!‘𝑀) ≤ (!‘𝑗) ↔ (!‘𝑀) ≤ (!‘0)))
5	2, 4	imbi12d 234	. . . 4 ⊢ (𝑗 = 0 → (((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑗) → (!‘𝑀) ≤ (!‘𝑗)) ↔ ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 0) → (!‘𝑀) ≤ (!‘0))))
6		breq2 4097	. . . . . 6 ⊢ (𝑗 = 𝑘 → (𝑀 ≤ 𝑗 ↔ 𝑀 ≤ 𝑘))
7	6	anbi2d 464	. . . . 5 ⊢ (𝑗 = 𝑘 → ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑗) ↔ (𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑘)))
8		fveq2 5648	. . . . . 6 ⊢ (𝑗 = 𝑘 → (!‘𝑗) = (!‘𝑘))
9	8	breq2d 4105	. . . . 5 ⊢ (𝑗 = 𝑘 → ((!‘𝑀) ≤ (!‘𝑗) ↔ (!‘𝑀) ≤ (!‘𝑘)))
10	7, 9	imbi12d 234	. . . 4 ⊢ (𝑗 = 𝑘 → (((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑗) → (!‘𝑀) ≤ (!‘𝑗)) ↔ ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑘) → (!‘𝑀) ≤ (!‘𝑘))))
11		breq2 4097	. . . . . 6 ⊢ (𝑗 = (𝑘 + 1) → (𝑀 ≤ 𝑗 ↔ 𝑀 ≤ (𝑘 + 1)))
12	11	anbi2d 464	. . . . 5 ⊢ (𝑗 = (𝑘 + 1) → ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑗) ↔ (𝑀 ∈ ℕ0 ∧ 𝑀 ≤ (𝑘 + 1))))
13		fveq2 5648	. . . . . 6 ⊢ (𝑗 = (𝑘 + 1) → (!‘𝑗) = (!‘(𝑘 + 1)))
14	13	breq2d 4105	. . . . 5 ⊢ (𝑗 = (𝑘 + 1) → ((!‘𝑀) ≤ (!‘𝑗) ↔ (!‘𝑀) ≤ (!‘(𝑘 + 1))))
15	12, 14	imbi12d 234	. . . 4 ⊢ (𝑗 = (𝑘 + 1) → (((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑗) → (!‘𝑀) ≤ (!‘𝑗)) ↔ ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ (𝑘 + 1)) → (!‘𝑀) ≤ (!‘(𝑘 + 1)))))
16		breq2 4097	. . . . . 6 ⊢ (𝑗 = 𝑁 → (𝑀 ≤ 𝑗 ↔ 𝑀 ≤ 𝑁))
17	16	anbi2d 464	. . . . 5 ⊢ (𝑗 = 𝑁 → ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑗) ↔ (𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑁)))
18		fveq2 5648	. . . . . 6 ⊢ (𝑗 = 𝑁 → (!‘𝑗) = (!‘𝑁))
19	18	breq2d 4105	. . . . 5 ⊢ (𝑗 = 𝑁 → ((!‘𝑀) ≤ (!‘𝑗) ↔ (!‘𝑀) ≤ (!‘𝑁)))
20	17, 19	imbi12d 234	. . . 4 ⊢ (𝑗 = 𝑁 → (((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑗) → (!‘𝑀) ≤ (!‘𝑗)) ↔ ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑁) → (!‘𝑀) ≤ (!‘𝑁))))
21		nn0le0eq0 9489	. . . . . . 7 ⊢ (𝑀 ∈ ℕ0 → (𝑀 ≤ 0 ↔ 𝑀 = 0))
22	21	biimpa 296	. . . . . 6 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 0) → 𝑀 = 0)
23	22	fveq2d 5652	. . . . 5 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 0) → (!‘𝑀) = (!‘0))
24		fac0 11053	. . . . . . 7 ⊢ (!‘0) = 1
25		1re 8238	. . . . . . 7 ⊢ 1 ∈ ℝ
26	24, 25	eqeltri 2304	. . . . . 6 ⊢ (!‘0) ∈ ℝ
27	26	leidi 8724	. . . . 5 ⊢ (!‘0) ≤ (!‘0)
28	23, 27	eqbrtrdi 4132	. . . 4 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 0) → (!‘𝑀) ≤ (!‘0))
29		impexp 263	. . . . 5 ⊢ (((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑘) → (!‘𝑀) ≤ (!‘𝑘)) ↔ (𝑀 ∈ ℕ0 → (𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘))))
30		simpl 109	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → 𝑀 ∈ ℕ0)
31	30	nn0zd 9661	. . . . . . . . . . . 12 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → 𝑀 ∈ ℤ)
32		peano2nn0 9501	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ0 → (𝑘 + 1) ∈ ℕ0)
33	32	adantl 277	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (𝑘 + 1) ∈ ℕ0)
34	33	nn0zd 9661	. . . . . . . . . . . 12 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (𝑘 + 1) ∈ ℤ)
35		zleloe 9587	. . . . . . . . . . . 12 ⊢ ((𝑀 ∈ ℤ ∧ (𝑘 + 1) ∈ ℤ) → (𝑀 ≤ (𝑘 + 1) ↔ (𝑀 < (𝑘 + 1) ∨ 𝑀 = (𝑘 + 1))))
36	31, 34, 35	syl2anc 411	. . . . . . . . . . 11 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (𝑀 ≤ (𝑘 + 1) ↔ (𝑀 < (𝑘 + 1) ∨ 𝑀 = (𝑘 + 1))))
37		nn0leltp1 9604	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (𝑀 ≤ 𝑘 ↔ 𝑀 < (𝑘 + 1)))
38		faccl 11060	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 ∈ ℕ0 → (!‘𝑘) ∈ ℕ)
39	38	nnred 9215	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ ℕ0 → (!‘𝑘) ∈ ℝ)
40		nn0re 9470	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 ∈ ℕ0 → 𝑘 ∈ ℝ)
41		peano2re 8374	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 ∈ ℝ → (𝑘 + 1) ∈ ℝ)
42	40, 41	syl 14	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ ℕ0 → (𝑘 + 1) ∈ ℝ)
43	38	nnnn0d 9516	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 ∈ ℕ0 → (!‘𝑘) ∈ ℕ0)
44	43	nn0ge0d 9519	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ ℕ0 → 0 ≤ (!‘𝑘))
45		nn0p1nn 9500	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 ∈ ℕ0 → (𝑘 + 1) ∈ ℕ)
46	45	nnge1d 9245	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ ℕ0 → 1 ≤ (𝑘 + 1))
47	39, 42, 44, 46	lemulge11d 9176	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 ∈ ℕ0 → (!‘𝑘) ≤ ((!‘𝑘) · (𝑘 + 1)))
48		facp1 11055	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 ∈ ℕ0 → (!‘(𝑘 + 1)) = ((!‘𝑘) · (𝑘 + 1)))
49	47, 48	breqtrrd 4121	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ ℕ0 → (!‘𝑘) ≤ (!‘(𝑘 + 1)))
50	49	adantl 277	. . . . . . . . . . . . . . . 16 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (!‘𝑘) ≤ (!‘(𝑘 + 1)))
51		faccl 11060	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑀 ∈ ℕ0 → (!‘𝑀) ∈ ℕ)
52	51	nnred 9215	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑀 ∈ ℕ0 → (!‘𝑀) ∈ ℝ)
53	52	adantr 276	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (!‘𝑀) ∈ ℝ)
54	39	adantl 277	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (!‘𝑘) ∈ ℝ)
55	32	faccld 11061	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ ℕ0 → (!‘(𝑘 + 1)) ∈ ℕ)
56	55	nnred 9215	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 ∈ ℕ0 → (!‘(𝑘 + 1)) ∈ ℝ)
57	56	adantl 277	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (!‘(𝑘 + 1)) ∈ ℝ)
58		letr 8321	. . . . . . . . . . . . . . . . 17 ⊢ (((!‘𝑀) ∈ ℝ ∧ (!‘𝑘) ∈ ℝ ∧ (!‘(𝑘 + 1)) ∈ ℝ) → (((!‘𝑀) ≤ (!‘𝑘) ∧ (!‘𝑘) ≤ (!‘(𝑘 + 1))) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))
59	53, 54, 57, 58	syl3anc 1274	. . . . . . . . . . . . . . . 16 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (((!‘𝑀) ≤ (!‘𝑘) ∧ (!‘𝑘) ≤ (!‘(𝑘 + 1))) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))
60	50, 59	mpan2d 428	. . . . . . . . . . . . . . 15 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → ((!‘𝑀) ≤ (!‘𝑘) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))
61	60	imim2d 54	. . . . . . . . . . . . . 14 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → ((𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘)) → (𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘(𝑘 + 1)))))
62	61	com23 78	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (𝑀 ≤ 𝑘 → ((𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘)) → (!‘𝑀) ≤ (!‘(𝑘 + 1)))))
63	37, 62	sylbird 170	. . . . . . . . . . . 12 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (𝑀 < (𝑘 + 1) → ((𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘)) → (!‘𝑀) ≤ (!‘(𝑘 + 1)))))
64		fveq2 5648	. . . . . . . . . . . . . . 15 ⊢ (𝑀 = (𝑘 + 1) → (!‘𝑀) = (!‘(𝑘 + 1)))
65	52	leidd 8753	. . . . . . . . . . . . . . . 16 ⊢ (𝑀 ∈ ℕ0 → (!‘𝑀) ≤ (!‘𝑀))
66		breq2 4097	. . . . . . . . . . . . . . . 16 ⊢ ((!‘𝑀) = (!‘(𝑘 + 1)) → ((!‘𝑀) ≤ (!‘𝑀) ↔ (!‘𝑀) ≤ (!‘(𝑘 + 1))))
67	65, 66	syl5ibcom 155	. . . . . . . . . . . . . . 15 ⊢ (𝑀 ∈ ℕ0 → ((!‘𝑀) = (!‘(𝑘 + 1)) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))
68	64, 67	syl5 32	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ ℕ0 → (𝑀 = (𝑘 + 1) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))
69	68	adantr 276	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (𝑀 = (𝑘 + 1) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))
70	69	a1dd 48	. . . . . . . . . . . 12 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (𝑀 = (𝑘 + 1) → ((𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘)) → (!‘𝑀) ≤ (!‘(𝑘 + 1)))))
71	63, 70	jaod 725	. . . . . . . . . . 11 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → ((𝑀 < (𝑘 + 1) ∨ 𝑀 = (𝑘 + 1)) → ((𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘)) → (!‘𝑀) ≤ (!‘(𝑘 + 1)))))
72	36, 71	sylbid 150	. . . . . . . . . 10 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (𝑀 ≤ (𝑘 + 1) → ((𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘)) → (!‘𝑀) ≤ (!‘(𝑘 + 1)))))
73	72	ex 115	. . . . . . . . 9 ⊢ (𝑀 ∈ ℕ0 → (𝑘 ∈ ℕ0 → (𝑀 ≤ (𝑘 + 1) → ((𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘)) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))))
74	73	com13 80	. . . . . . . 8 ⊢ (𝑀 ≤ (𝑘 + 1) → (𝑘 ∈ ℕ0 → (𝑀 ∈ ℕ0 → ((𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘)) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))))
75	74	com4l 84	. . . . . . 7 ⊢ (𝑘 ∈ ℕ0 → (𝑀 ∈ ℕ0 → ((𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘)) → (𝑀 ≤ (𝑘 + 1) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))))
76	75	a2d 26	. . . . . 6 ⊢ (𝑘 ∈ ℕ0 → ((𝑀 ∈ ℕ0 → (𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘))) → (𝑀 ∈ ℕ0 → (𝑀 ≤ (𝑘 + 1) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))))
77	76	imp4a 349	. . . . 5 ⊢ (𝑘 ∈ ℕ0 → ((𝑀 ∈ ℕ0 → (𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘))) → ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ (𝑘 + 1)) → (!‘𝑀) ≤ (!‘(𝑘 + 1)))))
78	29, 77	biimtrid 152	. . . 4 ⊢ (𝑘 ∈ ℕ0 → (((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑘) → (!‘𝑀) ≤ (!‘𝑘)) → ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ (𝑘 + 1)) → (!‘𝑀) ≤ (!‘(𝑘 + 1)))))
79	5, 10, 15, 20, 28, 78	nn0ind 9655	. . 3 ⊢ (𝑁 ∈ ℕ0 → ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑁) → (!‘𝑀) ≤ (!‘𝑁)))
80	79	3impib 1228	. 2 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑁) → (!‘𝑀) ≤ (!‘𝑁))
81	80	3com12 1234	1 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑁 ∈ ℕ0 ∧ 𝑀 ≤ 𝑁) → (!‘𝑀) ≤ (!‘𝑁))

Syntax hints:   → wi 4   ∧ wa 104   ↔ wb 105   ∨ wo 716   ∧ w3a 1005   = wceq 1398   ∈ wcel 2202   class class class wbr 4093  ‘cfv 5333  (class class class)co 6028  ℝcr 8091  0cc0 8092  1c1 8093   + caddc 8095   · cmul 8097   < clt 8273   ≤ cle 8274  ℕ₀cn0 9461  ℤcz 9540  !cfa 11050

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2204  ax-14 2205  ax-ext 2213  ax-coll 4209  ax-sep 4212  ax-nul 4220  ax-pow 4270  ax-pr 4305  ax-un 4536  ax-setind 4641  ax-iinf 4692  ax-cnex 8183  ax-resscn 8184  ax-1cn 8185  ax-1re 8186  ax-icn 8187  ax-addcl 8188  ax-addrcl 8189  ax-mulcl 8190  ax-mulrcl 8191  ax-addcom 8192  ax-mulcom 8193  ax-addass 8194  ax-mulass 8195  ax-distr 8196  ax-i2m1 8197  ax-0lt1 8198  ax-1rid 8199  ax-0id 8200  ax-rnegex 8201  ax-precex 8202  ax-cnre 8203  ax-pre-ltirr 8204  ax-pre-ltwlin 8205  ax-pre-lttrn 8206  ax-pre-apti 8207  ax-pre-ltadd 8208  ax-pre-mulgt0 8209  ax-pre-mulext 8210

This theorem depends on definitions:  df-bi 117  df-3or 1006  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1811  df-eu 2082  df-mo 2083  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2364  df-ne 2404  df-nel 2499  df-ral 2516  df-rex 2517  df-reu 2518  df-rab 2520  df-v 2805  df-sbc 3033  df-csb 3129  df-dif 3203  df-un 3205  df-in 3207  df-ss 3214  df-nul 3497  df-pw 3658  df-sn 3679  df-pr 3680  df-op 3682  df-uni 3899  df-int 3934  df-iun 3977  df-br 4094  df-opab 4156  df-mpt 4157  df-tr 4193  df-id 4396  df-po 4399  df-iso 4400  df-iord 4469  df-on 4471  df-ilim 4472  df-suc 4474  df-iom 4695  df-xp 4737  df-rel 4738  df-cnv 4739  df-co 4740  df-dm 4741  df-rn 4742  df-res 4743  df-ima 4744  df-iota 5293  df-fun 5335  df-fn 5336  df-f 5337  df-f1 5338  df-fo 5339  df-f1o 5340  df-fv 5341  df-riota 5981  df-ov 6031  df-oprab 6032  df-mpo 6033  df-1st 6312  df-2nd 6313  df-recs 6514  df-frec 6600  df-pnf 8275  df-mnf 8276  df-xr 8277  df-ltxr 8278  df-le 8279  df-sub 8411  df-neg 8412  df-reap 8814  df-ap 8821  df-inn 9203  df-n0 9462  df-z 9541  df-uz 9817  df-seqfrec 10773  df-fac 11051

This theorem is referenced by:  facavg  11071