diff options
| author | herbelin | 2000-06-01 20:44:16 +0000 |
|---|---|---|
| committer | herbelin | 2000-06-01 20:44:16 +0000 |
| commit | 5139432d6087f49ef549d8375a1a61db56f86dd1 (patch) | |
| tree | 5d49a28094c8ae88b21737946f93174318a87cb3 /dev | |
| parent | e563ed5bf7681b910e36d2dc4ea99406da940cec (diff) | |
Mise en place d'un choix constr/typed_type en remplacement de certains Cast
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@484 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/top_printers.ml | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 35cd38acbd..a67f15e8eb 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -38,13 +38,10 @@ let prvar ((id,a)) = pP [< 'sTR"#" ; 'sTR(string_of_id id) ; 'sTR":" ; term0 (gLOB nil_sign) a >] -let genprj f j = [< (f (gLOB nil_sign)j.uj_val); - 'sTR " : "; - (f (gLOB nil_sign)j.uj_type); - 'sTR " : "; - (f (gLOB nil_sign)j.uj_kind)>] +let genprj f j = + let (c,t) = Termast.with_casts f j in [< c; 'sTR " : "; t >] -let prj j = pP (genprj term0 j) +let prj j = pP (genprj prjudge j) let prsp sp = pP[< 'sTR(string_of_path sp) >] |