At: homo is surj 1 1 3 1 1 1 2 1 1 1 1 1 1 2 1 1 1 1 1
1. Alph: Type
2. St: Type
3. Auto: Automata(Alph;St)
4. c: St
Alph*
5. Fin(Alph) & Fin(St)
6. EquivRel x,y:Alph*. x LangOf(Auto)-induced Equiv y
7. h: Alph*
Alph*
8.
x,y:Alph*. x = y
x,y:Alph*//(x LangOf(Auto)-induced Equiv y) 
h(x) = h(y)
9.
x:Alph*. x = h(x)
x,y:Alph*//(x LangOf(Auto)-induced Equiv y)
10. b1: Alph*
11. b2: Alph*
12. b1 LangOf(Auto)-induced Equiv b2
13. (Result(Auto)c(Result(Auto)h(b1))) = (Result(Auto)h(b2))
14. b1 = b2
x,y:Alph*//(x LangOf(Auto)-induced Equiv y) 
h(b1) = h(b2)
15. (b1 = b2
x,y:Alph*//(x LangOf(Auto)-induced Equiv y)) 
(h(b1) = h(b2))
16.
x,y:Alph*.
(Result(Auto)x) = (Result(Auto)y) 
(Result(A(
l:x,y:Alph*//(x LangOf(Auto)-induced Equiv y). true
))x)
=
(Result(A(
l:x,y:Alph*//(x LangOf(Auto)-induced Equiv y). true
))y)
17. c(Result(Auto)h(b1)) = h(b2)
x,y:Alph*//(x LangOf(Auto)-induced Equiv y)
h(b2) = b2
x,y:Alph*//(x LangOf(Auto)-induced Equiv y)
By: RWH (RevHypC 9) 0
Generated subgoals:None
About: