src/HOL/SPARK/Manual/Proc1.thy
author berghofe
Thu, 22 Sep 2011 16:50:23 +0200
changeset 45044 2fae15f8984d
child 56798 939e88e79724
permissions -rw-r--r--
Added documentation for HOL-SPARK
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
45044
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
     1
theory Proc1
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
     2
imports SPARK
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
     3
begin
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
     4
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
     5
spark_open "loop_invariant/proc1.siv"
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
     6
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
     7
spark_vc procedure_proc1_5
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
     8
  by (simp add: ring_distribs pull_mods)
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
     9
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    10
spark_vc procedure_proc1_8
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    11
  by (simp add: ring_distribs pull_mods)
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    12
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    13
spark_end
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    14
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    15
lemma pow_2_32_simp: "4294967296 = (2::int)^32"
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    16
  by simp
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    17
2fae15f8984d Added documentation for HOL-SPARK
berghofe
parents:
diff changeset
    18
end