2014-07-14 19:32:44 +00:00
|
|
|
(*
|
2020-03-09 06:18:30 +00:00
|
|
|
* Copyright 2020, Data61, CSIRO (ABN 41 687 119 230)
|
2014-07-14 19:32:44 +00:00
|
|
|
*
|
2020-03-09 06:18:30 +00:00
|
|
|
* SPDX-License-Identifier: BSD-2-Clause
|
2014-07-14 19:32:44 +00:00
|
|
|
*)
|
|
|
|
|
|
|
|
theory BenchBasics
|
|
|
|
imports Benchmark
|
|
|
|
begin
|
|
|
|
|
|
|
|
lemma five_less_than_ten: "(5 :: nat) < 10"
|
|
|
|
by simp
|
|
|
|
|
|
|
|
lemma p_or_not_p: "p \<or> \<not> p"
|
|
|
|
by blast
|
|
|
|
|
|
|
|
lemma twelve_equals_six_plus_six: "(12 = (6 + 6 :: nat))"
|
|
|
|
by simp
|
|
|
|
|
|
|
|
lemma twelve_equals_six_plus_six': "(12 = (6 + 6 :: nat)) \<equiv> True"
|
|
|
|
by simp
|
|
|
|
|
|
|
|
lemma true_conj1: "True \<and> P \<equiv> P"
|
|
|
|
by simp
|
|
|
|
|
|
|
|
lemma disj_flip: "(a \<or> b) = (b \<or> a)"
|
|
|
|
by (rule disj_commute)
|
|
|
|
|
|
|
|
lemma disj_flip': "a \<or> b \<equiv> b \<or> a"
|
|
|
|
apply (rule eq_reflection)
|
|
|
|
apply (rule disj_commute)
|
|
|
|
done
|
|
|
|
|
|
|
|
ML_file "bench_basics.ML"
|
|
|
|
|
|
|
|
end
|
|
|
|
|