diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-12-22 00:07:44 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-12-22 00:07:44 +0000 |
| commit | 8f0ba52df06a18984e572e679de590038a155db4 (patch) | |
| tree | 1a26989eec47d2571dde6cfdd5212c08247eb896 /parsing | |
| parent | dd6bbaa0a2646515747d900a0f20cda3a1bf1a49 (diff) | |
Mecanisme d'affichage des types (notamment les conclusions des buts) typiquement pour eviter les coercions en tete
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6490 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/printer.ml | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/parsing/printer.ml b/parsing/printer.ml index 84734351f..8e8f0952c 100644 --- a/parsing/printer.ml +++ b/parsing/printer.ml @@ -105,6 +105,9 @@ let gentermpr gt = let gentermpr_core at_top env t = if !Options.v7 then gentermpr (Termast.ast_of_constr at_top env t) else Ppconstrnew.pr_lconstr (Constrextern.extern_constr at_top env t) +let gentypepr_core at_top env t = + if !Options.v7 then gentermpr (Termast.ast_of_constr at_top env t) + else Ppconstrnew.pr_lconstr (Constrextern.extern_type at_top env t) let pr_cases_pattern t = if !Options.v7 then gentermpr (Termast.ast_of_cases_pattern t) else Ppconstrnew.pr_cases_pattern @@ -119,7 +122,8 @@ let pr_pattern_env tenv env t = let prterm_env_at_top env = gentermpr_core true env let prterm_env env = gentermpr_core false env -let prtype_env env typ = prterm_env env typ +let prtype_env_at_top env = gentypepr_core true env +let prtype_env env = gentypepr_core false env let prjudge_env env j = (prterm_env env j.uj_val, prterm_env env j.uj_type) @@ -260,7 +264,7 @@ let pr_context_of env = match Options.print_hyps_limit () with let pr_goal g = let env = evar_env g in let penv = pr_context_of env in - let pc = prterm_env_at_top env g.evar_concl in + let pc = prtype_env_at_top env g.evar_concl in str" " ++ hv 0 (penv ++ fnl () ++ str (emacs_str (String.make 1 (Char.chr 253))) ++ str "============================" ++ fnl () ++ @@ -269,7 +273,7 @@ let pr_goal g = (* display the conclusion of a goal *) let pr_concl n g = let env = evar_env g in - let pc = prterm_env_at_top env g.evar_concl in + let pc = prtype_env_at_top env g.evar_concl in str (emacs_str (String.make 1 (Char.chr 253))) ++ str "subgoal " ++ int n ++ str " is:" ++ cut () ++ str" " ++ pc |