DEFINITION eq_ind()
TYPE =
       A:Set.x:A.P:AProp.(P x)a:A.(eq A x a)(P a)
BODY =
Show proof