src/HOL/WF_Rel.ML
changeset 4751 6fbd9838ccae
parent 4749 35b47e36e615
child 5069 3ea049f7979d
--- a/src/HOL/WF_Rel.ML	Tue Mar 24 15:46:34 1998 +0100
+++ b/src/HOL/WF_Rel.ML	Tue Mar 24 15:49:32 1998 +0100
@@ -118,7 +118,7 @@
 qed_spec_mp "finite_acyclic_wf";
 
 qed_goal "finite_acyclic_wf_converse" thy 
- "X. finite r; acyclic r  wf (r^-1)" (K [
+ "!!X. [|finite r; acyclic r|] ==> wf (r^-1)" (K [
 	etac (finite_converse RS iffD2 RS finite_acyclic_wf) 1,
 	etac (acyclic_converse RS iffD2) 1]);