Pure theory setup.

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/Pure/pure_setup.ML	Tue Jul 17 13:19:47 2007 +0200
@@ -0,0 +1,22 @@
+(*  Title:      Pure/pure_setup.ML
+    ID:         $Id$
+    Author:     Makarius
+
+Pure theory setup.
+*)
+
+use_thy "Pure";
+structure Pure = struct val thy = theory "Pure" end;
+
+Context.add_setup
+ (Sign.del_modesyntax Syntax.default_mode Syntax.appl_syntax #>
+  Sign.add_syntax Syntax.applC_syntax);
+use_thy "CPure";
+structure CPure = struct val thy = theory "CPure" end;
+
+use "install_pp.ML";
+val use = ThyInfo.use;
+val cd = File.cd o Path.explode;
+ml_prompts "ML> " "ML# ";
+
+proofs := 0;