-- Create a new HAdd so that the unexpander for `+` doesn't take over for the `(+) 2 3` example.
class HAdd' (α : Type u) (β : Type v) (γ : outParam (Type w)) where
  hAdd : α → β → γ

instance [HAdd α β γ] : HAdd' α β γ where
  hAdd := HAdd.hAdd

notation "(+)" => HAdd'.hAdd
#check ((+) : Nat -> Nat -> Nat)
#check ((+) 2 : Nat -> Nat)
#check ((+) 2 3 : Nat)