Commit ec92b0b9 authored by Michael Sammler's avatar Michael Sammler

Add hooks for counting stats

parent fa57fa4d
#!/usr/bin/env python3
import sys
import re
import json
import subprocess
import shutil
if len(sys.argv) < 2:
print("Usage: {} <files.c> ...".format(sys.argv[0]))
exit(1)
FILES=sys.argv[1:]
for f in FILES:
tmpname = f + ".statstmp"
shutil.copyfile(f, tmpname)
with open(f, "a") as fd:
fd.write("//@rc::import enable_debug from refinedc.typing.automation\n")
o = subprocess.check_output(["./build.sh", f], stderr=subprocess.STDOUT).split(b"\n")
results = []
total = { "evars": 0, "sideconds": 0, "unsolvedsideconds": 0, "extensible": 0 }
current = None
def finish():
if current is None:
return
results.append(current)
for line in o:
if b"coqc " in line:
finish()
current = { "name" : line.decode("utf8"),
"evars": 0, "sideconds": 0, "unsolvedsideconds": 0, "extensible": 0 }
if line == b"EVAR":
current["evars"] += 1
total["evars"] += 1
if line == b"SIDECOND":
current["sideconds"] += 1
total["sideconds"] += 1
if line == b"UNSOLVEDSIDECOND":
current["unsolvedsideconds"] += 1
total["unsolvedsideconds"] += 1
if line == b"EXTENSIBLE":
current["extensible"] += 1
total["extensible"] += 1
finish()
print((json.dumps(results, indent=2)))
print((json.dumps(total, indent=2)))
shutil.move(tmpname, f)
......@@ -38,7 +38,7 @@ Section proof_btree_member.
all: print_typesystem_goal "btree_member" "#0".
- repeat liRStep; liShow.
all: print_typesystem_goal "btree_member" "#1".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
+ unfold btree_invariant in *; by solve_goal.
+ rewrite H1; by apply: (btree_invariant_in_keys_not_None H2).
+ by rewrite list_insert_id.
......
......@@ -23,7 +23,7 @@ Section proof_free_btree.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "free_btree" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "free_btree".
Qed.
End proof_free_btree.
......@@ -32,7 +32,7 @@ Section proof_key_index.
all: print_typesystem_goal "key_index" "#0".
- repeat liRStep; liShow.
all: print_typesystem_goal "key_index" "#1".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
+ destruct (decide (i = s)); by naive_solver lia.
+ move: (elem_of_list_lookup_1 _ _ H14) => [i Hi]. destruct (decide (y = k)); [ done | exfalso ]. assert (k < y) as Hky by lia. assert (i < s)%nat as Hle by by eapply StronglySorted_lookup_index_lt. assert (i < s) as His by lia. assert (k < k) by by eapply H0. by lia.
+ apply StronglySorted_insert_drop_take; last done. * move => z Hz. destruct (l !! z) eqn:?; naive_solver lia. * move: (elem_of_list_lookup_2 l s y H7) => Hy. rewrite H7 /=. assert (k y); [ by set_solver | by lia ].
......
......@@ -22,7 +22,7 @@ Section proof_new_btree.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "new_btree" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "new_btree".
Qed.
End proof_new_btree.
......@@ -20,7 +20,7 @@ Section proof_latch_release.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "latch_release" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "latch_release".
Qed.
End proof_latch_release.
......@@ -25,7 +25,7 @@ Section proof_latch_wait.
all: print_typesystem_goal "latch_wait" "#0".
- repeat liRStep; liShow.
all: print_typesystem_goal "latch_wait" "#1".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "latch_wait".
Qed.
End proof_latch_wait.
......@@ -23,7 +23,7 @@ Section proof_increment.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "increment" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "increment".
Qed.
End proof_increment.
......@@ -22,7 +22,7 @@ Section proof_init.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "init" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "init".
Qed.
End proof_init.
......@@ -23,7 +23,7 @@ Section proof_read_locked.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "read_locked" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "read_locked".
Qed.
End proof_read_locked.
......@@ -21,7 +21,7 @@ Section proof_read_outside.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "read_outside" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "read_outside".
Qed.
End proof_read_outside.
......@@ -23,7 +23,7 @@ Section proof_write_locked.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "write_locked" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "write_locked".
Qed.
End proof_write_locked.
......@@ -21,7 +21,7 @@ Section proof_write_outside.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "write_outside" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "write_outside".
Qed.
End proof_write_outside.
......@@ -19,7 +19,7 @@ Section proof_slab_alloc.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "slab_alloc" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "slab_alloc".
Qed.
End proof_slab_alloc.
......@@ -19,7 +19,7 @@ Section proof_slab_free.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "slab_free" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "slab_free".
Qed.
End proof_slab_free.
......@@ -19,7 +19,7 @@ Section proof_slab_init.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "slab_init" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "slab_init".
Qed.
End proof_slab_init.
......@@ -23,7 +23,7 @@ Section proof_mpool_add_chunk.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "mpool_add_chunk" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: try by destruct m => //=; solve_goal.
all: print_sidecondition_goal "mpool_add_chunk".
Qed.
......
......@@ -32,7 +32,7 @@ Section proof_mpool_alloc.
all: print_typesystem_goal "mpool_alloc" "#0".
- repeat liRStep; liShow.
all: print_typesystem_goal "mpool_alloc" "#2".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "mpool_alloc".
Qed.
End proof_mpool_alloc.
......@@ -35,7 +35,7 @@ Section proof_mpool_alloc_contiguous.
all: print_typesystem_goal "mpool_alloc_contiguous" "#0".
- repeat liRStep; liShow.
all: print_typesystem_goal "mpool_alloc_contiguous" "#2".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "mpool_alloc_contiguous".
Qed.
End proof_mpool_alloc_contiguous.
......@@ -43,7 +43,7 @@ Section proof_mpool_alloc_contiguous_no_fallback.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "mpool_alloc_contiguous_no_fallback" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: try by destruct o'; solve_goal.
all: try by apply mult_le_compat_r; solve_goal.
all: try by repeat progress rewrite /ly_size/=; have : (x4 - Z.to_nat o' - count > 0)%nat; solve_goal.
......
......@@ -23,7 +23,7 @@ Section proof_mpool_alloc_no_fallback.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "mpool_alloc_no_fallback" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: try by destruct x1 as [|[]]; try solve_goal; zify; ring_simplify; solve_goal.
all: print_sidecondition_goal "mpool_alloc_no_fallback".
Qed.
......
......@@ -43,7 +43,7 @@ Section proof_mpool_fini.
all: print_typesystem_goal "mpool_fini" "#5".
- repeat liRStep; liShow.
all: print_typesystem_goal "mpool_fini" "#2".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "mpool_fini".
Qed.
End proof_mpool_fini.
......@@ -23,7 +23,7 @@ Section proof_mpool_free.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "mpool_free" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "mpool_free".
Qed.
End proof_mpool_free.
......@@ -22,7 +22,7 @@ Section proof_mpool_init.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "mpool_init" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "mpool_init".
Qed.
End proof_mpool_init.
......@@ -24,7 +24,7 @@ Section proof_mpool_init_from.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "mpool_init_from" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "mpool_init_from".
Qed.
End proof_mpool_init_from.
......@@ -22,7 +22,7 @@ Section proof_mpool_init_with_fallback.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "mpool_init_with_fallback" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "mpool_init_with_fallback".
Qed.
End proof_mpool_init_with_fallback.
......@@ -24,7 +24,7 @@ Section proof_main.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "main" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "main".
Qed.
End proof_main.
......@@ -19,7 +19,7 @@ Section proof_mpool_get.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "mpool_get" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "mpool_get".
Qed.
End proof_mpool_get.
......@@ -19,7 +19,7 @@ Section proof_mpool_init.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "mpool_init" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "mpool_init".
Qed.
End proof_mpool_init.
......@@ -19,7 +19,7 @@ Section proof_mpool_put.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "mpool_put" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "mpool_put".
Qed.
End proof_mpool_put.
......@@ -20,7 +20,7 @@ Section proof_compute_min_count.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "compute_min_count" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "compute_min_count".
Qed.
End proof_compute_min_count.
......@@ -21,7 +21,7 @@ Section proof_fsm_get.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "fsm_get" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: try by apply: fsm_invariant_alter; solve_goal.
all: try by erewrite length_filter_insert => //; solve_goal.
all: print_sidecondition_goal "fsm_get".
......
......@@ -31,7 +31,7 @@ Section proof_fsm_init.
all: print_typesystem_goal "fsm_init" "#0".
- repeat liRStep; liShow.
all: print_typesystem_goal "fsm_init" "#1".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: try by apply: fsm_invariant_init; solve_goal.
all: try by apply/list_subequiv_split; solve_goal.
all: try by rewrite length_filter_replicate_True; solve_goal.
......
......@@ -22,7 +22,7 @@ Section proof_fsm_insert.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "fsm_insert" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: try by apply: fsm_invariant_insert; solve_goal.
all: try by erewrite length_filter_insert => //; solve_goal.
all: print_sidecondition_goal "fsm_insert".
......
......@@ -31,7 +31,7 @@ Section proof_fsm_probe.
all: print_typesystem_goal "fsm_probe" "#0".
- repeat liRStep; liShow.
all: print_typesystem_goal "fsm_probe" "#1".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: try by apply: lookup_lt_is_Some_2; solve_goal.
all: try by eexists _; split => //; apply probe_ref_take_Some; naive_solver.
all: try by apply: probe_ref_go_next_take=> //i; intros Hi%lookup_rotate_r_Some; try lia; simplify_eq; naive_solver.
......
......@@ -49,7 +49,7 @@ Section proof_fsm_realloc_if_necessary.
all: print_typesystem_goal "fsm_realloc_if_necessary" "#3".
- repeat liRStep; liShow.
all: print_typesystem_goal "fsm_realloc_if_necessary" "#11".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: try by eexists (length items); rewrite /shelve_hint; split_and?; rewrite ?drop_ge; solve_goal.
all: try match goal with | H : fsm_invariant ?mp2 ?items2 |- fsm_invariant ?mp1 ?items1 => have ->: mp1 = mp2; [|done] end.
all: try by apply: fsm_copy_entries_not_add; solve_goal.
......
......@@ -21,7 +21,7 @@ Section proof_fsm_remove.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "fsm_remove" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: try by apply: fsm_invariant_delete; solve_goal.
all: try by erewrite length_filter_insert => //; solve_goal.
all: print_sidecondition_goal "fsm_remove".
......
......@@ -20,7 +20,7 @@ Section proof_fsm_slot_for_key.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "fsm_slot_for_key" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: try by apply: slot_for_key_ref_unfold_rem; solve_goal.
all: print_sidecondition_goal "fsm_slot_for_key".
Qed.
......
......@@ -21,7 +21,7 @@ Section proof_alloc.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "alloc" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "alloc".
Qed.
End proof_alloc.
......@@ -21,7 +21,7 @@ Section proof_fork.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "fork" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "fork".
Qed.
End proof_fork.
......@@ -32,7 +32,7 @@ Section proof_free.
all: print_typesystem_goal "free" "#0".
- repeat liRStep; liShow.
all: print_typesystem_goal "free" "#1".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: multiset_solver.
all: print_sidecondition_goal "free".
Qed.
......
......@@ -25,7 +25,7 @@ Section proof_test_thread_safe_alloc.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "test_thread_safe_alloc" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "test_thread_safe_alloc".
Qed.
End proof_test_thread_safe_alloc.
......@@ -22,7 +22,7 @@ Section proof_test_thread_safe_alloc_fork_fn.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "test_thread_safe_alloc_fork_fn" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "test_thread_safe_alloc_fork_fn".
Qed.
End proof_test_thread_safe_alloc_fork_fn.
......@@ -28,7 +28,7 @@ Section proof_thread_safe_alloc.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "thread_safe_alloc" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "thread_safe_alloc".
Qed.
End proof_thread_safe_alloc.
......@@ -20,7 +20,7 @@ Section proof_dequeue.
)%I : gmap label (iProp Σ)).
- repeat liRStep; liShow.
all: print_typesystem_goal "dequeue" "#0".
Unshelve. all: prepare_sideconditions; normalize_and_simpl_goal; try solve_goal.
Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
all: print_sidecondition_goal "dequeue".
Qed.
End proof_dequeue.
......@@ -20,7 +20,7 @@ Section proof_enqueue.
)%I : gmap label (iProp Σ)).