src/Pure/install_pp.ML
author lcp
Thu, 12 Jan 1995 03:03:07 +0100
changeset 855 4c8d0ece1f95
parent 619 a0342b27b38e
child 1528 608dd813b437
permissions -rw-r--r--
Added singleton_iff, Sigma_empty1, Sigma_empty2, Collect_simps and UnInt_simps to ZF_ss. Added consI1 to ZF_typechecks.

(*  Title:      Pure/install_pp.ML
    ID:         $Id$

Set up automatic toplevel pretty printing.
*)

fun init_pps () =
  use_string
   ["install_pp (make_pp [\"Thm\", \"thm\"] pprint_thm);",
    "install_pp (make_pp [\"Thm\", \"theory\"] pprint_theory);",
    "install_pp (make_pp [\"Thm\", \"cterm\"] pprint_cterm);",
    "install_pp (make_pp [\"Thm\", \"ctyp\"] pprint_ctyp);",
    "install_pp (make_pp [\"Sign\", \"sg\"] Sign.pprint_sg);",
    "install_pp (make_pp [\"Syntax\", \"ast\"] Syntax.pprint_ast);",
    "install_pp (make_pp [\"typ\"] Syntax.simple_pprint_typ);"];

init_pps ();