38 lines
682 B
Plaintext
38 lines
682 B
Plaintext
(*
|
|
* Copyright 2020, Data61, CSIRO (ABN 41 687 119 230)
|
|
*
|
|
* SPDX-License-Identifier: BSD-2-Clause
|
|
*)
|
|
|
|
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
|
|
|