diff options
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/tacred.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml index fbf9b34776..a3051fea85 100644 --- a/pretyping/tacred.ml +++ b/pretyping/tacred.ml @@ -633,6 +633,7 @@ let one_step_reduce env sigma c = | None -> error "Not reducible 1" | Some (a,rest) -> (subst1 a c, rest)) | IsApp (f,cl) -> redrec (f, append_stack cl largs) + | IsLetIn (_,f,_,cl) -> (subst1 f cl,largs) | IsMutCase (ci,p,c,lf) -> (try (special_red_case env (whd_betadeltaiota_state env sigma) @@ -681,3 +682,4 @@ let reduce_to_mind env sigma t = let reduce_to_ind env sigma t = let ((ind_sp,_),redt,c) = reduce_to_mind env sigma t in (Declare.path_of_inductive_path ind_sp, redt, c) + |