From f7effc5e138ecedac5074a31d17b498d37d51f7b Mon Sep 17 00:00:00 2001
From: Makarius Wenzel
Date: Wed, 22 Sep 1999 15:04:35 +0000
Subject: tuned example according to Isabelle style-guide;

---
 isa/Example.ML  | 13 +++++++++++++
 isa/Example.thy | 10 ++++++++++
 isa/example.ML  | 14 --------------
 isa/example.thy | 10 ----------
 4 files changed, 23 insertions(+), 24 deletions(-)
 create mode 100644 isa/Example.ML
 create mode 100644 isa/Example.thy
 delete mode 100644 isa/example.ML
 delete mode 100644 isa/example.thy

diff --git a/isa/Example.ML b/isa/Example.ML
new file mode 100644
index 00000000..929c7ad8
--- /dev/null
+++ b/isa/Example.ML
@@ -0,0 +1,13 @@
+(*
+    Example proof script for Isabelle Proof General.
+
+    $Id$
+*)    
+
+Goal "A & B --> B & A";
+by (rtac impI 1);
+by (etac conjE 1);
+by (rtac conjI 1);
+by (assume_tac 1);
+by (assume_tac 1);
+qed "and_comms";
diff --git a/isa/Example.thy b/isa/Example.thy
new file mode 100644
index 00000000..84a71f31
--- /dev/null
+++ b/isa/Example.thy
@@ -0,0 +1,10 @@
+(*
+    Example theory file for Isabelle  
+
+    David Aspinall <da@dcs.ed.ac.uk>
+
+    $Id$
+
+*)    
+
+Example = Main
diff --git a/isa/example.ML b/isa/example.ML
deleted file mode 100644
index 41ea20be..00000000
--- a/isa/example.ML
+++ /dev/null
@@ -1,14 +0,0 @@
-(*
-    Example proof script for Isabelle Proof General.
-
-    $Id$
-*)    
-
-Goal "(A & B)-->(B & A)";
-br impI 1;
-br conjI 1;
-be conjE 1;
-ba 1;
-be conjE 1;
-ba 1;
-qed "and_comms";
diff --git a/isa/example.thy b/isa/example.thy
deleted file mode 100644
index 37c21578..00000000
--- a/isa/example.thy
+++ /dev/null
@@ -1,10 +0,0 @@
-(*
-    Example theory file for Isabelle  
-
-    David Aspinall <da@dcs.ed.ac.uk>
-
-    $Id$
-
-*)    
-
-example = Main
-- 
cgit v1.2.3