Proof
fun X Y x1 x2 e =>
e (fun z => z (fun x => eq X x1 x) (fun _ => bot)) (eq_refl X x1).

(* Specifications: *)
Lemma eq_inr_inr :
forall (X Y : Typ1) (y1 y2 : Y),
eq (sum X Y) (inr X Y y1) (inr X Y y2) -> eq Y y1 y2.