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. ( 2. EquivRel(Alph List;x,y.x ( 3. EquivRel(Alph List;x,y.x R y) c
x,y.Auto(x) = Auto(y))
Alph List
Alph List
x,y.Auto(x) = Auto(y)) y)
c
(
g:x,y:(Alph List)//((
x,y.Auto(x) = Auto(y)) x y)
Fin(x,y:(Alph List)//((
x,y.Auto(x) = Auto(y)) x y))
(
l:Alph List. L l
(g l))
(
x,y,z:Alph List.
(
x,y.Auto(x) = Auto(y)) x y
(
x,y.Auto(x) = Auto(y)) (z @ x) (z @ y)))
(
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)))