src/HOL/ex/StringEx.thy
author paulson
Wed, 02 Aug 2006 18:30:57 +0200
changeset 20284 a17c737c82df
parent 17388 495c799df31d
permissions -rw-r--r--
deleted obsolete file

(* $Id$ *)

header {* String examples *}

theory StringEx imports Main begin

lemma "hd ''ABCD'' = CHR ''A''"
  by simp

lemma "hd ''ABCD'' \<noteq> CHR ''B''"
  by simp

lemma "''ABCD'' \<noteq> ''ABCX''"
  by simp

lemma "''ABCD'' = ''ABCD''"
  by simp

lemma "''ABCDEFGHIJKLMNOPQRSTUVWXYZ'' \<noteq>
  ''ABCDEFGHIJKLMNOPQRSTUVWXY''"
  by simp

lemma "set ''Foobar'' = {CHR ''F'', CHR ''a'', CHR ''b'', CHR ''o'', CHR ''r''}"
  by (simp add: insert_commute)

lemma "set ''Foobar'' = ?X"
  by (simp add: insert_commute)

end