path: root/test-suite/bugs/opened/3010.v-disabled

Definition em {A R} (k : forall s : sum A _, match s with inl x => R x | inr y => R end) := k (inr (fun x => k (inl x))).