(motive : Option (Lean.Expr × Lean.Expr) → Sort u_1) →
  (r : Option (Lean.Expr × Lean.Expr)) →
    (Unit → motive none) → ((proofNew typeNew : Lean.Expr) → motive (some (proofNew, typeNew))) → motive r