constant A : Type
constant a : A
constant A_has_add : has_add A

#check a + a -- ERROR

attribute [instance] A_has_add

#check a + a