Step
*
of Lemma
minus-polynom_wf
∀[n:ℕ]. ∀[p:polyform(n)].  (minus-polynom(n;p) ∈ polyform(n))
BY
{ (InductionOnNat
   THEN Auto
   THEN RecUnfold `polyform` 0
   THEN Reduce 0
   THEN RecUnfold `minus-polynom` 0
   THEN Reduce 0
   THEN RecUnfold `polyform` (-1)
   THEN OReduce (-1)
   THEN Auto) }
Latex:
Latex:
\mforall{}[n:\mBbbN{}].  \mforall{}[p:polyform(n)].    (minus-polynom(n;p)  \mmember{}  polyform(n))
By
Latex:
(InductionOnNat
  THEN  Auto
  THEN  RecUnfold  `polyform`  0
  THEN  Reduce  0
  THEN  RecUnfold  `minus-polynom`  0
  THEN  Reduce  0
  THEN  RecUnfold  `polyform`  (-1)
  THEN  OReduce  (-1)
  THEN  Auto)
Home
Index