diff options
| author |  corbinea <corbinea@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-06-29 15:55:40 +0000 |
|---|---|---|
| committer | corbinea <corbinea@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-06-29 15:55:40 +0000 |
| commit | f68638477459eef68fb69adee244f58894e1f0a4 (patch) | |
| tree | 5555b399af00f9cdb5e91ccb291269af8c5afc19 /parsing/pptactic.ml | |
| parent | 5a9ee53ca774a8878fd37812c114d82779657b16 (diff) | |
moved instantiate binding to extratactics
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5852 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/pptactic.ml')
| -rw-r--r-- | parsing/pptactic.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml index f334dd633..36440088c 100644 --- a/parsing/pptactic.ml +++ b/parsing/pptactic.ml @@ -496,12 +496,12 @@ and pr_atom1 = function | _ -> pr_clauses pr_ident cl in hov 1 (str "LetTac" ++ spc () ++ pr_name na ++ str ":=" ++ pr_constr c ++ pcl) - | TacInstantiate (n,c,ConclLocation ()) -> + (* | TacInstantiate (n,c,ConclLocation ()) -> hov 1 (str "Instantiate" ++ pr_arg int n ++ pr_arg pr_constr c ) | TacInstantiate (n,c,HypLocation (id,hloc)) -> hov 1 (str "Instantiate" ++ pr_arg int n ++ pr_arg pr_constr c ++ str "in" ++ pr_hyp_location pr_ident (id,[],(hloc,ref None))) - + *) (* Derived basic tactics *) | TacSimpleInduction (h,_) -> hov 1 (str "Induction" ++ pr_arg pr_quantified_hypothesis h) |