diff options
| author | coq | 2000-09-14 13:22:58 +0000 |
|---|---|---|
| committer | coq | 2000-09-14 13:22:58 +0000 |
| commit | 44e7cd6dd3d4f50391c20bd27176fff30e1da33c (patch) | |
| tree | 52e097467cb2657754e6fa2bf103482f000ba8f5 /pretyping | |
| parent | ea83f1ad9e93f4826a1363d22913d19bb7d47866 (diff) | |
Minor correction for Ocamlweb + doc update
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@608 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/tacred.mli | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/pretyping/tacred.mli b/pretyping/tacred.mli index efec41d42e..ede13abea0 100644 --- a/pretyping/tacred.mli +++ b/pretyping/tacred.mli @@ -15,14 +15,19 @@ exception Redelimination (* Red (raise Redelimination if nothing reducible) *) val red_product : 'a reduction_function + (* Hnf *) val hnf_constr : 'a reduction_function + (* Simpl *) val nf : 'a reduction_function + (* Unfold *) val unfoldn : (int list * section_path) list -> 'a reduction_function + (* Fold *) val fold_commands : constr list -> 'a reduction_function + (* Pattern *) val pattern_occs : (int list * constr * constr) list -> 'a reduction_function (* Rem: Lazy strategies are defined in Reduction *) @@ -32,7 +37,7 @@ val cbv_norm_flags : Closure.flags -> 'a reduction_function val cbv_beta : 'a reduction_function val cbv_betaiota : 'a reduction_function val cbv_betadeltaiota : 'a reduction_function - val compute : 'a reduction_function (* = cbv_betadeltaiota *) + val compute : 'a reduction_function (* = [cbv_betadeltaiota] *) val one_step_reduce : 'a reduction_function |