At: any iso min auto 1 1 2 1 1 1 1 1 1 1 1 1 1
1. Alph: Type
2. St: Type
3. Auto: Automata(Alph;St)
4. S: Type
5. A: Automata(Alph;S)
6. Fin(Alph)
7. Fin(S)
8. Con(A)
9. S ~ (x,y:Alph*//(x LangOf(Auto)-induced Equiv y))
10. LangOf(Auto) = LangOf(A)
11. EquivRel x,y:Alph*. x LangOf(Auto)-induced Equiv y
12. EquivRel x,y:Alph*. x LangOf(A)-induced Equiv y
13. A 
A(
l.A(l)
)
14. a: Alph
15. s1: Alph*
16. s2: Alph*
17. z: Alph*
18. LangOf(Auto)((z @ [a]) @ s1) 
LangOf(Auto)((z @ [a]) @ s2)
LangOf(Auto)(z @ (a.s1)) LangOf(Auto)(z @ (a.s2))
By:
RWH
(LemmaC
Thm* 
as,bs,cs:T*. ((as @ bs) @ cs) = (as @ (bs @ cs)))
18
THEN
Try (Fold `languages` 0)
THEN
Reduce 18
Generated subgoals:None
About:
