Skip to content

Commit 05263d2

Browse files
committed
fix compilation on 8.20
1 parent 660c961 commit 05263d2

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/coq_elpi_builtins.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -422,7 +422,7 @@ let tc_instance = let open Conv in let open API.AlgebraicData in declare {
422422
M (fun ~ok ~ko { implementation; priority } -> ok implementation priority));
423423
]} |> CConv.(!<)
424424

425-
[%%if coq = "8.19"]
425+
[%%if coq = "8.19" || coq = "8.20"]
426426
let clenv_missing sigma ce cty =
427427
let rec nb_hyp sigma c = match EConstr.kind sigma c with
428428
| Prod(_,_,c2) -> if EConstr.Vars.noccurn sigma 1 c2 then 1+(nb_hyp sigma c2) else nb_hyp sigma c2

0 commit comments

Comments
 (0)