2016-06-08 05:49:08 +00:00
|
|
|
(*
|
|
|
|
|
* Copyright 2014, NICTA
|
|
|
|
|
*
|
|
|
|
|
* This software may be distributed and modified according to the terms of
|
|
|
|
|
* the BSD 2-Clause license. Note that NO WARRANTY is provided.
|
|
|
|
|
* See "LICENSE_BSD2.txt" for details.
|
|
|
|
|
*
|
|
|
|
|
* @TAG(NICTA_BSD)
|
2017-07-12 05:13:51 +00:00
|
|
|
*
|
2016-06-08 05:49:08 +00:00
|
|
|
*)
|
|
|
|
|
|
2016-05-16 07:06:08 +00:00
|
|
|
theory AutoLevity_Test
|
|
|
|
|
imports AutoLevity_Base AutoLevity_Hooks
|
|
|
|
|
begin
|
|
|
|
|
locale foo = fixes z assumes Z:"z" begin
|
2016-05-20 06:18:54 +00:00
|
|
|
ML \<open>Method.finish_text\<close>
|
2017-07-12 05:13:51 +00:00
|
|
|
lemma
|
2016-05-16 07:06:08 +00:00
|
|
|
X:
|
|
|
|
|
"(z \<and> z) \<and> (z \<and> z)"
|
2016-05-20 06:18:54 +00:00
|
|
|
apply (insert mp) apply (insert conjE)
|
2016-05-16 07:06:08 +00:00
|
|
|
apply (rule conjI)
|
|
|
|
|
subgoal
|
2017-07-12 05:13:51 +00:00
|
|
|
apply (rule
|
2016-05-16 07:06:08 +00:00
|
|
|
conjI)
|
|
|
|
|
by
|
|
|
|
|
(rule
|
|
|
|
|
Z)
|
|
|
|
|
(rule
|
|
|
|
|
|
|
|
|
|
Z)
|
|
|
|
|
subgoal apply (rule conjI)
|
|
|
|
|
subgoal
|
|
|
|
|
subgoal
|
2016-05-20 06:18:54 +00:00
|
|
|
subgoal apply (insert impE) by (rule
|
2016-05-16 07:06:08 +00:00
|
|
|
Z)
|
|
|
|
|
done
|
|
|
|
|
done
|
|
|
|
|
proof -
|
|
|
|
|
show "z"
|
2017-07-12 05:13:51 +00:00
|
|
|
apply
|
2016-05-16 07:06:08 +00:00
|
|
|
(rule
|
|
|
|
|
Z)
|
2017-07-12 05:13:51 +00:00
|
|
|
done
|
2016-05-16 07:06:08 +00:00
|
|
|
qed
|
|
|
|
|
done
|
|
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
interpretation foo "True" by (unfold_locales;
|
|
|
|
|
simp)
|
2017-07-12 05:13:51 +00:00
|
|
|
|
|
|
|
|
|
2016-05-16 07:06:08 +00:00
|
|
|
|
2016-06-08 05:49:08 +00:00
|
|
|
end
|
