Auto:Automata(Alph;St), c:(St
Alph*).
(q:St. (Result(Auto)c(q)) = q)
& Fin(Alph)
& Fin(St)
& (St ~ (x,y:Alph*//(x LangOf(Auto)-induced Equiv y)))
Inj(St; x,y:Alph*//(x LangOf(Auto)-induced Equiv y); c)
homo_is_inj
a1,a2:A. f(a1) = f(a2) 
B a1 = a2
Thm* Auto:Automata(Alph;St), c:(StAlph*).
(q:St. (Result(Auto)c(q)) = q)
& Fin(Alph)
& Fin(St)
& (St ~ (x,y:Alph*//(x LangOf(Auto)-induced Equiv y)))
Inj(St; x,y:Alph*//(x LangOf(Auto)-induced Equiv y); c)
homo_is_inj
Thm* f:(AB). (A ~ B) & Fin(B) Surj(A; B; f) Inj(A; B; f)
surj_is_inj_gen
Thm* n:
, f:(nn). Surj(n; n; f) Inj(n; n; f) surj_is_inj