At: mn 23 refinment1111 1. Alph: Type 2. L: LangOver(Alph) 3. R: Alph*Alph*Prop 4. EquivRel x,y:Alph*. x R y 5. g: (x,y:Alph*//(x R y)) 6. l:Alph*. L(l) g(l) 7. x,y,z:Alph*. (x R y) ((z @ x) R (z @ y)) 8. x: Alph* 9. y: Alph* 10. x R y 11. z: Alph* 12. (z @ x) R (z @ y)