let add ctx k d = 
    let d = 
      try let old_d = find ctx k in Data.merge old_d d with Not_found -> d
    in Inthash.replace ctx k d