{α : Type} →
  (motive : DoResultPR α α PUnit.{1} → Sort u_1) →
    (r : DoResultPR α α PUnit.{1}) →
      ((a : α) → (u : PUnit.{1}) → motive (DoResultPR.pure a u)) →
        ((b : α) → (u : PUnit.{1}) → motive (DoResultPR.return b u)) → motive r