Step * 3 1 of Lemma free-group-functor_wf

.....wf..... 
1. Type
⊢ fg-lift(free-group(X);λx@0.free-letter(x@0)) ∈ MonHom(free-group(X),free-group(X))
BY
(GenConcl ⌜x.free-letter(x)) g ∈ (X ⟶ |free-group(X)|)⌝⋅ THEN Auto) }


Latex:


Latex:
.....wf..... 
1.  X  :  Type
\mvdash{}  fg-lift(free-group(X);\mlambda{}x@0.free-letter(x@0))  \mmember{}  MonHom(free-group(X),free-group(X))


By


Latex:
(GenConcl  \mkleeneopen{}(\mlambda{}x.free-letter(x))  =  g\mkleeneclose{}\mcdot{}  THEN  Auto)




Home Index