Step
*
of Lemma
nc-r'-nc-1
No Annotations
∀[I:fset(ℕ)]. ∀[i:{i:ℕ| ¬i ∈ I} ]. ∀[J:fset(ℕ)]. ∀[f:J ⟶ I]. ∀[j:{i:ℕ| ¬i ∈ J} ].  ((i0) ⋅ f = f,i=1-j ⋅ (j1) ∈ 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-0`` 0
   THEN (Subst' {} ~ 0 0 THENA Auto)
   THEN AutoSplit
   THEN RWO "dM-lift-inc dM-lift-opp dM-lift-0" 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 ∈ ℤ
⊢ 0 = ¬((j1) 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\}  ].
    ((i0)  \mcdot{}  f  =  f,i=1-j  \mcdot{}  (j1))
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-0``  0
  THEN  (Subst'  \{\}  \msim{}  0  0  THENA  Auto)
  THEN  AutoSplit
  THEN  RWO  "dM-lift-inc  dM-lift-opp  dM-lift-0"  0
  THEN  Auto)
Home
Index