Typeclasses_errorstype typeclass_error = | NotAClass of EConstr.constr | |
| UnboundMethod of Names.GlobRef.t * Names.lident | (* Class name, method *) |
exception TypeClassError of Environ.env * Evd.evar_map * typeclass_errorval typeclass_error : Environ.env -> Evd.evar_map -> typeclass_error -> 'aval not_a_class : Environ.env -> Evd.evar_map -> EConstr.constr -> 'aval unbound_method : Environ.env -> Evd.evar_map -> Names.GlobRef.t -> Names.lident -> 'a