Verify Always Denies Opt eqv verify Always Denies ok
Cedar.Thm.verifyAlwaysDeniesOpt_eqv_verifyAlwaysDenies_ok
Project documentation
This theorem covers the "happy path" -- showing that if optimized policy compilation succeeds, then verifyAlwaysAllows and verifyAlwaysAllowsOpt are equivalent.
Exact Lean statement
theorem verifyAlwaysDeniesOpt_eqv_verifyAlwaysDenies_ok {ps wps : Policies} {cpset : CompiledPolicySet} {Γ : Validation.TypeEnv} :
CompiledPolicySet.compile ps Γ = .ok cpset →
wellTypedPolicies ps Γ = .ok wps →
verifyAlwaysDenies wps (SymEnv.ofTypeEnv Γ) ~ .ok (verifyAlwaysDeniesOpt cpset)Formal artifact
Lean source
theorem verifyAlwaysDeniesOpt_eqv_verifyAlwaysDenies_ok {ps wps : Policies} {cpset : CompiledPolicySet} {Γ : Validation.TypeEnv} : CompiledPolicySet.compile ps Γ = .ok cpset → wellTypedPolicies ps Γ = .ok wps → verifyAlwaysDenies wps (SymEnv.ofTypeEnv Γ) ~ .ok (verifyAlwaysDeniesOpt cpset):= by simp [verifyAlwaysDenies, verifyAlwaysDeniesOpt] intro hcpset hwps apply verifyImpliesOpt_eqv_verifyImplies_ok hcpset _ hwps _ (ps₂ := []) simp [CompiledPolicySet.compile, Except.mapError, do_eq_ok, wellTypedPolicies_empty] rw [Opt.isAuthorized.correctness] simp [isAuthorized_empty, CompiledPolicySet.denyAll, cpset_compile_produces_the_right_env hcpset] simp [footprints_empty, EmptyCollection.emptyCollection, Data.Set.map_empty] simp [wellTypedPolicies_empty]- Project
- Cedar Specification
- License
- Apache-2.0
- Commit
- 3f093947b8ae
- Source
- cedar-lean/Cedar/Thm/SymCC/Opt/Verifier.lean:249-261
Reuse this declaration
Bring the exact result into your workflow
The import identifies the source module. Your project still needs the pinned package dependency shown on this page.
What this badge means
This completion status comes from the project or community source. It has not yet been represented here as an independent rebuild and axiom audit.
Continue in this project
Related declarations
Find? ext
Cedar.Data.Map.find?_ext
Plain-language statement
Two well-formed maps are equal if they have the same find? for every key.
Source project: Cedar Specification
Person-level attribution pending.
Find? notmem keys
Cedar.Data.Map.find?_notmem_keys
Plain-language statement
Inverse of find?_mem_toList, except that this requires wf
Source project: Cedar Specification
Person-level attribution pending.
Find? some iff in values
Cedar.Data.Map.find?_some_iff_in_values
Plain-language statement
The mp direction of this does not need the wf precondition and, in fact, is available separately as find?_some_implies_in_values above
Source project: Cedar Specification
Person-level attribution pending.