diff -r ccb55f3121d1 -r e80db1660614 src/HOL/Modelcheck/MuCalculus.thy
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/HOL/Modelcheck/MuCalculus.thy	Fri May 16 15:29:41 1997 +0200
@@ -0,0 +1,28 @@
+(*  Title:      HOL/Modelcheck/MuCalculus.thy
+    ID:         $Id$
+    Author:     Olaf Mueller, Jan Philipps, Robert Sandner
+    Copyright   1997  TU Muenchen
+*)
+
+MuCalculus = HOL + Inductive +
+
+types
+ 'a pred = "'a=>bool" 
+
+consts
+
+  Charfun :: "'a set => 'a pred"
+  mu     :: "('a pred => 'a pred) => 'a pred"  (binder "Mu " 10)
+  nu     :: "('a pred => 'a pred) => 'a pred"  (binder "Nu " 10)
+  monoP  :: "('a pred => 'a pred) => bool"
+
+defs 
+
+Charfun_def      "Charfun     == (% A.% x.x:A)"
+monoP_def        "monoP f     == mono(Collect o f o Charfun)"
+mu_def           "mu f        == Charfun(lfp(Collect o f o Charfun))"
+nu_def           "nu f        == Charfun(gfp(Collect o f o Charfun))"
+
+end
+ 
+