diff options
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/rawterm.ml | 2 | ||||
| -rw-r--r-- | pretyping/rawterm.mli | 2 | ||||
| -rw-r--r-- | pretyping/tacred.ml | 4 | ||||
| -rw-r--r-- | pretyping/tacred.mli | 2 |
4 files changed, 5 insertions, 5 deletions
diff --git a/pretyping/rawterm.ml b/pretyping/rawterm.ml index c7e2b0eb39..9f39a1db91 100644 --- a/pretyping/rawterm.ml +++ b/pretyping/rawterm.ml @@ -143,7 +143,7 @@ type ('a,'b) red_expr_gen = | Unfold of (int list * 'b) list | Fold of 'a list | Pattern of (int list * 'a) list - | ExtraRedExpr of string * 'a list + | ExtraRedExpr of string * 'a type 'a or_metanum = AN of loc * 'a | MetaNum of loc * int diff --git a/pretyping/rawterm.mli b/pretyping/rawterm.mli index 3a6d681151..d6543323e2 100644 --- a/pretyping/rawterm.mli +++ b/pretyping/rawterm.mli @@ -110,7 +110,7 @@ type ('a,'b) red_expr_gen = | Unfold of (int list * 'b) list | Fold of 'a list | Pattern of (int list * 'a) list - | ExtraRedExpr of string * 'a list + | ExtraRedExpr of string * 'a type 'a or_metanum = AN of loc * 'a | MetaNum of loc * int diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml index 9bdf5822f8..1242b84146 100644 --- a/pretyping/tacred.ml +++ b/pretyping/tacred.ml @@ -789,7 +789,7 @@ let make_flag f = let red_expr_tab = ref Stringmap.empty -type generic_reduction_function = constr list -> reduction_function +type generic_reduction_function = constr -> reduction_function let declare_red_expr s f = try @@ -807,7 +807,7 @@ let reduction_of_redexp = function | Unfold ubinds -> unfoldn ubinds | Fold cl -> fold_commands cl | Pattern lp -> pattern_occs lp - | ExtraRedExpr (s,cl) -> Stringmap.find s !red_expr_tab cl + | ExtraRedExpr (s,c) -> Stringmap.find s !red_expr_tab c (* Used in several tactics. *) diff --git a/pretyping/tacred.mli b/pretyping/tacred.mli index c03c67c092..0224a97685 100644 --- a/pretyping/tacred.mli +++ b/pretyping/tacred.mli @@ -76,7 +76,7 @@ type red_expr = (constr, evaluable_global_reference) red_expr_gen val reduction_of_redexp : red_expr -> reduction_function -type generic_reduction_function = constr list -> reduction_function +type generic_reduction_function = constr -> reduction_function val declare_red_expr : string -> generic_reduction_function -> unit |