diff options
Diffstat (limited to 'pretyping/tacred.ml')
| -rw-r--r-- | pretyping/tacred.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml index 1242b84146..b42318a524 100644 --- a/pretyping/tacred.ml +++ b/pretyping/tacred.ml @@ -789,11 +789,9 @@ let make_flag f = let red_expr_tab = ref Stringmap.empty -type generic_reduction_function = constr -> reduction_function - let declare_red_expr s f = try - let _ = Stringmap.find s in + let _ = Stringmap.find s !red_expr_tab in error ("There is already a reduction expression of name "^s) with Not_found -> red_expr_tab := Stringmap.add s f !red_expr_tab @@ -807,7 +805,7 @@ let reduction_of_redexp = function | Unfold ubinds -> unfoldn ubinds | Fold cl -> fold_commands cl | Pattern lp -> pattern_occs lp - | ExtraRedExpr (s,c) -> Stringmap.find s !red_expr_tab c + | ExtraRedExpr (s,c) -> Stringmap.find s !red_expr_tab (* Used in several tactics. *) |