At: mn 23 lem 1111211221 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)))
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 > > :yx) = (x/x1,x2. < y@x1,y@x2 > ) By: RepD Generated subgoal: