Theorem facwordi 14378

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 5107	. . . . . 6 ⊢ (𝑗 = 0 → (𝑀 ≤ 𝑗 ↔ 𝑀 ≤ 0))
2	1	anbi2d 642	. . . . 5 ⊢ (𝑗 = 0 → ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑗) ↔ (𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 0)))
3		fveq2 6881	. . . . . 6 ⊢ (𝑗 = 0 → (!‘𝑗) = (!‘0))
4	3	breq2d 5115	. . . . 5 ⊢ (𝑗 = 0 → ((!‘𝑀) ≤ (!‘𝑗) ↔ (!‘𝑀) ≤ (!‘0)))
5	2, 4	imbi12d 347	. . . 4 ⊢ (𝑗 = 0 → (((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑗) → (!‘𝑀) ≤ (!‘𝑗)) ↔ ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 0) → (!‘𝑀) ≤ (!‘0))))
6		breq2 5107	. . . . . 6 ⊢ (𝑗 = 𝑘 → (𝑀 ≤ 𝑗 ↔ 𝑀 ≤ 𝑘))
7	6	anbi2d 642	. . . . 5 ⊢ (𝑗 = 𝑘 → ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑗) ↔ (𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑘)))
8		fveq2 6881	. . . . . 6 ⊢ (𝑗 = 𝑘 → (!‘𝑗) = (!‘𝑘))
9	8	breq2d 5115	. . . . 5 ⊢ (𝑗 = 𝑘 → ((!‘𝑀) ≤ (!‘𝑗) ↔ (!‘𝑀) ≤ (!‘𝑘)))
10	7, 9	imbi12d 347	. . . 4 ⊢ (𝑗 = 𝑘 → (((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑗) → (!‘𝑀) ≤ (!‘𝑗)) ↔ ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑘) → (!‘𝑀) ≤ (!‘𝑘))))
11		breq2 5107	. . . . . 6 ⊢ (𝑗 = (𝑘 + 1) → (𝑀 ≤ 𝑗 ↔ 𝑀 ≤ (𝑘 + 1)))
12	11	anbi2d 642	. . . . 5 ⊢ (𝑗 = (𝑘 + 1) → ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑗) ↔ (𝑀 ∈ ℕ0 ∧ 𝑀 ≤ (𝑘 + 1))))
13		fveq2 6881	. . . . . 6 ⊢ (𝑗 = (𝑘 + 1) → (!‘𝑗) = (!‘(𝑘 + 1)))
14	13	breq2d 5115	. . . . 5 ⊢ (𝑗 = (𝑘 + 1) → ((!‘𝑀) ≤ (!‘𝑗) ↔ (!‘𝑀) ≤ (!‘(𝑘 + 1))))
15	12, 14	imbi12d 347	. . . 4 ⊢ (𝑗 = (𝑘 + 1) → (((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑗) → (!‘𝑀) ≤ (!‘𝑗)) ↔ ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ (𝑘 + 1)) → (!‘𝑀) ≤ (!‘(𝑘 + 1)))))
16		breq2 5107	. . . . . 6 ⊢ (𝑗 = 𝑁 → (𝑀 ≤ 𝑗 ↔ 𝑀 ≤ 𝑁))
17	16	anbi2d 642	. . . . 5 ⊢ (𝑗 = 𝑁 → ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑗) ↔ (𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑁)))
18		fveq2 6881	. . . . . 6 ⊢ (𝑗 = 𝑁 → (!‘𝑗) = (!‘𝑁))
19	18	breq2d 5115	. . . . 5 ⊢ (𝑗 = 𝑁 → ((!‘𝑀) ≤ (!‘𝑗) ↔ (!‘𝑀) ≤ (!‘𝑁)))
20	17, 19	imbi12d 347	. . . 4 ⊢ (𝑗 = 𝑁 → (((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑗) → (!‘𝑀) ≤ (!‘𝑗)) ↔ ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑁) → (!‘𝑀) ≤ (!‘𝑁))))
21		nn0le0eq0 12581	. . . . . . 7 ⊢ (𝑀 ∈ ℕ0 → (𝑀 ≤ 0 ↔ 𝑀 = 0))
22	21	biimpa 482	. . . . . 6 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 0) → 𝑀 = 0)
23	22	fveq2d 6885	. . . . 5 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 0) → (!‘𝑀) = (!‘0))
24		fac0 14365	. . . . . . 7 ⊢ (!‘0) = 1
25		1re 11257	. . . . . . 7 ⊢ 1 ∈ ℝ
26	24, 25	eqeltri 2856	. . . . . 6 ⊢ (!‘0) ∈ ℝ
27	26	leidi 11797	. . . . 5 ⊢ (!‘0) ≤ (!‘0)
28	23, 27	eqbrtrdi 5144	. . . 4 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 0) → (!‘𝑀) ≤ (!‘0))
29		impexp 456	. . . . 5 ⊢ (((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑘) → (!‘𝑀) ≤ (!‘𝑘)) ↔ (𝑀 ∈ ℕ0 → (𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘))))
30		nn0re 12562	. . . . . . . . . . . 12 ⊢ (𝑀 ∈ ℕ0 → 𝑀 ∈ ℝ)
31		nn0re 12562	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ0 → 𝑘 ∈ ℝ)
32		peano2re 11432	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℝ → (𝑘 + 1) ∈ ℝ)
33	31, 32	syl 18	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ0 → (𝑘 + 1) ∈ ℝ)
34		leloe 11345	. . . . . . . . . . . 12 ⊢ ((𝑀 ∈ ℝ ∧ (𝑘 + 1) ∈ ℝ) → (𝑀 ≤ (𝑘 + 1) ↔ (𝑀 < (𝑘 + 1) ∨ 𝑀 = (𝑘 + 1))))
35	30, 33, 34	syl2an 608	. . . . . . . . . . 11 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (𝑀 ≤ (𝑘 + 1) ↔ (𝑀 < (𝑘 + 1) ∨ 𝑀 = (𝑘 + 1))))
36		nn0leltp1 12705	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (𝑀 ≤ 𝑘 ↔ 𝑀 < (𝑘 + 1)))
37		faccl 14372	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 ∈ ℕ0 → (!‘𝑘) ∈ ℕ)
38	37	nnred 12297	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ ℕ0 → (!‘𝑘) ∈ ℝ)
39	37	nnnn0d 12614	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 ∈ ℕ0 → (!‘𝑘) ∈ ℕ0)
40	39	nn0ge0d 12617	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ ℕ0 → 0 ≤ (!‘𝑘))
41		nn0p1nn 12592	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 ∈ ℕ0 → (𝑘 + 1) ∈ ℕ)
42	41	nnge1d 12333	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ ℕ0 → 1 ≤ (𝑘 + 1))
43	38, 33, 40, 42	lemulge11d 12201	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 ∈ ℕ0 → (!‘𝑘) ≤ ((!‘𝑘) · (𝑘 + 1)))
44		facp1 14367	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 ∈ ℕ0 → (!‘(𝑘 + 1)) = ((!‘𝑘) · (𝑘 + 1)))
45	43, 44	breqtrrd 5133	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ ℕ0 → (!‘𝑘) ≤ (!‘(𝑘 + 1)))
46	45	adantl 487	. . . . . . . . . . . . . . . 16 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (!‘𝑘) ≤ (!‘(𝑘 + 1)))
47		faccl 14372	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑀 ∈ ℕ0 → (!‘𝑀) ∈ ℕ)
48	47	nnred 12297	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑀 ∈ ℕ0 → (!‘𝑀) ∈ ℝ)
49	48	adantr 486	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (!‘𝑀) ∈ ℝ)
50	38	adantl 487	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (!‘𝑘) ∈ ℝ)
51		peano2nn0 12593	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 ∈ ℕ0 → (𝑘 + 1) ∈ ℕ0)
52	51	faccld 14373	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ ℕ0 → (!‘(𝑘 + 1)) ∈ ℕ)
53	52	nnred 12297	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 ∈ ℕ0 → (!‘(𝑘 + 1)) ∈ ℝ)
54	53	adantl 487	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (!‘(𝑘 + 1)) ∈ ℝ)
55		letr 11353	. . . . . . . . . . . . . . . . 17 ⊢ (((!‘𝑀) ∈ ℝ ∧ (!‘𝑘) ∈ ℝ ∧ (!‘(𝑘 + 1)) ∈ ℝ) → (((!‘𝑀) ≤ (!‘𝑘) ∧ (!‘𝑘) ≤ (!‘(𝑘 + 1))) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))
56	49, 50, 54, 55	syl3anc 1398	. . . . . . . . . . . . . . . 16 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (((!‘𝑀) ≤ (!‘𝑘) ∧ (!‘𝑘) ≤ (!‘(𝑘 + 1))) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))
57	46, 56	mpan2d 707	. . . . . . . . . . . . . . 15 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → ((!‘𝑀) ≤ (!‘𝑘) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))
58	57	imim2d 58	. . . . . . . . . . . . . 14 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → ((𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘)) → (𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘(𝑘 + 1)))))
59	58	com23 87	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (𝑀 ≤ 𝑘 → ((𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘)) → (!‘𝑀) ≤ (!‘(𝑘 + 1)))))
60	36, 59	sylbird 263	. . . . . . . . . . . 12 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (𝑀 < (𝑘 + 1) → ((𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘)) → (!‘𝑀) ≤ (!‘(𝑘 + 1)))))
61		fveq2 6881	. . . . . . . . . . . . . . 15 ⊢ (𝑀 = (𝑘 + 1) → (!‘𝑀) = (!‘(𝑘 + 1)))
62	48	leidd 11829	. . . . . . . . . . . . . . . 16 ⊢ (𝑀 ∈ ℕ0 → (!‘𝑀) ≤ (!‘𝑀))
63		breq2 5107	. . . . . . . . . . . . . . . 16 ⊢ ((!‘𝑀) = (!‘(𝑘 + 1)) → ((!‘𝑀) ≤ (!‘𝑀) ↔ (!‘𝑀) ≤ (!‘(𝑘 + 1))))
64	62, 63	syl5ibcom 248	. . . . . . . . . . . . . . 15 ⊢ (𝑀 ∈ ℕ0 → ((!‘𝑀) = (!‘(𝑘 + 1)) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))
65	61, 64	syl5 35	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ ℕ0 → (𝑀 = (𝑘 + 1) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))
66	65	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (𝑀 = (𝑘 + 1) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))
67	66	a1dd 51	. . . . . . . . . . . 12 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (𝑀 = (𝑘 + 1) → ((𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘)) → (!‘𝑀) ≤ (!‘(𝑘 + 1)))))
68	60, 67	jaod 873	. . . . . . . . . . 11 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → ((𝑀 < (𝑘 + 1) ∨ 𝑀 = (𝑘 + 1)) → ((𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘)) → (!‘𝑀) ≤ (!‘(𝑘 + 1)))))
69	35, 68	sylbid 243	. . . . . . . . . 10 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (𝑀 ≤ (𝑘 + 1) → ((𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘)) → (!‘𝑀) ≤ (!‘(𝑘 + 1)))))
70	69	ex 418	. . . . . . . . 9 ⊢ (𝑀 ∈ ℕ0 → (𝑘 ∈ ℕ0 → (𝑀 ≤ (𝑘 + 1) → ((𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘)) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))))
71	70	com13 89	. . . . . . . 8 ⊢ (𝑀 ≤ (𝑘 + 1) → (𝑘 ∈ ℕ0 → (𝑀 ∈ ℕ0 → ((𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘)) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))))
72	71	com4l 93	. . . . . . 7 ⊢ (𝑘 ∈ ℕ0 → (𝑀 ∈ ℕ0 → ((𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘)) → (𝑀 ≤ (𝑘 + 1) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))))
73	72	a2d 30	. . . . . 6 ⊢ (𝑘 ∈ ℕ0 → ((𝑀 ∈ ℕ0 → (𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘))) → (𝑀 ∈ ℕ0 → (𝑀 ≤ (𝑘 + 1) → (!‘𝑀) ≤ (!‘(𝑘 + 1))))))
74	73	imp4a 428	. . . . 5 ⊢ (𝑘 ∈ ℕ0 → ((𝑀 ∈ ℕ0 → (𝑀 ≤ 𝑘 → (!‘𝑀) ≤ (!‘𝑘))) → ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ (𝑘 + 1)) → (!‘𝑀) ≤ (!‘(𝑘 + 1)))))
75	29, 74	biimtrid 245	. . . 4 ⊢ (𝑘 ∈ ℕ0 → (((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑘) → (!‘𝑀) ≤ (!‘𝑘)) → ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ (𝑘 + 1)) → (!‘𝑀) ≤ (!‘(𝑘 + 1)))))
76	5, 10, 15, 20, 28, 75	nn0ind 12741	. . 3 ⊢ (𝑁 ∈ ℕ0 → ((𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑁) → (!‘𝑀) ≤ (!‘𝑁)))
77	76	3impib 1134	. 2 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑀 ∈ ℕ0 ∧ 𝑀 ≤ 𝑁) → (!‘𝑀) ≤ (!‘𝑁))
78	77	3com12 1141	1 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑁 ∈ ℕ0 ∧ 𝑀 ≤ 𝑁) → (!‘𝑀) ≤ (!‘𝑁))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∨ wo 861   ∧ w3a 1103   = wceq 1570   ∈ wcel 2145   class class class wbr 5103  ‘cfv 6535  (class class class)co 7416  ℝcr 11148  0cc0 11149  1c1 11150   + caddc 11152   · cmul 11154   < clt 11292   ≤ cle 11293  ℕ₀cn0 12553  !cfa 14362

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-sep 5251  ax-nul 5263  ax-pow 5330  ax-pr 5398  ax-un 7742  ax-cnex 11205  ax-resscn 11206  ax-1cn 11207  ax-icn 11208  ax-addcl 11209  ax-addrcl 11210  ax-mulcl 11211  ax-mulrcl 11212  ax-mulcom 11213  ax-addass 11214  ax-mulass 11215  ax-distr 11216  ax-i2m1 11217  ax-1ne0 11218  ax-1rid 11219  ax-rnegex 11220  ax-rrecex 11221  ax-cnre 11222  ax-pre-lttri 11223  ax-pre-lttrn 11224  ax-pre-ltadd 11225  ax-pre-mulgt0 11226

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  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-pred 6301  df-ord 6362  df-on 6363  df-lim 6364  df-suc 6365  df-iota 6491  df-fun 6537  df-fn 6538  df-f 6539  df-f1 6540  df-fo 6541  df-f1o 6542  df-fv 6543  df-riota 7373  df-ov 7419  df-oprab 7420  df-mpo 7421  df-om 7869  df-2nd 7993  df-frecs 8285  df-wrecs 8316  df-recs 8365  df-rdg 8404  df-er 8703  df-en 8960  df-dom 8961  df-sdom 8962  df-pnf 11294  df-mnf 11295  df-xr 11296  df-ltxr 11297  df-le 11298  df-sub 11492  df-neg 11493  df-nn 12283  df-n0 12554  df-z 12641  df-uz 12913  df-seq 14091  df-fac 14363

This theorem is used by:  facavg  14390  aaliou3lem6  26616