diff options
| author | Son Ho | 2023-06-02 16:10:20 +0200 |
|---|---|---|
| committer | Son HO | 2023-06-04 21:54:38 +0200 |
| commit | 54afbf3a8b71ee729641ee3024d19aaf8fa92a67 (patch) | |
| tree | a014bdb321be1ada84a8687e38bd17c487d68889 /tests/hol4/hashmap | |
| parent | 435d75174a12a47da84537cc7c9730a0eccf6d1f (diff) | |
Start setting up the Nix derivation for HOL4
Diffstat (limited to '')
| -rw-r--r-- | tests/hol4/hashmap/hashmap_PropertiesScript.sml | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/hol4/hashmap/hashmap_PropertiesScript.sml b/tests/hol4/hashmap/hashmap_PropertiesScript.sml index 6b64affe..c8e87f07 100644 --- a/tests/hol4/hashmap/hashmap_PropertiesScript.sml +++ b/tests/hol4/hashmap/hashmap_PropertiesScript.sml @@ -670,8 +670,10 @@ Proof case_tac >> case_tac >> Cases_on ‘hm’ >> fs [] >> - fs [hashmap_TypesTheory.recordtype_hash_map_t_seldef_hash_map_slots_fupd_def] >> - fs [hashmap_TypesTheory.recordtype_hash_map_t_seldef_hash_map_num_entries_fupd_def] + (* Remark: we initially used directly hashmap_TypesTheory.recordtype_hash_map_t_seldef_hash_map_slots_fupd_def + and hashmap_TypesTheory.recordtype_hash_map_t_seldef_hash_map_num_entries_fupd_def, + but it fails in the Nix derivation *) + fs (TypeBase.updates_of “:'a hash_map_t”) QED val hash_map_insert_no_resize_fwd_back_branches_eq = SIMP_RULE (srw_ss ()) [] hash_map_insert_no_resize_fwd_back_branches_eq @@ -1818,8 +1820,7 @@ Proof rw [bind_def] >> rpt (case_tac >> fs []) >> Cases_on ‘hm’ >> fs [] >> - fs [hashmap_TypesTheory.recordtype_hash_map_t_seldef_hash_map_slots_fupd_def, - hashmap_TypesTheory.recordtype_hash_map_t_seldef_hash_map_num_entries_fupd_def] + fs (TypeBase.updates_of “:'a hash_map_t”) QED (* TODO: this doesn't work very well *) |