Proof
fun X Y y1 y2 e =>
e (fun z => z (fun _ => bot) (fun y => eq Y y1 y)) (eq_refl Y y1).

(* Specifications: *)
Lemma eq_inl_inr :
forall (X Y : Typ1) (x : X) (y : Y),
eq (sum X Y) (inl X Y x) (inr X Y y) -> bot.