diff options
author | Makarius Wenzel <makarius@sketis.net> | 1999-09-22 15:04:35 +0000 |
---|---|---|
committer | Makarius Wenzel <makarius@sketis.net> | 1999-09-22 15:04:35 +0000 |
commit | f7effc5e138ecedac5074a31d17b498d37d51f7b (patch) | |
tree | db50d649ad27ec8f1a3cb610292d48e837b5d479 | |
parent | 94b2d0305ad6caed4893e6da0ed83b5be8061fb4 (diff) |
tuned example according to Isabelle style-guide;
-rw-r--r-- | isa/Example.ML | 13 | ||||
-rw-r--r-- | isa/Example.thy (renamed from isa/example.thy) | 2 | ||||
-rw-r--r-- | isa/example.ML | 14 |
3 files changed, 14 insertions, 15 deletions
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 index 37c21578..84a71f31 100644 --- a/isa/example.thy +++ b/isa/Example.thy @@ -7,4 +7,4 @@ *) -example = Main +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"; |