diff options
| author | letouzey | 2012-07-09 18:18:01 +0000 |
|---|---|---|
| committer | letouzey | 2012-07-09 18:18:01 +0000 |
| commit | 9e04031196175111302681d96d975804bd7e1850 (patch) | |
| tree | 9a8fea97f87f44fc9548ce1a72053e5fa26a38f7 /printing | |
| parent | f3870c96a192ff52449db9695b1c160834ff023f (diff) | |
The tactic remember now accepts a final eqn:H option (grant wish #2489)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15567 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/pptactic.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index e1575eab73..f89877e004 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -697,12 +697,13 @@ and pr_atom1 = function | TacGeneralizeDep c -> hov 1 (str "generalize" ++ spc () ++ str "dependent" ++ pr_constrarg c) - | TacLetTac (na,c,cl,true) when cl = Locusops.nowhere -> + | TacLetTac (na,c,cl,true,_) when cl = Locusops.nowhere -> hov 1 (str "pose" ++ pr_pose pr_lconstr pr_constr na c) - | TacLetTac (na,c,cl,b) -> + | TacLetTac (na,c,cl,b,e) -> hov 1 ((if b then str "set" else str "remember") ++ (if b then pr_pose pr_lconstr else pr_pose_as_style) pr_constr na c ++ + pr_opt (fun p -> pr_eqn_ipat p ++ spc ()) e ++ pr_clauses (Some b) pr_ident cl) (* | TacInstantiate (n,c,ConclLocation ()) -> hov 1 (str "instantiate" ++ spc() ++ |