At: mn 23 lem 1 1 1 1 2 1 1 2 2 2 1
1. Alph: Type
2. R: Alph*
Alph*
Prop
3. Fin(Alph)
4. EquivRel x,y:Alph*. x R y
5. Fin(x,y:Alph*//(x R y))
6.
x,y,z:Alph*. (x R y) 
((z @ x) R (z @ y))
7. g: (x,y:Alph*//(x R y))


8. x: x,y:Alph*//(x R y)
9. y: x,y:Alph*//(x R y)
10. < (x,y:Alph*//(x R y))
(x,y:Alph*//(x R y)),
a,p. p/x,y. < a.x,a.y > >
ActionSet(Alph)
11. Fin((x,y:Alph*//(x R y))
(x,y:Alph*//(x R y)))
12.
x:((x,y:Alph*//(x R y))
(x,y:Alph*//(x R y))), y:Alph*.
( < (x,y:Alph*//(x R y))
(x,y:Alph*//(x R y)),
a,p. p/x,y. < a.x,a.y > > :y
x) = (x/x1,x2. < y@
x1,y@
x2 > )
Fin( < (x,y:Alph*//(x R y))
(x,y:Alph*//(x R y)),
a,p. p/x,y. < a.x,a.y > > .car)
By:
Unfold `aset_car` 0
THEN
Reduce 0
Generated subgoals:None
About: