We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 1cd9e96 commit 58af4e2Copy full SHA for 58af4e2
src/coq_elpi_utils.ml
@@ -482,7 +482,7 @@ let detype ?(keepunivs = false) env sigma t =
482
list_map_acc
483
(fun env (n, ty) -> push_occurring_rel (LocalAssum (n, ty)) env)
484
env
485
- (CArray.combine names tys |> CArray.to_list)
+ (CList.combine (names|> CArray.to_list) (tys |> CArray.to_list))
486
in
487
let n = Array.length tys in
488
let v = CArray.map3 (fun c t i -> share_names (i + 1) [] env c (Vars.lift n t)) bodies tys vn in
0 commit comments