diff options
| author | sacerdot | 2004-12-07 17:41:10 +0000 |
|---|---|---|
| committer | sacerdot | 2004-12-07 17:41:10 +0000 |
| commit | 22cb4d34d7f67eb98c737b076a4ecbbf800bdc55 (patch) | |
| tree | 9a238c0c4919245db39f805056754b1798e94357 /parsing/printer.ml | |
| parent | e2363aafc80d9a8efaf9c13bbf9e4e5bb0f4eb10 (diff) | |
The type Pattern.constr_label was isomorphic to Libnames.global_reference.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6427 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/printer.ml')
| -rw-r--r-- | parsing/printer.ml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/parsing/printer.ml b/parsing/printer.ml index 757b61aa1d..dcaac5697b 100644 --- a/parsing/printer.ml +++ b/parsing/printer.ml @@ -142,11 +142,6 @@ let pr_rawterm t = else Ppconstrnew.pr_lconstr (Constrextern.extern_rawconstr Idset.empty t) open Pattern -let pr_ref_label = function (* On triche sur le contexte *) - | ConstNode sp -> pr_constant (Global.env()) sp - | IndNode sp -> pr_inductive (Global.env()) sp - | CstrNode sp -> pr_constructor (Global.env()) sp - | VarNode id -> pr_id id let pr_pattern t = pr_pattern_env (Global.env()) empty_names_context t |