src/FOL/fologic.ML
changeset 44241 7943b69f0188
parent 41310 65631ca437c9
child 69593 3dda49e08b9d
--- a/src/FOL/fologic.ML	Wed Aug 17 16:46:58 2011 +0200
+++ b/src/FOL/fologic.ML	Wed Aug 17 18:05:31 2011 +0200
@@ -76,10 +76,10 @@
   | dest_eq t = raise TERM ("dest_eq", [t])
 
 fun all_const T = Const (@{const_name All}, [T --> oT] ---> oT);
-fun mk_all (Free(x,T),P) = all_const T $ (absfree (x,T,P));
+fun mk_all (Free (x, T), P) = all_const T $ absfree (x, T) P;
 
 fun exists_const T = Const (@{const_name Ex}, [T --> oT] ---> oT);
-fun mk_exists (Free(x,T),P) = exists_const T $ (absfree (x,T,P));
+fun mk_exists (Free (x, T), P) = exists_const T $ absfree (x, T) P;
 
 
 (* binary oprations and relations *)