At: homo init 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
InitialState(Auto) = (Result(Auto)nil)
By:
RecUnfold `compute_list` 0
THEN
Reduce 0
Generated subgoals:None
About:
