At: mn 23 lem 1 1 1 1 2 1 1 2 2 1 1 2 2 1 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. x2: x,y:Alph*//(x R y)
13. x3: x,y:Alph*//(x R y)
14. y1: Alph*
15. u: Alph
16. v: Alph*
17. ( < (x,y:Alph*//(x R y))(x,y:Alph*//(x R y)),a,p. p/x,y. < a.x,a.y > > :v
< x2,x3 > )
=
( < x2,x3 > /x1,x2. < v@
x1,v@x2 > )
18. x4: x,y:Alph*//(x R y)
19. y2: x,y:Alph*//(x R y)
20. ( < (x,y:Alph*//(x R y))(x,y:Alph*//(x R y)),a,p. p/x,y. < a.x,a.y > > :v < x2,x3 > ) = < x4,y2 >
21. x5: Alph*
22. x6: Alph*
23. x5 R x6
(u.x5) R (u.x6)
By:
InstHyp [x5;x6;[u]] 6
THEN
Reduce -1
Generated subgoals:None
About:
