Step * of Lemma nc-e'-lemma6

[I,J,K:fset(ℕ)]. ∀[f:J ⟶ I]. ∀[g:K ⟶ J]. ∀[z,v,j:ℕ].  f,z=j ⋅ g,j=v f ⋅ g,z=v ∈ K+v ⟶ I+z supposing ¬j ∈ J
BY
(Auto
   THEN Unfold `names-hom` 0
   THEN (FunExt THENA Auto)
   THEN (RWW "nh-comp-sq" THENA Auto)
   THEN RepUR ``compose`` 0
   THEN (RepUR ``nc-e\'`` 0
         THEN (Subst' λx.if (x =z j) then <v> else fi  g,j=v THENA (RepUR ``nc-e\'`` THEN Auto))
         )
   THEN AutoSplit
   THEN Try ((FLemma `not-added-name` [-1] THENA Auto))
   THEN RWW "dM-lift-inc" 0
   THEN Auto) }

1
1. fset(ℕ)
2. fset(ℕ)
3. fset(ℕ)
4. J ⟶ I
5. K ⟶ J
6. : ℕ
7. : ℕ
8. : ℕ
9. ¬j ∈ J
10. names(I+z)
11. z ∈ ℤ
⊢ (g,j=v j) = <v> ∈ Point(dM(K+v))

2
1. fset(ℕ)
2. fset(ℕ)
3. fset(ℕ)
4. J ⟶ I
5. K ⟶ J
6. : ℕ
7. : ℕ
8. : ℕ
9. ¬j ∈ J
10. names(I+z)
11. x ≠ z
12. x ∈ names(I)
⊢ (dM-lift(K+v;J+j;g,j=v) (f x)) (dM-lift(K;J;g) (f x)) ∈ Point(dM(K+v))


Latex:


Latex:
\mforall{}[I,J,K:fset(\mBbbN{})].  \mforall{}[f:J  {}\mrightarrow{}  I].  \mforall{}[g:K  {}\mrightarrow{}  J].  \mforall{}[z,v,j:\mBbbN{}].    f,z=j  \mcdot{}  g,j=v  =  f  \mcdot{}  g,z=v  supposing  \mneg{}j  \mmember{}  J


By


Latex:
(Auto
  THEN  Unfold  `names-hom`  0
  THEN  (FunExt  THENA  Auto)
  THEN  (RWW  "nh-comp-sq"  0  THENA  Auto)
  THEN  RepUR  ``compose``  0
  THEN  (RepUR  ``nc-e\mbackslash{}'``  0
              THEN  (Subst'  \mlambda{}x.if  (x  =\msubz{}  j)  then  <v>  else  g  x  fi    \msim{}  g,j=v  0
                          THENA  (RepUR  ``nc-e\mbackslash{}'``  0  THEN  Auto)
                          )
              )
  THEN  AutoSplit
  THEN  Try  ((FLemma  `not-added-name`  [-1]  THENA  Auto))
  THEN  RWW  "dM-lift-inc"  0
  THEN  Auto)




Home Index