∀ {α : Type u} (R : Computation α → Computation α → Prop) (x x_1 : α ⊕ Computation α),
  (∀ (a a' : α), x = Sum.inl a → x_1 = Sum.inl a' → False) →
    (∀ (s s' : Computation α), x = Sum.inr s → x_1 = Sum.inr s' → False) → Computation.BisimO R x x_1 = False