At: mn 23 lem 11112112 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)