diff options
| author | Maxime Dénès | 2018-05-06 17:19:58 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2018-05-06 17:19:58 +0200 |
| commit | dad4731deed5c09e4e6cb212cd81462f7896c363 (patch) | |
| tree | 413c52bbb7c67c228e20434ef2dfd6bd59c86753 /pretyping/recordops.ml | |
| parent | 87c959542e1bed55b14d371f1be02cd60d89082c (diff) | |
| parent | afceace455a4b37ced7e29175ca3424996195f7b (diff) | |
Merge PR #6156: [api] Rename `global_reference` to `GlobRef.t` to follow kernel style.
Diffstat (limited to 'pretyping/recordops.ml')
| -rw-r--r-- | pretyping/recordops.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/recordops.ml b/pretyping/recordops.ml index d070edead1..84aceeedd4 100644 --- a/pretyping/recordops.ml +++ b/pretyping/recordops.ml @@ -144,13 +144,13 @@ type obj_typ = { o_TCOMPS : constr list } (* ordered *) type cs_pattern = - Const_cs of global_reference + Const_cs of GlobRef.t | Prod_cs | Sort_cs of Sorts.family | Default_cs let eq_cs_pattern p1 p2 = match p1, p2 with -| Const_cs gr1, Const_cs gr2 -> eq_gr gr1 gr2 +| Const_cs gr1, Const_cs gr2 -> GlobRef.equal gr1 gr2 | Prod_cs, Prod_cs -> true | Sort_cs s1, Sort_cs s2 -> Sorts.family_equal s1 s2 | Default_cs, Default_cs -> true |