Step 
*
3
1
 of Lemma 
free-group-functor_wf
.....wf..... 
1. X : Type@i'
⊢ 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@i'
\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