R:Alph List
Alph List
EquivRel(Alph List;x,y.x R y) c
(
g:x,y:(Alph List)//(R x y)
Fin(x,y:(Alph List)//(R x y))
(
l:Alph List. L l
(g l))
(
x,y,z:Alph List. R x y
R (z @ x) (z @ y)))
1. EquivRel(Alph List;x,y.Auto(x) = Auto(y)) 2.
R:Alph List
Alph List
EquivRel(Alph List;x,y.x R y) c
(
g:x,y:(Alph List)//(R x y)
Fin(x,y:(Alph List)//(R x y))
(
l:Alph List. L l
(g l))
(
x,y,z:Alph List. R x y
R (z @ x) (z @ y)))