use super::super::prelude::*;
use super::algebra::ResourceAlgebra;
use super::pcm::PCM;
verus! {
pub open spec fn incl<RA: ResourceAlgebra>(a: RA, b: RA) -> bool {
exists|c| RA::op(a, c) == b
}
pub open spec fn conjunct_shared<RA: ResourceAlgebra>(a: RA, b: RA, c: RA) -> bool {
forall|p: RA| p.valid() && incl(a, p) && incl(b, p) ==> #[trigger] incl(c, p)
}
pub open spec fn frame_preserving_update<P: PCM>(a: P, b: P) -> bool {
forall|c| #![trigger P::op(a, c), P::op(b, c)] P::op(a, c).valid() ==> P::op(b, c).valid()
}
pub open spec fn frame_preserving_update_nondeterministic<P: PCM>(a: P, bs: ISet<P>) -> bool {
forall|c|
#![trigger P::op(a, c)]
P::op(a, c).valid() ==> exists|b| #[trigger] bs.contains(b) && P::op(b, c).valid()
}
pub open spec fn frame_preserving_update_opt<RA: ResourceAlgebra>(a: RA, b: RA) -> bool {
forall|c|
#![trigger Option::<RA>::op(Some(a), c), Option::<RA>::op(Some(b), c)]
Option::<RA>::op(Some(a), c).valid() ==> Option::<RA>::op(Some(b), c).valid()
}
pub open spec fn frame_preserving_update_nondeterministic_opt<RA: ResourceAlgebra>(
a: RA,
bs: ISet<RA>,
) -> bool {
forall|c|
#![trigger Option::<RA>::op(Some(a), c)]
Option::<RA>::op(Some(a), c).valid() ==> exists|b| #[trigger]
bs.contains(b) && Option::<RA>::op(Some(b), c).valid()
}
pub open spec fn set_op<RA: ResourceAlgebra>(s: ISet<RA>, t: RA) -> ISet<RA> {
ISet::new(|v| exists|q| s.contains(q) && v == RA::op(q, t))
}
pub proof fn lemma_incl_transitive<RA: ResourceAlgebra>(a: RA, b: RA, c: RA)
requires
incl(a, b),
incl(b, c),
ensures
incl(a, c),
{
let ax = choose|ax| RA::op(a, ax) == b;
let bx = choose|bx| RA::op(b, bx) == c;
assert(RA::op(RA::op(a, ax), bx) == c);
RA::associative(a, ax, bx);
assert(RA::op(a, RA::op(ax, bx)) == c);
}
pub proof fn lemma_frame_preserving_opt<RA: ResourceAlgebra>(a: RA, b: RA)
requires
frame_preserving_update_opt::<RA>(a, b),
ensures
frame_preserving_update::<Option<RA>>(Some(a), Some(b)),
{
}
pub proof fn lemma_frame_preserving_update_nondeterministic_opt<RA: ResourceAlgebra>(
a: RA,
bs: ISet<RA>,
)
requires
frame_preserving_update_nondeterministic_opt::<RA>(a, bs),
ensures
frame_preserving_update_nondeterministic::<Option<RA>>(Some(a), bs.map(|b| Some(b))),
{
broadcast use super::super::iset::group_iset_lemmas;
let bs_mapped = bs.map(|b| Some(b));
assert forall|c|
#![trigger Option::<RA>::op(Some(a), c)]
Option::<RA>::op(Some(a), c).valid() implies exists|b| #[trigger]
bs_mapped.contains(b) && Option::<RA>::op(b, c).valid() by {
let b = choose|b| #[trigger] bs.contains(b) && Option::<RA>::op(Some(b), c).valid();
assert(bs_mapped.contains(Some(b)));
}
}
}