Step
*
of Lemma
rng_nat_op-int
∀[n:ℕ]. ∀[a:ℤ].  (n ⋅ℤ-rng a ~ n * a)
BY
{ (RepUR ``rng_nat_op mon_nat_op nat_op`` 0
   THEN InductionOnNat
   THEN RecUnfold `itop` 0
   THEN Reduce 0
   THEN Auto
   THEN AutoSplit
   THEN RWO "-3" 0
   THEN Auto) }
Latex:
Latex:
\mforall{}[n:\mBbbN{}].  \mforall{}[a:\mBbbZ{}].    (n  \mcdot{}\mBbbZ{}-rng  a  \msim{}  n  *  a)
By
Latex:
(RepUR  ``rng\_nat\_op  mon\_nat\_op  nat\_op``  0
  THEN  InductionOnNat
  THEN  RecUnfold  `itop`  0
  THEN  Reduce  0
  THEN  Auto
  THEN  AutoSplit
  THEN  RWO  "-3"  0
  THEN  Auto)
Home
Index