src/ZF/ex/misc.ML
changeset 5431 d50c2783f941
parent 5325 f7a5e06adea1
child 8266 4bc79ed1233b
--- a/src/ZF/ex/misc.ML	Mon Sep 07 10:43:31 1998 +0200
+++ b/src/ZF/ex/misc.ML	Mon Sep 07 10:45:45 1998 +0200
@@ -9,6 +9,11 @@
 
 writeln"ZF/ex/misc";
 
+(*trivial example of term synthesis: apparently hard for some provers!*)
+Goal "a ~= b ==> a:?X & b ~: ?X";
+by (Blast_tac 1);
+result();
+
 (*Nice Blast_tac benchmark.  Proved in 0.3s; old tactics can't manage it!*)
 Goal "ALL x:S. ALL y:S. x<=y ==> EX z. S <= {z}";
 by (Blast_tac 1);