src/Pure/Isar/auto_bind.ML
changeset 7452 c2289eabf706
parent 7331 aee8f76fe54c
child 7474 43cedde6d52a
--- 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;