Commit 6b41f71f authored by Robbert Krebbers's avatar Robbert Krebbers

Generalize list_sort_elem to arbitrary types.

parent 353e65d6
This diff is collapsed.
......@@ -16,7 +16,6 @@ Definition loop_sort_service : val :=
Section loop_sort.
Context `{!heapG Σ, !proto_chanG Σ} (N : namespace).
Definition loop_sort_protocol_aux (rec : iProto Σ) : iProto Σ :=
((sort_protocol <++> rec) <+> ((<?> c, MSG c {{ c rec @ N }}; rec) <+> END))%proto.
......@@ -48,5 +47,4 @@ Section loop_sort.
by wp_apply ("IH" with "Hc").
- by iApply "HΨ".
Qed.
End loop_sort.
\ No newline at end of file
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment