diff options
| author | herbelin | 2002-05-30 13:01:58 +0000 |
|---|---|---|
| committer | herbelin | 2002-05-30 13:01:58 +0000 |
| commit | 46f4caf6d8ac042638b668a5fa16294b420641ac (patch) | |
| tree | 2f874d7b696a6bf3d72646d11f236de15157adc8 /pretyping | |
| parent | 29c67f1d97221755415ace1e4317cb7af92e24f3 (diff) | |
Finalement un seul constr pour l'instant dans ExtraRedExpr
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2735 85f007b7-540e-0410-9357-904b9bb8a0f7
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 |