diff options
| author | Pierre-Marie Pédrot | 2021-03-30 14:02:16 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2021-03-30 14:02:16 +0200 |
| commit | f0c6a1de3eef85ab0787be7e87cb8509e8df43d5 (patch) | |
| tree | 05f3cc7ece9e0a77f841b37a12db909ff6362be0 /kernel/mod_subst.ml | |
| parent | 303afeab9c946bdba15e1984231ae5066bf37af6 (diff) | |
| parent | d9c80dadd353bd8b0eb90ce290048a2538f1a41a (diff) | |
Merge PR #13958: [recordops] complete API rewrite; the module is now called [structures]
Reviewed-by: SkySkimmer
Reviewed-by: ejgallego
Ack-by: herbelin
Reviewed-by: ppedrot
Diffstat (limited to 'kernel/mod_subst.ml')
| -rw-r--r-- | kernel/mod_subst.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/kernel/mod_subst.ml b/kernel/mod_subst.ml index c5ac57a2cd..d2fb773dc4 100644 --- a/kernel/mod_subst.ml +++ b/kernel/mod_subst.ml @@ -291,6 +291,11 @@ let subst_ind sub (ind,i as indi) = let ind' = subst_mind sub ind in if ind' == ind then indi else ind',i +let subst_constructor subst (ind,j as ref) = + let ind' = subst_ind subst ind in + if ind==ind' then ref + else (ind',j) + let subst_pind sub (ind,u) = (subst_ind sub ind, u) |