At: mn 23 lem12 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)))
x,y:x,y:Alph*//(x R y). Dec(x Rg y) By: Assert (a:Alph, x:x,y:Alph*//(x R y). a.x x,y:Alph*//(x R y)) Generated subgoals: