Corollary known_node : forall gsh1 gsh2 nodes1 rep p nodes2,
  known_nodes gsh1 gsh2 (nodes1 ++ (p, rep) :: nodes2) =
  node' gsh1 gsh2 rep p * known_nodes gsh1 gsh2 (nodes1 ++ nodes2).Instance EqDec_node_rep : EqDec node_rep.Instance EqDec_node : EqDec (val * node_rep).

(* Specifications: *)
Lemma body_validate : semax_body Vprog Gprog f_validate validate_spec.
Lemma body_locate : semax_body Vprog Gprog f_locate locate_spec.
Lemma body_add : semax_body Vprog Gprog f_add add_spec.