diff options
Diffstat (limited to 'kernel/reduction.ml')
-rw-r--r-- | kernel/reduction.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/reduction.ml b/kernel/reduction.ml index 1e72c4033..f16fa0d8c 100644 --- a/kernel/reduction.ml +++ b/kernel/reduction.ml @@ -160,7 +160,7 @@ let subst_term_occ locs c t = (occ,[]) cl in (occ',DLAMV(n,Array.of_list (List.rev cl') )) - | _ -> occ,t + | _ -> occ,t in if locs = [] then subst_term c t |