diff options
| author | Guillaume Melquiond | 2020-08-31 08:52:05 +0200 |
|---|---|---|
| committer | Guillaume Melquiond | 2020-10-08 11:16:48 +0200 |
| commit | e3764e1e857fce9b6d4cb018db676db3612c00a0 (patch) | |
| tree | 2972e326e1ec69b017c0789939d8faf481d01758 /kernel/primred.ml | |
| parent | ddd7371dc3b82124c2bb36b93e6c2b185bcc02d2 (diff) | |
Remove occurrences of Parray.reroot.
Diffstat (limited to 'kernel/primred.ml')
| -rw-r--r-- | kernel/primred.ml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/kernel/primred.ml b/kernel/primred.ml index 90eeeb9be7..f158cfacea 100644 --- a/kernel/primred.ml +++ b/kernel/primred.ml @@ -365,11 +365,6 @@ struct let t = get_parray evd args 1 in let t' = Parray.copy t in E.mkArray env u t' ty - | Arrayreroot -> - let ar = E.get args 1 in - let t = E.get_parray evd ar in - let _ = Parray.reroot t in - ar | Arraylength -> let t = get_parray evd args 1 in E.mkInt env (Parray.length t) |