diff options
| author | herbelin | 2003-11-09 15:16:46 +0000 |
|---|---|---|
| committer | herbelin | 2003-11-09 15:16:46 +0000 |
| commit | 49356f9dd870d7d42e1e4ffbfc00906832197ef1 (patch) | |
| tree | 90447c5b975cb581af7284b45cf952d0483ac2f1 /parsing/pptactic.ml | |
| parent | fc403f2f912cfceef5ff96af379b6e9d912f0c03 (diff) | |
Traduction semantique des InHyp de clause en InHypValue si local def
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4841 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/pptactic.ml')
| -rw-r--r-- | parsing/pptactic.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml index 8f0a29c64a..ea5ad236e7 100644 --- a/parsing/pptactic.ml +++ b/parsing/pptactic.ml @@ -136,8 +136,9 @@ let pr_with_names = function | ids -> spc () ++ hov 1 (str "as" ++ spc () ++ pr_case_intro_pattern ids) let pr_hyp_location pr_id = function - | InHyp id -> spc () ++ pr_id id - | InHypType id -> spc () ++ str "(Type of " ++ pr_id id ++ str ")" + | id, (InHyp,_) -> spc () ++ pr_id id + | id, (InHypTypeOnly,_) -> spc () ++ str "(Type of " ++ pr_id id ++ str ")" + | id, _ -> error "Unsupported hyp location in v7" let pr_clause pr_id = function | [] -> mt () |