diff options
| author | Pierre-Marie Pédrot | 2014-06-06 15:21:37 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-06-06 15:32:36 +0200 |
| commit | 3b83b311798f0d06444e1994602e0b531e207ef5 (patch) | |
| tree | 8d41bca774ee92bfa2c9866cc54ef4d7acd5a20c /printing | |
| parent | ce85edee592fef31575e138af2945ce8be74cd07 (diff) | |
Moving the [split] tactic out of the AST.
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/pptactic.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index 6c2c67c352..f6c25d0699 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -758,8 +758,7 @@ and pr_atom1 = function hov 1 (str "revert" ++ spc () ++ prlist_with_sep spc pr_ident l) (* Constructors *) - | TacSplit (ev,false,l) -> hov 1 (str (with_evars ev "split") ++ prlist_with_sep pr_comma pr_bindings l) - | TacSplit (ev,true,l) -> hov 1 (str (with_evars ev "exists") ++ prlist_with_sep (fun () -> str",") pr_ex_bindings l) + | TacSplit (ev,l) -> hov 1 (str (with_evars ev "exists") ++ prlist_with_sep (fun () -> str",") pr_ex_bindings l) | TacAnyConstructor (ev,Some t) -> hov 1 (str (with_evars ev "constructor") ++ pr_arg (pr_tac_level (latom,E)) t) | TacAnyConstructor (ev,None) as t -> pr_atom0 t |