diff options
| author |  pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-21 21:47:38 +0000 |
|---|---|---|
| committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-21 21:47:38 +0000 |
| commit | e9428d3127ca159451437c2abbc6306e0c31f513 (patch) | |
| tree | 675eadf0e2790ae2dbe6f378dabf5a77feaec6f4 /printing | |
| parent | 99674e1e719cede1531ff4c3e21c57cfb6b55b48 (diff) | |
Yet a new reduction tactic in Coq : cbn
It is supposed to become the next generation of the simpl tactics (it "refolds" constant)
but
1/it is a bit more aggresive than the old simpl
2/it cannot be customized as simpl start to be
3/(for now)it does not refold in reccursive calls constant such as
compare x y := compare_cont x y Eq := (fix compare_cont x y s := ...) x y Eq
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16111 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/ppconstr.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml index 6d34b10bc..e7f4a0b24 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -624,6 +624,8 @@ let pr_red_expr (pr_constr,pr_lconstr,pr_ref,pr_pattern) = function hov 1 (str "cbv" ++ pr_red_flag pr_ref f) | Lazy f -> hov 1 (str "lazy" ++ pr_red_flag pr_ref f) + | Cbn f -> + hov 1 (str "cbn" ++ pr_red_flag pr_ref f) | Unfold l -> hov 1 (str "unfold" ++ spc() ++ prlist_with_sep pr_comma (pr_with_occurrences pr_ref) l) |