(******  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).

Lemma mapsto_uniq: forall (x y: adr) w w', core w = core w' -> mapsto x y w -> mapsto x y w' -> w=w'.