src/HOL/Isar_examples/BasicLogic.thy
changeset 6892 4a905b4a39c8
parent 6881 91a2c8b8269a
child 7001 8121e11ed765
--- a/src/HOL/Isar_examples/BasicLogic.thy	Sat Jul 03 00:23:17 1999 +0200
+++ b/src/HOL/Isar_examples/BasicLogic.thy	Sat Jul 03 00:26:00 1999 +0200
@@ -70,10 +70,10 @@
 
 lemma "A & B --> B & A";
 proof;
-  assume AB: "A & B";
-  from AB; have A: A; ..;
-  from AB; have B: B; ..;
-  from B A; show "B & A"; ..;
+  assume ab: "A & B";
+  from ab; have a: A; ..;
+  from ab; have b: B; ..;
+  from b a; show "B & A"; ..;
 qed;