diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-05-23 13:35:29 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-05-23 18:50:10 +0200 |
| commit | d8851bbd50df1f77af0aabfe98bebd44fcb4aa02 (patch) | |
| tree | 8c2385ac275d1ef50cc6b8c4c34ff8a58c115aca /kernel/declareops.ml | |
| parent | bb2d7f94ba8688f57dc62ca72a857b82368aa784 (diff) | |
Moving Rtree.smart_map into Rtree.Smart.map.
Diffstat (limited to 'kernel/declareops.ml')
| -rw-r--r-- | kernel/declareops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/declareops.ml b/kernel/declareops.ml index cc0b381c9..832d478b3 100644 --- a/kernel/declareops.ml +++ b/kernel/declareops.ml @@ -178,7 +178,7 @@ let recarg_length p j = let (_,cstrs) = Rtree.dest_node p in Array.length (snd (Rtree.dest_node cstrs.(j-1))) -let subst_wf_paths sub p = Rtree.smartmap (subst_recarg sub) p +let subst_wf_paths sub p = Rtree.Smart.map (subst_recarg sub) p (** {7 Substitution of inductive declarations } *) |