diff --git a/src/Init/Data/Option/Basic.lean b/src/Init/Data/Option/Basic.lean
index bf36b23cbe..ae88231c3a 100644
--- a/src/Init/Data/Option/Basic.lean
+++ b/src/Init/Data/Option/Basic.lean
@@ -64,10 +64,9 @@ instance : Monad Option := {
 
 /- Remark: when using the polymorphic notation `a <|> b` is not a `[macroInline]`.
    Thus, `a <|> b` will make `Option.orelse` to behave like it was marked as `[inline]`. -/
-instance : Alternative Option := {
-  failure := none,
+instance : Alternative Option where
+  failure := none
   orElse  := Option.orElse
-}
 
 @[inline] protected def lt (r : α → α → Prop) : Option α → Option α → Prop
   | none, some x     => True
@@ -82,22 +81,8 @@ instance (r : α → α → Prop) [s : DecidableRel r] : DecidableRel (Option.lt
 
 end Option
 
-instance [DecidableEq α] : DecidableEq (Option α) := fun a b =>
-  match a, b with
-  | none,      none      => isTrue rfl
-  | none,      (some v₂) => isFalse (fun h => Option.noConfusion h)
-  | (some v₁), none      => isFalse (fun h => Option.noConfusion h)
-  | (some v₁), (some v₂) =>
-    match decEq v₁ v₂ with
-    | (isTrue e)  => isTrue (congrArg (@some α) e)
-    | (isFalse n) => isFalse (fun h => Option.noConfusion h (fun e => absurd e n))
-
-instance [BEq α] : BEq (Option α) where
-  beq
-    | none,      none      => true
-    | none,      (some v₂) => false
-    | (some v₁), none      => false
-    | (some v₁), (some v₂) => v₁ == v₂
+deriving instance DecidableEq for Option
+deriving instance BEq for Option
 
 instance [HasLess α] : HasLess (Option α) := {
   Less := Option.lt (· < ·)
diff --git a/src/Lean/Data/Position.lean b/src/Lean/Data/Position.lean
index b1032256da..f351dcd5c1 100644
--- a/src/Lean/Data/Position.lean
+++ b/src/Lean/Data/Position.lean
@@ -10,19 +10,9 @@ namespace Lean
 structure Position where
   line   : Nat
   column : Nat
-  deriving Inhabited
+  deriving Inhabited, DecidableEq
 
 namespace Position
-instance : DecidableEq Position :=
-  fun ⟨l₁, c₁⟩ ⟨l₂, c₂⟩ =>
-    if h₁ : l₁ = l₂ then
-    if h₂ : c₁ = c₂ then
-      isTrue $ by subst h₁; subst h₂; rfl
-    else
-      isFalse fun contra => Position.noConfusion contra (fun e₁ e₂ => absurd e₂ h₂)
-    else
-      isFalse fun contra => Position.noConfusion contra (fun e₁ e₂ => absurd e₁ h₁)
-
 protected def lt : Position → Position → Bool
   | ⟨l₁, c₁⟩, ⟨l₂, c₂⟩ => (l₁, c₁) < (l₂, c₂)