(******  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 singleton_rmap_mapsto: forall x y n, app_pred (mapsto x y) (singleton_rmap x y n).