All proofs
Project-declaredLean 4.31.0 · null

Of Env preserves entity

Cedar.Thm.ofEnv_preserves_entity

Plain-language statement

If some entity exists in Γ, then it must also exists in SymEnv.ofEnv Γ with the corresponding SymEntityData

Exact Lean statement

theorem ofEnv_preserves_entity
  {Γ : TypeEnv} {εnv : SymEnv} {ety : EntityType} {entry : EntitySchemaEntry}
  (hεnv : εnv = SymEnv.ofEnv Γ)
  (hfind : Map.find? Γ.ets ety = some entry) :
  Map.find? εnv.entities ety = some (SymEntityData.ofEntityType ety entry)

Formal artifact

Lean source

Canonical source
Full Lean sourceLean 4
theorem ofEnv_preserves_entity  {Γ : TypeEnv} {εnv : SymEnv} {ety : EntityType} {entry : EntitySchemaEntry}  (hεnv : εnv = SymEnv.ofEnv Γ)  (hfind : Map.find? Γ.ets ety = some entry) :  Map.find? εnv.entities ety = some (SymEntityData.ofEntityType ety entry):= by  simp only [Map.find?, hεnv, SymEnv.ofEnv, SymEntities.ofSchema]  simp only [Map.find?] at hfind  split at hfind  case _ _ _ hfind2 =>    simp only [Option.some.injEq] at hfind    simp only [hfind] at hfind2    have hfind := hfind2    have h := List.find?_some hfind    simp only [beq_iff_eq] at h    simp only [h] at hfind    rw [ Map.find?]    rw [ Map.list_find?_iff_make_find?]    apply List.find?_implies_append_find?    apply List.find?_implies_find?_fst_map    assumption  case _ => contradiction
Project
Cedar Specification
License
Apache-2.0
Commit
3f093947b8ae
Source
cedar-lean/Cedar/Thm/SymCC/Env/ofEnv.lean:30-51

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