diff options
| author | corbinea | 2004-06-28 14:27:59 +0000 |
|---|---|---|
| committer | corbinea | 2004-06-28 14:27:59 +0000 |
| commit | 33a06cfbb9f035000379f7d994aa6ab10e7ffb66 (patch) | |
| tree | 544cebe28029a65a2e7a78eb6ce4254707455064 /parsing/pptactic.ml | |
| parent | ecead0d68bc8b1359617e274a7aa8d8bee3aeb77 (diff) | |
more evar stuff
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5843 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/pptactic.ml')
| -rw-r--r-- | parsing/pptactic.ml | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml index cd31b7f264..f334dd6338 100644 --- a/parsing/pptactic.ml +++ b/parsing/pptactic.ml @@ -154,7 +154,6 @@ let pr_clause pr_id = function | [] -> mt () | l -> spc () ++ hov 0 (str "in" ++ prlist (pr_hyp_location pr_id) l) - let pr_clauses pr_id cls = match cls with { onhyps = Some l; onconcl = false } -> @@ -497,9 +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,cls) -> - hov 1 (str "Instantiate" ++ pr_arg int n ++ pr_arg pr_constr c ++ - pr_clauses pr_ident cls) + | 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) |