Definition Map := rho (.\ "map", "F", "A";
"A" !Nil (.\"a", "A"; !Cons ("F" "a") ("map" "F" "A"))).
Hint Unfold sim Map : cbv.

(* Specifications: *)
Lemma Map_correct f A F : sim F f ->
Map F (lenc A) ≡ lenc(map f A).