Default methods not visited in Verify

[SquidDev]

Default methods within type classes are not visited within the verify pass, meaning that potential problems are not detected:

let id x = x

class bifunctor 'f
  val bimap : ('a -> 'a₂) -> ('b -> 'b₂) -> 'f 'a 'b -> 'f 'a₂ 'b₂

  val first : ('a -> 'a₂) -> 'f 'a 'b -> 'f 'a₂ 'b
  let first f = let unused = () (* Should warn but doesn't *)
                bimap f id

More seriously, this will not reject ill-formed terms such as let x = x within default methods.

[plt-amy]

It's not a soundness bug, default methods are not shared. They're pasted into instance bodies and will get verified there

[SquidDev]

Fixing this would also allow us to remove this disaster:

amulet/lib/amulet/category.ml

Lines 50 to 51 in 7d2f15a

	(* use inside classes doesn't count for verify *)
	let _ = (swap, dup)