We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents 7033a53 + 5c21ae8 commit 18e2e49Copy full SHA for 18e2e49
template-coq/src/constr_denoter.ml
@@ -135,7 +135,7 @@ struct
135
let unquote_evar env evm id args =
136
if constr_equall id tfresh_evar_id then
137
let evm, (tyev, s) = Evarutil.new_type_evar env evm Evd.univ_flexible_alg in
138
- let evm, ev = Evarutil.new_evar env evm tyev in
+ let evm, ev = Evarutil.new_evar ~typeclass_candidate:false env evm tyev in
139
evm, EConstr.Unsafe.to_constr ev
140
else
141
let id = unquote_nat id in
0 commit comments