From 22cb4d34d7f67eb98c737b076a4ecbbf800bdc55 Mon Sep 17 00:00:00 2001 From: sacerdot Date: Tue, 7 Dec 2004 17:41:10 +0000 Subject: 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 --- parsing/printer.ml | 5 ----- parsing/printer.mli | 1 - 2 files changed, 6 deletions(-) (limited to 'parsing') diff --git a/parsing/printer.ml b/parsing/printer.ml index 757b61aa1..dcaac5697 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 diff --git a/parsing/printer.mli b/parsing/printer.mli index 04c61ed05..22b5daa17 100644 --- a/parsing/printer.mli +++ b/parsing/printer.mli @@ -45,7 +45,6 @@ val pr_existential : env -> existential -> std_ppcmds val pr_constructor : env -> constructor -> std_ppcmds val pr_inductive : env -> inductive -> std_ppcmds val pr_global : global_reference -> std_ppcmds -val pr_ref_label : constr_label -> std_ppcmds val pr_pattern : constr_pattern -> std_ppcmds val pr_pattern_env : env -> names_context -> constr_pattern -> std_ppcmds -- cgit v1.2.3