adbrucker
/
lh-l4v
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

lib/monads: add select_wp and alternative_wp to wp set for Nondet monad 

Signed-off-by: Corey Lewis <corey.lewis@proofcraft.systems>
This commit is contained in:
Corey Lewis 2023-08-01 16:16:51 +10:00 committed by Corey Lewis
parent aa8b108b1d
commit 0e0e0cafa4
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/Monads/nondet/Nondet_VCG.thy
View File

@ -554,7 +554,7 @@ lemma alternativeE_R_wp:
unfolding validE_R_def
by (rule alternativeE_wp)
lemma alternative_R_wp:
lemma alternativeE_E_wp:
"\<lbrakk> \<lbrace>P\<rbrace> f -,\<lbrace>Q\<rbrace>; \<lbrace>P'\<rbrace> g -,\<lbrace>Q\<rbrace> \<rbrakk> \<Longrightarrow> \<lbrace>P and P'\<rbrace> f \<sqinter> g -, \<lbrace>Q\<rbrace>"
unfolding validE_E_def
by (rule alternativeE_wp)
@ -1009,6 +1009,11 @@ lemmas [wp] = hoare_vcg_prop
gets_the_wp
gets_map_wp'
liftE_wp
alternative_wp
alternativeE_R_wp
alternativeE_E_wp
alternativeE_wp
select_wp
select_f_wp
state_select_wp
condition_wp