aboutsummaryrefslogtreecommitdiff
path: root/pretyping/recordops.mli
diff options
context:
space:
mode:
authorMaxime Dénès2017-10-18 17:20:27 +0200
committerMaxime Dénès2017-10-18 17:20:27 +0200
commit6bda57bd75efe55fe1f7774f932e9ef5a65aeaaf (patch)
tree1ca022fa394b41f7679d88fb2a668dc7257ce47f /pretyping/recordops.mli
parent0ac62afd4b2a8ce220c70b71f6a8d34445de6528 (diff)
parent157d3fdce504e59eada13068b630c6b9d3d44360 (diff)
Merge PR #984: Handling primitive projections in canonical structures.
Diffstat (limited to 'pretyping/recordops.mli')
-rw-r--r--pretyping/recordops.mli2
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/recordops.mli b/pretyping/recordops.mli
index 5480b14af0..8e2333b349 100644
--- a/pretyping/recordops.mli
+++ b/pretyping/recordops.mli
@@ -65,7 +65,7 @@ type obj_typ = {
o_TCOMPS : constr list } (** ordered *)
(** Return the form of the component of a canonical structure *)
-val cs_pattern_of_constr : constr -> cs_pattern * int option * constr list
+val cs_pattern_of_constr : Environ.env -> constr -> cs_pattern * int option * constr list
val pr_cs_pattern : cs_pattern -> Pp.t