---

Step * of Lemma nc-r'-nc-0

No Annotations
∀[I:fset(ℕ)]. ∀[i:{i:ℕ| ¬i ∈ I} ]. ∀[J:fset(ℕ)]. ∀[f:J ⟶ I]. ∀[j:{i:ℕ| ¬i ∈ J} ].  ((i1) ⋅ f = f,i=1-j ⋅ (j0) ∈ J ⟶ I+\000Ci)
BY
{ (Auto
   THEN Unfold `names-hom` 0
   THEN (FunExt THENA Auto)
   THEN (RWW "nh-comp-sq" 0 THENA Auto)
   THEN RepUR ``compose nc-r\' nc-1`` 0
   THEN (Subst' {{}} ~ 1 0 THENA Auto)
   THEN AutoSplit
   THEN Try ((FLemma `not-added-name` [-1] THENA Auto))
   THEN (Assert j ∈ names(J+j) BY
               (MemTypeCD THEN EAuto 1))
   THEN (Assert (j0) ∈ J ⟶ J+j BY
               Auto)
   THEN RWO "dM-lift-inc dM-lift-opp dM-lift-1" 0
   THEN Auto) }

1
1. I : fset(ℕ)
2. i : {i:ℕ| ¬i ∈ I} 
3. J : fset(ℕ)
4. f : J ⟶ I
5. j : {i:ℕ| ¬i ∈ J} 
6. x : names(I+i)
7. x = i ∈ ℤ
8. j ∈ names(J+j)
9. (j0) ∈ J ⟶ J+j
⊢ 1 = ¬((j0) j) ∈ Point(dM(J))

---

Latex:

---

Latex:
No  Annotations
\mforall{}[I:fset(\mBbbN{})].  \mforall{}[i:\{i:\mBbbN{}|  \mneg{}i  \mmember{}  I\}  ].  \mforall{}[J:fset(\mBbbN{})].  \mforall{}[f:J  {}\mrightarrow{}  I].  \mforall{}[j:\{i:\mBbbN{}|  \mneg{}i  \mmember{}  J\}  ].
    ((i1)  \mcdot{}  f  =  f,i=1-j  \mcdot{}  (j0))


By

---

Latex:
(Auto
  THEN  Unfold  `names-hom`  0
  THEN  (FunExt  THENA  Auto)
  THEN  (RWW  "nh-comp-sq"  0  THENA  Auto)
  THEN  RepUR  ``compose  nc-r\mbackslash{}'  nc-1``  0
  THEN  (Subst'  \{\{\}\}  \msim{}  1  0  THENA  Auto)
  THEN  AutoSplit
  THEN  Try  ((FLemma  `not-added-name`  [-1]  THENA  Auto))
  THEN  (Assert  j  \mmember{}  names(J+j)  BY
                          (MemTypeCD  THEN  EAuto  1))
  THEN  (Assert  (j0)  \mmember{}  J  {}\mrightarrow{}  J+j  BY
                          Auto)
  THEN  RWO  "dM-lift-inc  dM-lift-opp  dM-lift-1"  0
  THEN  Auto)

---

Home Index