1 | 5. q:St. (Result(Auto)c(q)) = q 6. Fin(Alph) 7. Fin(St) 8. EquivRel x,y:Alph*. x LangOf(Auto)-induced Equiv y EquivRel x,y:Alph*. x ( x,y. x = y x,y:Alph*//(x LangOf(Auto)-induced Equiv y)) y |
2 | 5. q:St. (Result(Auto)c(q)) = q 6. Fin(Alph) 7. Fin(St) 8. EquivRel x,y:Alph*. x LangOf(Auto)-induced Equiv y 9. x: Alph* 10. y: Alph* Dec(x ( x,y. x = y x,y:Alph*//(x LangOf(Auto)-induced Equiv y)) y) |
3 | 7. h:(Alph* Alph*).
( x,y:Alph*. (x ( x,y. x = y x,y:Alph*//(x LangOf(Auto)-induced Equiv y)) y)  h(x) = h(y))
& ( x:Alph*. x ( x,y. x = y x,y:Alph*//(x LangOf(Auto)-induced Equiv y)) (h(x))) Surj(St; x,y:Alph*//(x LangOf(Auto)-induced Equiv y); c) |