---

Step * 6 of Lemma quot_ring_sig

.....subterm..... T:t
1:n
1. r : CRng
2. a : |r| ⟶ ℙ
3. a Ideal of r
4. ∀x:|r|. SqStable(a x)
5. d : |r| ⟶ 𝔹
6. ∀x:|r|. (a x ⇐⇒ ↑(d x))
7. Carrier(r/d) ∈ Type
⊢ λx.(-r x) ∈ Carrier(r/d) ⟶ Carrier(r/d)
BY
{ ((MemCD THENA Auto)
   THEN (OnVar `x' quotD THENA (Auto THEN RW RngNormC 0 THEN Auto))
   THEN EqTypeCD
   THEN Auto
   THEN Try ((UsingVars [`a'] (BLemma `ideal-detach-equiv`)⋅ THEN Auto))
   THEN (RWO "6<" 0 THENA Auto)
   THEN ∀h:hyp. (RWO  "6<" h THENA Auto) ) }

1
1. r : CRng
2. a : |r| ⟶ ℙ
3. a Ideal of r
4. ∀x:|r|. SqStable(a x)
5. d : |r| ⟶ 𝔹
6. ∀x:|r|. (a x ⇐⇒ a x)
7. Carrier(r/d) ∈ Type
8. x : |r|
9. x1 : |r|
10. a (x +r (-r x1))
⊢ a ((-r x) +r (-r (-r x1)))

---

Latex:

---

Latex:
.....subterm.....  T:t
1:n
1.  r  :  CRng
2.  a  :  |r|  {}\mrightarrow{}  \mBbbP{}
3.  a  Ideal  of  r
4.  \mforall{}x:|r|.  SqStable(a  x)
5.  d  :  |r|  {}\mrightarrow{}  \mBbbB{}
6.  \mforall{}x:|r|.  (a  x  \mLeftarrow{}{}\mRightarrow{}  \muparrow{}(d  x))
7.  Carrier(r/d)  \mmember{}  Type
\mvdash{}  \mlambda{}x.(-r  x)  \mmember{}  Carrier(r/d)  {}\mrightarrow{}  Carrier(r/d)


By

---

Latex:
((MemCD  THENA  Auto)
  THEN  (OnVar  `x'  quotD  THENA  (Auto  THEN  RW  RngNormC  0  THEN  Auto))
  THEN  EqTypeCD
  THEN  Auto
  THEN  Try  ((UsingVars  [`a']  (BLemma  `ideal-detach-equiv`)\mcdot{}  THEN  Auto))
  THEN  (RWO  "6<"  0  THENA  Auto)
  THEN  \mforall{}h:hyp.  (RWO    "6<"  h  THENA  Auto)  )

---

Home Index