(******  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_level: forall x y m, level (singleton_rmap x y m) = level m.