Step
*
of Lemma
nh-comp-nc-m-s
∀[I:fset(ℕ)]. ∀[i:{i:ℕ| ¬i ∈ I} ]. ∀[j:ℕ].  (s ⋅ m(i;j) = s ⋅ s ∈ I+i+j ⟶ I)
BY
{ (Auto
   THEN Unfold `names-hom` 0
   THEN (FunExt THENA Auto)
   THEN RepUR ``nh-comp dma-lift-compose`` 0
   THEN Fold `dM` 0
   THEN Fold `dM-lift` 0
   THEN RepUR ``nc-s`` 0
   THEN (RWO "dM-lift-inc" 0 THENA Auto)
   THEN RepUR ``nc-m`` 0) }
1
1. I : fset(ℕ)
2. i : {i:ℕ| ¬i ∈ I} 
3. j : ℕ
4. x : names(I)
⊢ if (x =z i) then dMpair(i;j) else <x> fi  = <x> ∈ Point(dM(I+i+j))
Latex:
Latex:
\mforall{}[I:fset(\mBbbN{})].  \mforall{}[i:\{i:\mBbbN{}|  \mneg{}i  \mmember{}  I\}  ].  \mforall{}[j:\mBbbN{}].    (s  \mcdot{}  m(i;j)  =  s  \mcdot{}  s)
By
Latex:
(Auto
  THEN  Unfold  `names-hom`  0
  THEN  (FunExt  THENA  Auto)
  THEN  RepUR  ``nh-comp  dma-lift-compose``  0
  THEN  Fold  `dM`  0
  THEN  Fold  `dM-lift`  0
  THEN  RepUR  ``nc-s``  0
  THEN  (RWO  "dM-lift-inc"  0  THENA  Auto)
  THEN  RepUR  ``nc-m``  0)
Home
Index