update talk demo

examples/proofs/talk_demo3/generated_proof_append.v

@@ -13,7 +13,7 @@ Section proof_append.
     typed_function (impl_append global_append) type_of_append.
   Proof.
     Open Scope printing_sugar.
-    start_function "append" ([[p xs] ys]) => arg_l arg_k.
+    start_function "append" (p) => arg_l arg_k.
     split_blocks ((
       ∅
     )%I : gmap label (iProp Σ)) ((

examples/proofs/talk_demo3/generated_proof_test.v

-From refinedc.typing Require Import typing.
-From refinedc.examples.talk_demo3 Require Import generated_code.
-From refinedc.examples.talk_demo3 Require Import generated_spec.
-Set Default Proof Using "Type".
-
-(* Generated from [examples/talk_demo3.c]. *)
-Section proof_test.
-  Context `{!typeG Σ} `{!globalG Σ}.
-
-  (* Typing proof for [test]. *)
-  Lemma type_test (global_alloc global_append : loc) :
-    global_alloc ◁ᵥ global_alloc @ function_ptr type_of_alloc -∗
-    global_append ◁ᵥ global_append @ function_ptr type_of_append -∗
-    typed_function (impl_test global_alloc global_append) type_of_test.
-  Proof.
-    Open Scope printing_sugar.
-    start_function "test" ([]) => local_node1 local_node2.
-    split_blocks ((
-      ∅
-    )%I : gmap label (iProp Σ)) ((
-      ∅
-    )%I : gmap label (iProp Σ)).
-    - repeat liRStep; liShow.
-      all: print_typesystem_goal "test" "#0".
-    Unshelve. all: sidecond_hook; prepare_sideconditions; normalize_and_simpl_goal; try solve_goal; unsolved_sidecond_hook.
-    all: print_sidecondition_goal "test".
-  Qed.
-End proof_test.
+(* You were too lazy to even write a spec for this function. *)

examples/proofs/talk_demo3/generated_spec.v

@@ -93,12 +93,10 @@ Section spec.
 
   (* Specifications for function [append]. *)
   Definition type_of_append :=
-    fn(∀ (p, xs, ys) : loc * (list Z) * (list Z); (p @ (&own (xs @ (list_t)))), (ys @ (list_t)); True)
-      → ∃ () : (), (void); (p ◁ₗ ((xs ++ ys) @ (list_t))).
+    fn(∀ p : loc; (p @ (&own (list_t))), (list_t); True)
+      → ∃ () : (), (void); (p ◁ₗ (list_t)).
 
-  (* Specifications for function [test]. *)
-  Definition type_of_test :=
-    fn(∀ () : (); (alloc_initialized)) → ∃ () : (), (void); True.
+  (* Function [test] has been skipped. *)
 End spec.
 
 Typeclasses Opaque list_t_rec.

examples/talk_demo3.c

@@ -14,9 +14,9 @@ list_node {
 } *list_t;
 
 
-[[rc::parameters("p : loc", "xs : {list Z}","ys : {list Z}")]]
-[[rc::args("p @ &own<xs @ list_t>", "ys @ list_t")]]
-[[rc::ensures("own p : {xs ++ ys} @ list_t")]]
+[[rc::parameters("p : loc")]]
+[[rc::args("p @ &own<list_t>", "list_t")]]
+[[rc::ensures("own p : list_t")]]
 void append(list_t *l, list_t k) {
   if(*l == NULL) {
     *l = k;
@@ -25,7 +25,7 @@ void append(list_t *l, list_t k) {
   }
 }
 
-[[rc::requires("[alloc_initialized]")]]
+/* [[rc::requires("[alloc_initialized]")]] */
 void test() {
   struct list_node * node1 = alloc(sizeof(struct list_node));
   node1->val = 1; node1->next = NULL;