val const (#k: eqtype) (#v: Type) (value: v) : t k v
val const (#k: eqtype) (#v: Type) (value: v) : t k v
let const (#k: eqtype) (#v: Type) (value: v) : t k v = FStar.FunctionalExtensionality.on k (fun (_: k) -> value)
module Spec.Map

let op_Hat_Subtraction_Greater = FStar.FunctionalExtensionality.op_Hat_Subtraction_Greater

let t (k: eqtype) (v: Type) = k ^-> v 
let upd #k #v (m: t k v) (key: k) (value: v) : t k v =
/
prims.fst.checked FStar.Pervasives.fsti.checked FStar.FunctionalExtensionality.fsti.checked
Spec.Map.fst
value: v -> Spec.Map.t k v
Prims.eqtype FStar.FunctionalExtensionality.on Spec.Map.t
let const (#k: eqtype) (#v: Type) (value: v) : t k v =
  
FStar.FunctionalExtensionality.on k (fun (_: k) -> value)