Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Library/rewrite.ML
changeset 60108 d7fe3e0aca85
parent 60088 0a064330a885
child 60109 22389d4cdd6b 
--- a/src/HOL/Library/rewrite.ML	Thu Apr 16 15:55:55 2015 +0200
+++ b/src/HOL/Library/rewrite.ML	Fri Apr 17 10:49:57 2015 +0200
@@ -406,6 +406,8 @@
 
         fun append_default [] = [Concl, In]
           | append_default (ps as Term _ :: _) = Concl :: In :: ps
+          | append_default [For x, In] = [For x, Concl, In]
+          | append_default (For x :: (ps as In :: Term _:: _)) = For x :: Concl :: ps
           | append_default ps = ps
 
       in Scan.repeat sep_atom >> (flat #> rev #> append_default) end
isabelle