At: mn 23 lem 1 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. Fin((x,y:Alph*//(x R y))
(x,y:Alph*//(x R y)))
9. a: Alph
10. x1: Alph*
11. x2: Alph*
12. x1 R x2
(a.x1) R (a.x2)
By:
InstHyp [x1;x2;[a]] 6
THEN
Reduce -1
Generated subgoals:None
About:
