src/Pure/install_pp.ML
author nipkow
Fri Mar 14 10:35:30 1997 +0100 (1997-03-14)
changeset 2792 6c17c5ec3d8b
parent 1528 608dd813b437
child 3509 db03a42120bf
permissions -rw-r--r--
Avoid eta-contraction in the simplifier.
Instead the net needs to eta-contract the object.
Also added a special function loose_bvar1(i,t) in term.ML.
wenzelm@19
     1
(*  Title:      Pure/install_pp.ML
clasohm@0
     2
    ID:         $Id$
clasohm@0
     3
wenzelm@619
     4
Set up automatic toplevel pretty printing.
clasohm@0
     5
*)
clasohm@0
     6
wenzelm@619
     7
fun init_pps () =
wenzelm@619
     8
  use_string
paulson@1528
     9
   ["install_pp (make_pp [\"Theory\", \"theory\"] pprint_theory);",
paulson@1528
    10
    "install_pp (make_pp [\"Thm\", \"thm\"] pprint_thm);",
wenzelm@619
    11
    "install_pp (make_pp [\"Thm\", \"cterm\"] pprint_cterm);",
wenzelm@619
    12
    "install_pp (make_pp [\"Thm\", \"ctyp\"] pprint_ctyp);",
wenzelm@619
    13
    "install_pp (make_pp [\"Sign\", \"sg\"] Sign.pprint_sg);",
wenzelm@619
    14
    "install_pp (make_pp [\"Syntax\", \"ast\"] Syntax.pprint_ast);",
wenzelm@619
    15
    "install_pp (make_pp [\"typ\"] Syntax.simple_pprint_typ);"];
clasohm@0
    16
wenzelm@619
    17
init_pps ();
wenzelm@254
    18