At: mn 31 1 1 1 1 1 1 1 1 2 1 2 1 1 1 1 1 2 1 1 1 1 2 2 2
1. Alph: Type
2. L: LangOver(Alph)
3. EquivRel x,y:Alph*. x L-induced Equiv y
4. Fin(Alph)
5. Fin(x,y:Alph*//L-induced Equiv(x,y))
6.
l:Alph*. Dec(L(l))
7. g: Alph*


8.
t:Alph*. L(t) 
g(t)
9. < (
s,a. a.s),nil,g >
Automata(Alph;x,y:Alph*//L-induced Equiv(x,y))
10. l: Alph*
11.
b1,b2:
. b1 = b2 
(b1 
b2)
12. u: Alph
13. v: Alph*
14. v = (Result( < (
s,a. a.s),nil,g > )v)
Alph*
15.
u.v = nil
u.v = u.(Result( < (
s,a. a.s),nil,g > )v)
Alph*
By: RWH (RevHypC 14) 0
Generated subgoals:None
About: