At: homo step 1 1 1 1 1 1 1 1 1 1
1. Alph: Type
2. St: Type
3. Auto: Automata(Alph;St)
4. EquivRel x,y:Alph*. x LangOf(Auto)-induced Equiv y
5. g: (x,y:Alph*//(x LangOf(Auto)-induced Equiv y))
6. c: StAlph*
7. 
q:St. (Result(Auto)c(q)) = q
8. q: St
9. a: Alph
10. (Result(Auto)c(Result(Auto)a.c(q))) = (Result(Auto)a.c(q))
11. x,y:Alph*. (Result(Auto)x) = (Result(Auto)y) 
(Result(A(g))x) = (Result(A(g))y)
12. c(
Auto(q,a)) = a.c(q) 
x,y:Alph*//(x LangOf(Auto)-induced Equiv y)
c(Auto(q,a)) = < (
s,a. a.s),nil,g > (c(q),a) x,y:Alph*//(x LangOf(Auto)-induced Equiv y)
By: Reduce 0
Generated subgoals:None
About:
