(******  CONSTRUCTION OF rmap FOR THE CONT LANGUAGE *****)
Inductive kind := VAL: adr -> kind | FUN: list var -> kind.(******  CONSTRUCTION OF rmap FOR THE CONT LANGUAGE *****)
Inductive kind := VAL: adr -> kind | FUN: list var -> kind.(******  CONSTRUCTION OF rmap FOR THE CONT LANGUAGE *****)
Inductive kind := VAL: adr -> kind | FUN: list var -> kind.Definition address := adr.Definition some_address := 0.Definition kind := kind.Module AV := SimpleAdrVal AV0.Module R := Rmaps AV.Module RML := Rmaps_Lemmas R.Instance Cross_rmap : Cross_alg rmap := Cross_rmap_simple (fun _ => I).

(* Specifications: *)
Lemma singleton_rmap_level: forall x y m, level (singleton_rmap x y m) = level m.
Lemma singleton_rmap_mapsto: forall x y n, app_pred (mapsto x y) (singleton_rmap x y n).
Lemma mapsto_uniq: forall (x y: adr) w w', core w = core w' -> mapsto x y w -> mapsto x y w' -> w=w'.