"this";
authorwenzelm
Fri, 03 Sep 1999 14:52:19 +0200
changeset 7452 c2289eabf706
parent 7451 d643b3c4996a
child 7453 18df56953792
"this";
src/Pure/Isar/auto_bind.ML
--- a/src/Pure/Isar/auto_bind.ML	Fri Sep 03 14:52:01 1999 +0200
+++ b/src/Pure/Isar/auto_bind.ML	Fri Sep 03 14:52:19 1999 +0200
@@ -38,8 +38,9 @@
   | _ => []);
 
 fun facts _ [] = []
-  | facts name [prop] = dddot_bind prop
-  | facts name props =  dddot_bind (Library.last_elem props);
+  | facts name props =
+      let val prop = Library.last_elem props
+      in dddot_bind prop @ statement_binds ("this", prop) end;
       
 
 end;