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.
2 parents 4352c71 + c5de016 commit 03d371dCopy full SHA for 03d371d
plugins/ltac2/tac2core.ml
@@ -831,7 +831,8 @@ let () =
831
define "constr_binder_type" (repr_ext val_binder @-> ret constr) @@ fun (_, ty) -> ty
832
833
let () =
834
- define "constr_binder_relevance" (repr_ext val_binder @-> ret relevance) @@ fun (na, _) -> na.binder_relevance
+ define "constr_binder_relevance" (repr_ext val_binder @-> ret relevance) @@ fun (na, _) ->
835
+ EConstr.Unsafe.to_relevance na.binder_relevance
836
837
838
define "constr_has_evar" (constr @-> tac bool) @@ fun c ->
0 commit comments