doc-src/TutorialI/ToyList2/ToyList2
author boehmes
Mon, 08 Nov 2010 12:13:44 +0100
changeset 40424 7550b2cba1cb
parent 10171 59d6633835fa
permissions -rw-r--r--
better modularization: moved SMT configuration options and diagnostics as well as SMT failure and exception into separate structures (both of which are loaded first and consequently are available to other SMT structures)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
9541
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 9458
diff changeset
     1
lemma app_Nil2 [simp]: "xs @ [] = xs"
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 9458
diff changeset
     2
apply(induct_tac xs)
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 9458
diff changeset
     3
apply(auto)
10171
59d6633835fa *** empty log message ***
nipkow
parents: 9541
diff changeset
     4
done
8751
9ed0548177fb *** empty log message ***
nipkow
parents:
diff changeset
     5
9541
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 9458
diff changeset
     6
lemma app_assoc [simp]: "(xs @ ys) @ zs = xs @ (ys @ zs)"
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 9458
diff changeset
     7
apply(induct_tac xs)
10171
59d6633835fa *** empty log message ***
nipkow
parents: 9541
diff changeset
     8
apply(auto)
59d6633835fa *** empty log message ***
nipkow
parents: 9541
diff changeset
     9
done
8751
9ed0548177fb *** empty log message ***
nipkow
parents:
diff changeset
    10
9541
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 9458
diff changeset
    11
lemma rev_app [simp]: "rev(xs @ ys) = (rev ys) @ (rev xs)"
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 9458
diff changeset
    12
apply(induct_tac xs)
10171
59d6633835fa *** empty log message ***
nipkow
parents: 9541
diff changeset
    13
apply(auto)
59d6633835fa *** empty log message ***
nipkow
parents: 9541
diff changeset
    14
done
8751
9ed0548177fb *** empty log message ***
nipkow
parents:
diff changeset
    15
9541
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 9458
diff changeset
    16
theorem rev_rev [simp]: "rev(rev xs) = xs"
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 9458
diff changeset
    17
apply(induct_tac xs)
10171
59d6633835fa *** empty log message ***
nipkow
parents: 9541
diff changeset
    18
apply(auto)
59d6633835fa *** empty log message ***
nipkow
parents: 9541
diff changeset
    19
done
8751
9ed0548177fb *** empty log message ***
nipkow
parents:
diff changeset
    20
9541
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 9458
diff changeset
    21
end