diff options
| author |  mohring <mohring@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-15 08:20:10 +0000 |
|---|---|---|
| committer | mohring <mohring@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-15 08:20:10 +0000 |
| commit | 65febb705e4c76c24306a7dc30b8fe5902eefe13 (patch) | |
| tree | 954602358cc0ba15ff1def94980b32968eeec082 /pretyping | |
| parent | b506e1d62f7a8079a3e7e51d7fdc143d0e44ee5d (diff) | |
Printer
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1117 85f007b7-540e-0410-9357-904b9bb8a0f7
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 fbf9b3477..a3051fea8 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) + |