src/HOL/Hoare/Examples.thy
author nipkow
Wed, 22 Nov 1995 18:48:56 +0100
changeset 1363 7bdc4699ef4d
parent 1335 5e1c0540f285
child 1374 5e407f2a3323
permissions -rw-r--r--
Added List_Examples
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1335
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
     1
(*  Title: 	HOL/Hoare/Examples.thy
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
     2
    ID:         $Id$
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
     3
    Author: 	Norbert Galm
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
     4
    Copyright   1995 TUM
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
     5
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
     6
Various arithmetic examples.
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
     7
*)
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
     8
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
     9
Examples = Hoare + Arith2 +
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
    10
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
    11
syntax
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
    12
  "@1"	:: "nat"	("1")
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
    13
  "@2"	:: "nat"	("2")
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
    14
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
    15
translations
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
    16
  "1" == "Suc(0)"
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
    17
  "2" == "Suc(Suc(0))"
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
    18
end
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
    19
5e1c0540f285 New directory.
nipkow
parents:
diff changeset
    20