theory PolicyExample

lemma subjectReads_NTFN1:
  "subjectReads example_auth_graph (partition_label NTFN1) = {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}" apply(rule equalityI) apply (rule subsetI) apply (erule subjectReads.induct) apply (fastforce simp: subjectReads_NTFN1'[simplified])+ done

(* Proof state trace *)
proof (prove)
goal (1 subgoal):
 1. subjectReads example_auth_graph (partition_label NTFN1) = {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2} proof (prove)
goal (2 subgoals):
 1. subjectReads example_auth_graph (partition_label NTFN1) \<subseteq> {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}
 2. {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2} \<subseteq> subjectReads example_auth_graph (partition_label NTFN1) proof (prove)
goal (2 subgoals):
 1. \<And>x. x \<in> subjectReads example_auth_graph (partition_label NTFN1) \<Longrightarrow> x \<in> {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}
 2. {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2} \<subseteq> subjectReads example_auth_graph (partition_label NTFN1) proof (prove)
goal (14 subgoals):
 1. \<And>x l'. (partition_label NTFN1, Read, l') \<in> example_auth_graph \<Longrightarrow> l' \<in> {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}
 2. \<And>x. partition_label NTFN1 \<in> {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}
 3. \<And>x auth ep. \<lbrakk>(partition_label NTFN1, auth, ep) \<in> example_auth_graph; auth \<in> {SyncSend, Receive}\<rbrakk> \<Longrightarrow> ep \<in> {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}
 4. \<And>x a auth' ep t auth. \<lbrakk>(a, auth', ep) \<in> example_auth_graph; auth' \<in> {Notify, SyncSend, Reset}; (t, auth, ep) \<in> example_auth_graph; auth \<in> {SyncSend, Receive}; t \<in> subjectReads example_auth_graph (partition_label NTFN1); t \<in> {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}\<rbrakk> \<Longrightarrow> ep \<in> {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}
 5. \<And>x b t. \<lbrakk>b \<in> subjectReads example_auth_graph (partition_label NTFN1); b \<in> {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}; (t, Write, b) \<in> example_auth_graph\<rbrakk> \<Longrightarrow> t \<in> {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}
 6. \<And>x t p. \<lbrakk>t \<in> subjectReads example_auth_graph (partition_label NTFN1); t \<in> {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}; (t, Read, p) \<in> example_auth_graph\<rbrakk> \<Longrightarrow> p \<in> {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}
 7. \<And>x ep b. \<lbrakk>ep \<in> subjectReads example_auth_graph (partition_label NTFN1); ep \<in> {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}; (b, SyncSend, ep) \<in> example_auth_graph\<rbrakk> \<Longrightarrow> b \<in> {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}
 8. \<And>x ep b. \<lbrakk>ep \<in> subjectReads example_auth_graph (partition_label NTFN1); ep \<in> {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}; (b, Call, ep) \<in> example_auth_graph\<rbrakk> \<Longrightarrow> b \<in> {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}
 9. \<And>x ep b. \<lbrakk>ep \<in> subjectReads example_auth_graph (partition_label NTFN1); ep \<in> {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}; (b, Receive, ep) \<in> example_auth_graph\<rbrakk> \<Longrightarrow> b \<in> {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}
 10. \<And>x t' t. \<lbrakk>t' \<in> subjectReads example_auth_graph (partition_label NTFN1); t' \<in> {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}; (t, Reply, t') \<in> example_auth_graph\<rbrakk> \<Longrightarrow> t \<in> {partition_label NTFN1, partition_label CTR, partition_label EP, partition_label C, partition_label RM, partition_label NTFN2}
A total of 14 subgoals... proof (prove)
goal:
No subgoals!