At: mn 23 lem122 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, x:x,y:Alph*//(x R y). a.x x,y:Alph*//(x R y)
x,y:x,y:Alph*//(x R y). Dec(x Rg y) By: Inst
Thm*f:(T). Fin(T) (fL:T*. t:T. f(t) mem_f(T;t;fL))
[(x,y:Alph*//(x R y))(x,y:Alph*//(x R y));x.x/x1,x2.(g(x1)) = (g(x2))] Generated subgoal:
10. fL:((x,y:Alph*//(x R y))(x,y:Alph*//(x R y)))*.
t:((x,y:Alph*//(x R y))(x,y:Alph*//(x R y))).
(x.x/x1,x2.(g(x1)) = (g(x2)))(t) mem_f((x,y:Alph*//(x R y))(x,y:Alph*//(x R y));t;fL) x,y:x,y:Alph*//(x R y). Dec(x Rg y)