Updated indentation.
This commit is contained in:
parent
d28d814621
commit
23edf34523
|
@ -5,8 +5,9 @@
|
|||
* This file is part of HOL-TestGen.
|
||||
*
|
||||
* Copyright (c) 2005-2012 ETH Zurich, Switzerland
|
||||
* 2008-2014 Achim D. Brucker, Germany
|
||||
* 2009-2014 Université Paris-Sud, France
|
||||
* 2008-2015 Achim D. Brucker, Germany
|
||||
* 2009-2017 Université Paris-Sud, France
|
||||
* 2015-2017 The University of Sheffield, UK
|
||||
*
|
||||
* All rights reserved.
|
||||
*
|
||||
|
@ -38,7 +39,6 @@
|
|||
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
||||
* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
******************************************************************************)
|
||||
(* $Id: NormalisationTestSpecification.thy 10879 2014-10-26 11:35:31Z brucker $ *)
|
||||
|
||||
section {* Policy Transformation for Testing *}
|
||||
theory
|
||||
|
@ -90,7 +90,8 @@ lemma distrPUTL2:
|
|||
"x \<in> dom P \<Longrightarrow> (list2policy PL) x = P x \<Longrightarrow> disjDom PL \<Longrightarrow> (PUT x = P x) \<Longrightarrow> PUTList PUT x PL "
|
||||
apply (induct PL)
|
||||
apply (simp_all add: list2policy_def)
|
||||
apply (auto)
|
||||
apply (auto)[1]
|
||||
subgoal for a PL p
|
||||
apply (case_tac "x \<in> dom a")
|
||||
apply (case_tac "list2policy PL x = P x")
|
||||
apply (simp add: list2policy_def)
|
||||
|
@ -98,6 +99,7 @@ lemma distrPUTL2:
|
|||
apply (rule_tac a = a in PUTList_DomMT)
|
||||
apply (simp_all add: list2policy_def dom_def)
|
||||
done
|
||||
done
|
||||
|
||||
lemma distrPUTL:
|
||||
"\<lbrakk>x \<in> dom P; (list2policy PL) x = P x; disjDom PL\<rbrakk> \<Longrightarrow> (PUT x = P x) = PUTList PUT x PL "
|
||||
|
|
|
@ -6,8 +6,9 @@
|
|||
* This file is part of HOL-TestGen.
|
||||
*
|
||||
* Copyright (c) 2005-2012 ETH Zurich, Switzerland
|
||||
* 2008-2014 Achim D. Brucker, Germany
|
||||
* 2009-2014 Université Paris-Sud, France
|
||||
* 2008-2015 Achim D. Brucker, Germany
|
||||
* 2009-2017 Université Paris-Sud, France
|
||||
* 2015-2017 The University of Sheffield, UK
|
||||
*
|
||||
* All rights reserved.
|
||||
*
|
||||
|
|
Loading…
Reference in New Issue