changeset 52365 | 95186e6e4bf4 |
parent 51717 | 9e7d1c139569 |
child 52435 | 6646bb548c6b |
--- a/src/HOL/String.thy Mon Jun 10 20:43:17 2013 +0200 +++ b/src/HOL/String.thy Tue Jun 11 21:07:53 2013 +0200 @@ -382,6 +382,11 @@ end +lemma [code nbe]: + fixes s :: "String.literal" + shows "HOL.equal s s \<longleftrightarrow> True" + by (simp add: equal) + lemma STR_inject' [simp]: "STR xs = STR ys \<longleftrightarrow> xs = ys" by (simp add: STR_inject)