blob: 7446781f926f07e2bd5728516ca8a6e91d5bf98d [file] [edit]
class C (α : Type) where
op : α → α → α
inductive X
| mk : Nat → X
instance : C X where
op (X.mk a) (X.mk b) := X.mk (a + b)