(******* FUNASSERT, MAKE_WORLD ********************)

Definition funspec := (list var * assert)%type.Definition funspecs := table adr funspec.Definition unpack (P: list adr -> pred rmap) (vl: listprod (@cons Type (list adr) nil)):  pred rmap := P (fst vl).Definition make_world_aux (G: funspecs) (h: heap) (n: nat) (a: adr) : resource :=
   match table_get G a with
   | Some P => PURE (FUN (fst P))
                               (preds_fmap (approx n)
                                      (SomeP (@cons Type (list adr) nil) (unpack (call P))))
   | None => match heap_get h a with
                     | Some v => YES pfullshare (VAL v) NoneP
                     | None => NO
                    end
   end.

(* Specifications: *)
Lemma make_world_aux_OK: forall G h n, resource_fmap (approx n) oo make_world_aux G h n = make_world_aux G h n.