diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2009-12-04 09:42:41 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2009-12-04 09:42:41 +0000 |
commit | e83e1554aa3eb8fbe8795a4cfec1207cdd0d3ae2 (patch) | |
tree | 0d97b2965dfd82343e3e501ffb34b15ad072ee74 /etc | |
parent | a308aaef435e1cf7a2fc093cf1a96ca6bf6bf3ae (diff) |
New files
Diffstat (limited to 'etc')
-rw-r--r-- | etc/emacsbugs/visiblity-attempt.el | 14 | ||||
-rw-r--r-- | etc/isar/Trac280-subrev.thy | 15 |
2 files changed, 29 insertions, 0 deletions
diff --git a/etc/emacsbugs/visiblity-attempt.el b/etc/emacsbugs/visiblity-attempt.el new file mode 100644 index 00000000..e6cc8c07 --- /dev/null +++ b/etc/emacsbugs/visiblity-attempt.el @@ -0,0 +1,14 @@ +(defvar vis nil) +(defun toggle-invis () + (interactive) + (if vis (add-to-invisibility-spec 'myvis . t)) + (remove-from-invisibility-spec '(myvis . t))) + (setq vis (not vis))) +(overlay-put (make-overlay (point-min) (point)) 'invisible 'myvis)(defvar vis nil) +(defun toggle-invis () + (interactive) + (if vis (add-to-invisibility-spec '(myvis . t)) + (remove-from-invisibility-spec '(myvis . t))) + (setq vis (not vis))) +(overlay-put (make-overlay (point-min) (point)) 'invisible 'myvis) + diff --git a/etc/isar/Trac280-subrev.thy b/etc/isar/Trac280-subrev.thy new file mode 100644 index 00000000..2c5984c1 --- /dev/null +++ b/etc/isar/Trac280-subrev.thy @@ -0,0 +1,15 @@ +theory Test imports Main begin + +lemma + assumes asm: "P\<^isub>i \<and> Q\<^isub>i" + shows "Q\<^isub>i \<and> P\<^isub>i" +proof - + from asm obtain "P\<^isub>i" and "Q\<^isub>i" + by blast + then show "Q\<^isub>i \<and> P\<^isub>i" + by simp +qed + +end + + |