src/FOLP/folp.thy

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/FOLP/folp.thy	Thu Sep 16 12:20:38 1993 +0200
@@ -0,0 +1,6 @@
+FOLP = IFOLP +
+consts
+  cla :: "[p=>p]=>p"
+rules
+  classical "(!!x.x:~P ==> f(x):P) ==> cla(f):P"
+end