Plain-language statement
Lemma that if a concrete Γ : TypeEnv has tags for a particular entity type, then SymEnv.ofEnv Γ must also have tags for it
Exact Lean statement
theorem ofEnv_preserves_tags
{Γ : TypeEnv} {ety : EntityType} {ty : CedarType}
(h : Γ.ets.tags? ety = some (some ty)) :
∃ τags : SymTags,
(SymEnv.ofEnv Γ).entities.tags ety = some (some τags) ∧
τags.vals.outType = TermType.ofType tyFormal artifact
Lean source
theorem ofEnv_preserves_tags {Γ : TypeEnv} {ety : EntityType} {ty : CedarType} (h : Γ.ets.tags? ety = some (some ty)) : ∃ τags : SymTags, (SymEnv.ofEnv Γ).entities.tags ety = some (some τags) ∧ τags.vals.outType = TermType.ofType ty:= by simp only [EntitySchema.tags?, Option.map_eq_some_iff] at h have ⟨found_entry, ⟨hfind, hty_entry⟩⟩ := h -- The corresponding entity exists in `εnv` have hety_exists : Map.find? (SymEnv.ofEnv Γ).entities ety = some (SymEntityData.ofEntityType ety found_entry) := by apply ofEnv_preserves_entity ?_ hfind rfl simp only [ hety_exists, SymEntities.tags, SymEntityData.ofEntityType, SymEntityData.ofStandardEntityType, SymEntityData.ofEnumEntityType, Option.map_some, Option.some.injEq, ] split <;> simp only [Option.eq_some_iff_get_eq] case h_1 std_entry => simp only [EntitySchemaEntry.tags?] at hty_entry simp [hty_entry, SymEntityData.ofStandardEntityType.symTags, UnaryFunction.outType] case h_2 enum_entry => contradiction- Project
- Cedar Specification
- License
- Apache-2.0
- Commit
- 3f093947b8ae
- Source
- cedar-lean/Cedar/Thm/SymCC/Env/ofEnv.lean:281-309
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.