We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents 264d924 + c407be4 commit 9b27f1eCopy full SHA for 9b27f1e
template-coq/src/tm_util.ml
@@ -246,7 +246,7 @@ module RetypeMindEntry =
246
let _, indsort = Reduction.dest_arity env oib.mind_entry_arity in
247
let indsort = EConstr.ESorts.make indsort in
248
(* Hacky, but we don't have a good way to enfore max() <= max() constraints yet *)
249
- let evm = try Evd.set_leq_sort env evm cstrsort indsort with e -> evm in
+ let evm = try Evd.set_leq_sort evm cstrsort indsort with e -> evm in
250
evm)
251
evm mind.mind_entry_inds
252
in
0 commit comments