src/Tools/8bit/doc/Set2x.thy
author paulson
Wed, 30 Apr 1997 13:40:40 +0200
changeset 3086 a2de0be6e14d
parent 1826 2a2c0dbeb4ac
permissions -rw-r--r--
No longer proves mutual induction rules unless they are needed

consts
	Ball	:: "'a set ë ('a ë bool) ë bool"
syntax
	"®Ball"	:: "pttrn ë 'a set ë bool ë bool"	("(3!_Î_./ _)" 10)
translations
		"ÂxÎA. P" == "Ball A (³x. P)"
defs
     Ball_def	"Ball A P Ú Â x. xÎA çè P x"