--- a/src/HOL/IMP/Compiler.thy Fri Sep 27 17:20:02 2013 +0200
+++ b/src/HOL/IMP/Compiler.thy Fri Sep 27 17:57:30 2013 +0200
@@ -32,6 +32,14 @@
(xs @ ys) !! i = (if i < size xs then xs !! i else ys !! (i - size xs))"
by (induction xs arbitrary: i) (auto simp: algebra_simps)
+text{* We hide coercion @{const int} applied to @{const length}: *}
+
+abbreviation (output)
+ "isize xs == int (length xs)"
+
+notation isize ("size")
+
+
subsection "Instructions and Stack Machine"
text_raw{*\snip{instrdef}{0}{1}{% *}