diff options
| author | herbelin | 2002-10-12 14:32:51 +0000 |
|---|---|---|
| committer | herbelin | 2002-10-12 14:32:51 +0000 |
| commit | 455d9130fb9c55315173e2a32b9bc334e95bba16 (patch) | |
| tree | b491888dd1b9f86e681d2766653a3dcaad244ba1 /parsing/prettyp.ml | |
| parent | 72fb50ce5d3e802aadff66495a0e90065f2fab42 (diff) | |
Restriction sur la forme des Syntactic Definition et re-localisation en fonction de l'endroit d'utilisation
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3117 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/prettyp.ml')
| -rw-r--r-- | parsing/prettyp.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/parsing/prettyp.ml b/parsing/prettyp.ml index f6b4b2c607..8a241aced3 100644 --- a/parsing/prettyp.ml +++ b/parsing/prettyp.ml @@ -295,7 +295,7 @@ let print_inductive sp = (print_mutual sp) let print_syntactic_def sep kn = let l = label kn in - let c = Syntax_def.search_syntactic_definition kn in + let c = Syntax_def.search_syntactic_definition dummy_loc kn in (str" Syntactic Definition " ++ pr_lab l ++ str sep ++ pr_rawterm c ++ fnl ()) (*let print_module with_values kn = str "Module " ++ pr_id (id_of_label (label kn)) ++ fnl () ++ fnl () @@ -517,7 +517,7 @@ let fprint_var name typ = (str ("*** [" ^ name ^ " :") ++ fprtype typ ++ str "]" ++ fnl ()) let fprint_judge {uj_val=trm;uj_type=typ} = - (fprterm trm ++ str" : " ++ fprterm (body_of_type typ)) + (fprterm trm ++ str" : " ++ fprterm typ) let unfold_head_fconst = let rec unfrec k = match kind_of_term k with |