From e03d1840a8e6eec927e7fbe006d59ab21b8d818f Mon Sep 17 00:00:00 2001 From: herbelin Date: Wed, 22 Oct 2008 11:21:45 +0000 Subject: Affichage des notations récursives: - Prise en compte des notations applicatives - Remplacement du codage des arguments liste des notations récursives sous forme de terme par une représentation directe (permet notamment de résoudre un problème de stack overflow de la fonction d'affichage) + Correction bug affichage Lemma dans ppvernac.ml + Divers util.ml MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11489 85f007b7-540e-0410-9357-904b9bb8a0f7 --- interp/syntax_def.mli | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'interp/syntax_def.mli') diff --git a/interp/syntax_def.mli b/interp/syntax_def.mli index bbbea07f3..1599e844b 100644 --- a/interp/syntax_def.mli +++ b/interp/syntax_def.mli @@ -18,10 +18,12 @@ open Libnames (* Syntactic definitions. *) -val declare_syntactic_definition : bool -> identifier -> bool -> interpretation - -> unit +type syndef_interpretation = (identifier * subscopes) list * aconstr -val search_syntactic_definition : loc -> kernel_name -> interpretation +val declare_syntactic_definition : bool -> identifier -> bool -> + syndef_interpretation -> unit + +val search_syntactic_definition : loc -> kernel_name -> syndef_interpretation (* [locate_global_with_alias] locates global reference possibly following a notation if this notation has a role of aliasing; raise Not_found -- cgit v1.2.3