diff options
author | 2004-06-29 15:55:40 +0000 | |
---|---|---|
committer | 2004-06-29 15:55:40 +0000 | |
commit | f68638477459eef68fb69adee244f58894e1f0a4 (patch) | |
tree | 5555b399af00f9cdb5e91ccb291269af8c5afc19 /translate | |
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 'translate')
-rw-r--r-- | translate/pptacticnew.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/translate/pptacticnew.ml b/translate/pptacticnew.ml index 23092a733..8855dda46 100644 --- a/translate/pptacticnew.ml +++ b/translate/pptacticnew.ml @@ -539,7 +539,7 @@ and pr_atom1 env = function hov 1 (str"(" ++ pr_id id ++ str " :=" ++ pr_lconstrarg env c ++ str")") ++ pr_clauses pr_ident cl) - | TacInstantiate (n,c,ConclLocation ()) -> +(* | TacInstantiate (n,c,ConclLocation ()) -> hov 1 (str "instantiate" ++ spc() ++ hov 1 (str"(" ++ pr_arg int n ++ str" :=" ++ pr_lconstrarg env c ++ str ")" )) @@ -548,7 +548,7 @@ and pr_atom1 env = function hov 1 (str"(" ++ pr_arg int n ++ str" :=" ++ pr_lconstrarg env c ++ str ")" ) ++ str "in" ++ pr_hyp_location pr_ident (id,[],(hloc,ref None))) - +*) (* Derived basic tactics *) | TacSimpleInduction (h,l) -> if List.exists (fun (pp,_) -> !pp) !l then |