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