diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-05-23 13:34:46 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-05-23 18:50:10 +0200 |
| commit | 33b5074f24270c202a9922f21d445c12cc6b3b3d (patch) | |
| tree | 67d69b51caf3b7849e2d90d21e6ed7dc705d3249 /proofs | |
| parent | 944f62d08b7d78bcb20dd12ba138891d432b5987 (diff) | |
Collecting List.smart_* functions into a module List.Smart.
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/redexpr.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/redexpr.ml b/proofs/redexpr.ml index 6fb411938..a75711bae 100644 --- a/proofs/redexpr.ml +++ b/proofs/redexpr.ml @@ -92,9 +92,9 @@ let cache_strategy (_,str) = let subst_strategy (subs,(local,obj)) = local, - List.smartmap + List.Smart.map (fun (k,ql as entry) -> - let ql' = List.smartmap (Mod_subst.subst_evaluable_reference subs) ql in + let ql' = List.Smart.map (Mod_subst.subst_evaluable_reference subs) ql in if ql==ql' then entry else (k,ql')) obj |