diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-05-13 15:21:10 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-05-23 18:50:10 +0200 |
| commit | 944f62d08b7d78bcb20dd12ba138891d432b5987 (patch) | |
| tree | 85f69d1898ea3704cf43e6f03b49f5426d7f9f2a /engine/termops.ml | |
| parent | f2ab2825077bf8344d2e55be433efb1891212589 (diff) | |
Exporting Fun1 within Array so that Array.Fun1 and not only CArray.Fun1 works.
Diffstat (limited to 'engine/termops.ml')
| -rw-r--r-- | engine/termops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/engine/termops.ml b/engine/termops.ml index c271d9d99..053fcc3db 100644 --- a/engine/termops.ml +++ b/engine/termops.ml @@ -931,7 +931,7 @@ let dependent_main noevar sigma m t = match EConstr.kind sigma m, EConstr.kind sigma t with | App (fm,lm), App (ft,lt) when Array.length lm < Array.length lt -> deprec m (mkApp (ft,Array.sub lt 0 (Array.length lm))); - CArray.Fun1.iter deprec m + Array.Fun1.iter deprec m (Array.sub lt (Array.length lm) ((Array.length lt) - (Array.length lm))) | _, Cast (c,_,_) when noevar && isMeta sigma c -> () |