Step
*
1
2
of Lemma
p-unitize_wf
.....set predicate..... 
1. p : ℕ+
2. a : p-adics(p)
3. n : ℕ+
4. ¬((a n) = 0 ∈ ℤ)
5. greatest-p-zero(n;a) = 0 ∈ ℤ
⊢ 1(p) * a = a ∈ p-adics(p)
BY
{ (RWO "p-adics-equal" 0
   THEN Auto
   THEN RepUR ``p-int p-add p-minus p-mul p-reduce`` 0
   THEN (RWW "mod-eqmod" 0 THEN Auto)
   THEN BLemma `eqmod_weakening`
   THEN Auto) }
Latex:
Latex:
.....set  predicate..... 
1.  p  :  \mBbbN{}\msupplus{}
2.  a  :  p-adics(p)
3.  n  :  \mBbbN{}\msupplus{}
4.  \mneg{}((a  n)  =  0)
5.  greatest-p-zero(n;a)  =  0
\mvdash{}  1(p)  *  a  =  a
By
Latex:
(RWO  "p-adics-equal"  0
  THEN  Auto
  THEN  RepUR  ``p-int  p-add  p-minus  p-mul  p-reduce``  0
  THEN  (RWW  "mod-eqmod"  0  THEN  Auto)
  THEN  BLemma  `eqmod\_weakening`
  THEN  Auto)
Home
Index