blob: bd767d6451498fe6e8aff159af369affa1f6f15f [file] [edit]
-- 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)