--- a/src/HOL/ex/Acc.thy Wed May 07 13:50:52 1997 +0200
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,26 +0,0 @@
-(* Title: HOL/ex/Acc.thy
- ID: $Id$
- Author: Lawrence C Paulson, Cambridge University Computer Laboratory
- Copyright 1994 University of Cambridge
-
-Inductive definition of acc(r)
-
-See Ch. Paulin-Mohring, Inductive Definitions in the System Coq.
-Research Report 92-49, LIP, ENS Lyon. Dec 1992.
-*)
-
-Acc = WF +
-
-constdefs
- pred :: "['b, ('a * 'b)set] => 'a set" (*Set of predecessors*)
- "pred x r == {y. (y,x):r}"
-
-consts
- acc :: "('a * 'a)set => 'a set" (*Accessible part*)
-
-inductive "acc(r)"
- intrs
- pred "pred a r: Pow(acc(r)) ==> a: acc(r)"
- monos "[Pow_mono]"
-
-end