Project-declaredLean 4.31.0 · null

Reauthorize is sound

Cedar.Thm.reauthorize_is_sound

authorization program verification semantics tpe

Project documentation

Main re-authorization soundness theorem: The result of reauthorizing a partial authorization response with concrete request and entities is equivalent to directly authorizing with the concrete request and entities.

Exact Lean statement

theorem reauthorize_is_sound
  {schema : Schema}
  {policies : List Policy}
  {req : Request}
  {es : Entities}
  {preq : PartialRequest}
  {pes : PartialEntities}
  {response : TPE.Response} :
  isValidAndConsistent schema req es preq pes = Except.ok () →
  TPE.isAuthorized schema policies preq pes = Except.ok response →
  response.reauthorize req es = Spec.isAuthorized req es policies

Formal artifact

Lean source

Canonical source

Full Lean sourceLean 4

theorem reauthorize_is_sound  {schema : Schema}  {policies : List Policy}  {req : Request}  {es : Entities}  {preq : PartialRequest}  {pes : PartialEntities}  {response : TPE.Response} :  isValidAndConsistent schema req es preq pes = Except.ok () →  TPE.isAuthorized schema policies preq pes = Except.ok response →  response.reauthorize req es = Spec.isAuthorized req es policies:= by  intro hv h_auth   simp only [TPE.isAuthorized] at h_auth  cases h_auth₁ : isAuthorized.evaluatePolicies schema policies preq pes <;>    simp [h_auth₁] at h_auth  rw [← h_auth]   have h_equiv := evaluatePolicies_residuals_equiv hv h_auth₁  have equiv_satisfied := reauthorize_satisfied_policies_equiv h_equiv  have equiv_errors := reauthorize_error_policies_equiv h_equiv  simp [TPE.isAuthorizedFromResiduals, Response.reauthorize, Spec.isAuthorized,        equiv_satisfied .forbid, equiv_satisfied .permit, equiv_errors]

Project: Cedar Specification
License: Apache-2.0
Commit: 3f093947b8ae
Source: cedar-lean/Cedar/Thm/TPE.lean:51-74

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

Project-declaredLean 4.31.0

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.

authorizationprogram verificationsemantics

Source project: Cedar Specification

Person-level attribution pending.

View proof record

Project-declaredLean 4.31.0

Find? notmem keys

Cedar.Data.Map.find?_notmem_keys

Plain-language statement

Inverse of find?_mem_toList, except that this requires wf

authorizationprogram verificationsemantics

Source project: Cedar Specification

Person-level attribution pending.

View proof record

Project-declaredLean 4.31.0

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

authorizationprogram verificationsemantics

Source project: Cedar Specification

Person-level attribution pending.

View proof record