Adapt to coq/coq#18938 (EConstr.ERelevance)

lukaszcz · Apr 23, 2024 · 448444a · 448444a
1 parent 69efdf9
commit 448444a
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/lib/hhutils.mli b/src/lib/hhutils.mli
@@ -54,29 +54,29 @@ val get_hyps : Proofview.Goal.t -> (Id.t * EConstr.t) list
 
 val drop_lambdas : Evd.evar_map -> int -> EConstr.t -> EConstr.t
 
-val take_lambdas : Evd.evar_map -> int -> EConstr.t -> (Name.t Context.binder_annot * EConstr.t) list
+val take_lambdas : Evd.evar_map -> int -> EConstr.t -> (Name.t EConstr.binder_annot * EConstr.t) list
 
 val drop_prods : Evd.evar_map -> int -> EConstr.t -> EConstr.t
 
-val take_prods : Evd.evar_map -> int -> EConstr.t -> (Name.t Context.binder_annot * EConstr.t) list
+val take_prods : Evd.evar_map -> int -> EConstr.t -> (Name.t EConstr.binder_annot * EConstr.t) list
 
 val drop_all_lambdas : Evd.evar_map -> EConstr.t -> EConstr.t
 
-val take_all_lambdas : Evd.evar_map -> EConstr.t -> (Name.t Context.binder_annot * EConstr.t) list
+val take_all_lambdas : Evd.evar_map -> EConstr.t -> (Name.t EConstr.binder_annot * EConstr.t) list
 
 val drop_all_prods : Evd.evar_map -> EConstr.t -> EConstr.t
 
-val take_all_prods : Evd.evar_map -> EConstr.t -> (Name.t Context.binder_annot * EConstr.t) list
+val take_all_prods : Evd.evar_map -> EConstr.t -> (Name.t EConstr.binder_annot * EConstr.t) list
 
 val destruct_app : Evd.evar_map -> EConstr.t -> EConstr.t (* head *) * EConstr.t array (* args *)
 
 val destruct_app_red : Evd.evar_map -> EConstr.t -> EConstr.t (* head *) * EConstr.t (* head after red *) * EConstr.t array (* args after red *)
 
 val destruct_prod : Evd.evar_map -> EConstr.t ->
-  (Name.t Context.binder_annot * EConstr.t) list (* prods *) * EConstr.t (* head *) * EConstr.t array (* args *)
+  (Name.t EConstr.binder_annot * EConstr.t) list (* prods *) * EConstr.t (* head *) * EConstr.t array (* args *)
 
 val destruct_prod_red : Evd.evar_map -> EConstr.t ->
-  (Name.t Context.binder_annot * EConstr.t) list (* prods *) * EConstr.t (* head *) * EConstr.t (* head after red *) * EConstr.t array (* args after red *)
+  (Name.t EConstr.binder_annot * EConstr.t) list (* prods *) * EConstr.t (* head *) * EConstr.t (* head after red *) * EConstr.t array (* args after red *)
 
 val map_fold_constr : (int -> 'a -> EConstr.t -> 'a * EConstr.t) ->
                       'a -> Evd.evar_map -> EConstr.t ->