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 /kernel/esubst.ml | |
| parent | f2ab2825077bf8344d2e55be433efb1891212589 (diff) | |
Exporting Fun1 within Array so that Array.Fun1 and not only CArray.Fun1 works.
Diffstat (limited to 'kernel/esubst.ml')
| -rw-r--r-- | kernel/esubst.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/esubst.ml b/kernel/esubst.ml index 91cc64523..4b8edf63f 100644 --- a/kernel/esubst.ml +++ b/kernel/esubst.ml @@ -140,7 +140,7 @@ let rec comp mk_cl s1 s2 = | ESID _, _ -> s2 | SHIFT(k,s), _ -> subs_shft(k, comp mk_cl s s2) | _, CONS(x,s') -> - CONS(CArray.Fun1.map (fun s t -> mk_cl(s,t)) s1 x, comp mk_cl s1 s') + CONS(Array.Fun1.map (fun s t -> mk_cl(s,t)) s1 x, comp mk_cl s1 s') | CONS(x,s), SHIFT(k,s') -> let lg = Array.length x in if k == lg then comp mk_cl s s' |