From HB Require Import structures.
HB.mixin Record HasPoint T := { default : T }.
HB.instance Definition _ A : HasPoint Type := HasPoint.Build Type nat.
HB.structure Definition Pointed := { T of HasPoint T }.
HB.saturate.
(* This should succeed now *)
Check Type : Pointed.type.
The following should succeed but does not