---

Step * of Lemma fact-non-decreasing

∀[m,n:ℕ].  ((n ≤ m) ⇒ ((n)! ≤ (m)!))
BY
{ (InductionOnNat
   THEN Auto
   THEN (RWO "fact_unroll" 0 THEN Auto)
   THEN AutoSplit
   THEN Try ((InstHyp [⌜n - 1⌝] (-3)⋅ THENA Complete (Auto'))⋅)) }

1
1. m : ℤ
2. 0 < m
3. ∀[n:ℕ]. ((n ≤ (m - 1)) ⇒ ((n)! ≤ (m - 1)!))
4. n : ℕ
5. n ≤ m
6. n < 1
⊢ 1 ≤ (m * (m - 1)!)

2
1. m : ℤ
2. 0 < m
3. ∀[n:ℕ]. ((n ≤ (m - 1)) ⇒ ((n)! ≤ (m - 1)!))
4. n : ℕ
5. ¬n < 1
6. n ≤ m
⊢ (n * (n - 1)!) ≤ (m * (m - 1)!)

---

Latex:

---

Latex:
\mforall{}[m,n:\mBbbN{}].    ((n  \mleq{}  m)  {}\mRightarrow{}  ((n)!  \mleq{}  (m)!))


By

---

Latex:
(InductionOnNat
  THEN  Auto
  THEN  (RWO  "fact\_unroll"  0  THEN  Auto)
  THEN  AutoSplit
  THEN  Try  ((InstHyp  [\mkleeneopen{}n  -  1\mkleeneclose{}]  (-3)\mcdot{}  THENA  Complete  (Auto'))\mcdot{}))

---

Home Index