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