@@ -294,7 +294,7 @@ theorem wasm_smallStep_runtime_adequacy
294294 imod (iOwn_alloc (E := runtimeElem)
295295 (runtimeValue • runtimeValue) (fun n =>
296296 CMRA.valid_iff_validN.mp
297- (Agree.toAgree_op_valid_iff_equiv. mpr . rfl) n)) with
297+ (toAgree_op_valid_iff_eq. mpr rfl) n)) with
298298 ⟨%runtimeName, Hruntime⟩
299299 letI runtimeGS : WasmRuntimeModuleGS :=
300300 { runtimeElem
@@ -530,7 +530,7 @@ theorem wasm_smallStep_heap_globals_runtime_adequacy
530530 imod (iOwn_alloc (E := runtimeElem)
531531 (runtimeValue • runtimeValue) (fun n =>
532532 CMRA.valid_iff_validN.mp
533- (Agree.toAgree_op_valid_iff_equiv. mpr . rfl) n)) with
533+ (toAgree_op_valid_iff_eq. mpr rfl) n)) with
534534 ⟨%runtimeName, Hruntime⟩
535535 letI runtimeGS : WasmRuntimeModuleGS :=
536536 { runtimeElem
@@ -656,7 +656,7 @@ theorem wasm_smallStep_heap_globals_runtime_store_adequacy
656656 imod (iOwn_alloc (E := runtimeElem)
657657 (runtimeValue • runtimeValue) (fun n =>
658658 CMRA.valid_iff_validN.mp
659- (Agree.toAgree_op_valid_iff_equiv. mpr . rfl) n)) with
659+ (toAgree_op_valid_iff_eq. mpr rfl) n)) with
660660 ⟨%runtimeName, Hruntime⟩
661661 letI runtimeGS : WasmRuntimeModuleGS :=
662662 { runtimeElem
@@ -814,7 +814,7 @@ theorem wasm_smallStep_heap_globals_segments_runtime_store_adequacy
814814 imod (iOwn_alloc (E := runtimeElem)
815815 (runtimeValue • runtimeValue) (fun n =>
816816 CMRA.valid_iff_validN.mp
817- (Agree.toAgree_op_valid_iff_equiv. mpr . rfl) n)) with
817+ (toAgree_op_valid_iff_eq. mpr rfl) n)) with
818818 ⟨%runtimeName, Hruntime⟩
819819 letI runtimeGS : WasmRuntimeModuleGS :=
820820 { runtimeElem
@@ -993,7 +993,7 @@ theorem wasm_smallStep_heap_globals_segments_tables_runtime_store_adequacy
993993 imod (iOwn_alloc (E := runtimeElem)
994994 (runtimeValue • runtimeValue) (fun n =>
995995 CMRA.valid_iff_validN.mp
996- (Agree.toAgree_op_valid_iff_equiv. mpr . rfl) n)) with
996+ (toAgree_op_valid_iff_eq. mpr rfl) n)) with
997997 ⟨%runtimeName, Hruntime⟩
998998 letI runtimeGS : WasmRuntimeModuleGS :=
999999 { runtimeElem
@@ -1227,7 +1227,6 @@ private theorem global0Heap_pointsTo [WasmGlobalGS] :
12271227 unfold global0Heap
12281228 rw [(BI.BigSepM.bigSepM_insert (get?_empty 0 )).to_eq,
12291229 BI.BigSepM.bigSepM_empty.to_eq, BI.sep_emp.to_eq]
1230- exact .rfl
12311230
12321231/-- A concrete adequacy witness for authoritative globals: the WP may derive
12331232the result of `global.get 0` only from ownership allocated for the matching
@@ -2538,8 +2537,6 @@ private theorem memoryInitDropSegments_pointsTo [WasmDataSegmentGS] :
25382537 unfold memoryInitDropSegments
25392538 rw [(BI.BigSepM.bigSepM_insert (get?_empty 0 )).to_eq,
25402539 BI.BigSepM.bigSepM_empty.to_eq, BI.sep_emp.to_eq]
2541- iintro Hsegment
2542- iexact Hsegment
25432540
25442541def memoryInitDropAdequacyModule : Module :=
25452542 { funcs :=
@@ -2644,8 +2641,6 @@ private theorem tableSetGetMap_pointsTo [WasmTableGS] :
26442641 unfold tableSetGetMap
26452642 rw [(BI.BigSepM.bigSepM_insert (get?_empty 0 )).to_eq,
26462643 BI.BigSepM.bigSepM_empty.to_eq, BI.sep_emp.to_eq]
2647- iintro Htable
2648- iexact Htable
26492644
26502645def tableSetGetAdequacyModule : Module :=
26512646 { funcs :=
@@ -2997,8 +2992,6 @@ private theorem tableCopyOverlapMap_pointsTo [WasmTableGS] :
29972992 unfold tableCopyOverlapMap
29982993 rw [(BI.BigSepM.bigSepM_insert (get?_empty 0 )).to_eq,
29992994 BI.BigSepM.bigSepM_empty.to_eq, BI.sep_emp.to_eq]
3000- iintro Htable
3001- iexact Htable
30022995
30032996def tableCopyOverlapAdequacyModule : Module :=
30042997 { funcs := [{ body := [] }, { body := [] }, { body := [] }]
@@ -3344,8 +3337,6 @@ private theorem tableInitDropTableMap_pointsTo [WasmTableGS] :
33443337 unfold tableInitDropTableMap
33453338 rw [(BI.BigSepM.bigSepM_insert (get?_empty 0 )).to_eq,
33463339 BI.BigSepM.bigSepM_empty.to_eq, BI.sep_emp.to_eq]
3347- iintro Htable
3348- iexact Htable
33493340
33503341private theorem tableInitDropElementMap_pointsTo [WasmElementSegmentGS] :
33513342 ([∗map] index ↦ value ∈ tableInitDropElementMap,
@@ -3354,8 +3345,6 @@ private theorem tableInitDropElementMap_pointsTo [WasmElementSegmentGS] :
33543345 unfold tableInitDropElementMap
33553346 rw [(BI.BigSepM.bigSepM_insert (get?_empty 0 )).to_eq,
33563347 BI.BigSepM.bigSepM_empty.to_eq, BI.sep_emp.to_eq]
3357- iintro Hsegment
3358- iexact Hsegment
33593348
33603349def tableInitDropAdequacyModule : Module :=
33613350 { funcs := [{ body := [] }]
0 commit comments